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Preiswert 
selbst gebaut: 


 % RS232-Schnittstelle 
 * Reset-Schalter 
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JETZT AUF SCHNEIDER-COMPUTERN: 


Die ramm-Bibliothek für Turbo Pascal 


über 100 Prozeduren und Funktionen in 


TURBO-Lader-Grundpaket 


Das TURBO-Lader-Grundmodul ist eine 
umfangreiche Programm-Bibliothek für den 
TURBO-Pascal-Programmierer. Sie umfaßt 
zahlreiche ausführlich dokumentierte Proze- 
duren und Funktionen, die der Profi zur 
schnellen Lösung seiner Programmierauf- 
gaben verwenden kann und dem Einsteiger 
das Erlernen der Pascal-Programmierung 
erleichtern. Das Grundpaket TURBO-Lader 
bietei ein breitgefächertes Spektrum von 
Routinen, beginnend bei Bitmanipulation 
über optimierte Sortierverfahren bis hin zur 
Anwendung von Splinefunktionen, Fourier- 
transformation und Regressionsanalyse. Des 
weiteren Disketten-Routinen zum Lesen 
eines Inhaltsverzeichnisses oder zum Lesen 
und Schreiben einzelner Sektoren, Routinen 
zur Datenüberprüfung, ein Spooler mit Steu- 
erroutinen, erweiterte Stringverarbeitung 
und vieles mehr. Alle Routinen werden im 
kommentierten Quellcode für den TURBO- 
Pascal-Compiler ausgeliefert. 


Das TURBO-Lader-Grundpaket erfordert 
den TURBO-Pascal-Compiler. Es ist liefer- 
barauf3”-und5 1/4 *-Disketten und lauffä- 
hig auf dem Schneider CPC 464, CPC 664, 
CPC 6128 und Joyce. 


3"-Disk. Best;-Nr. MS 413 
51,4”-Disk. Best.-Nr. MS415 DM 138,+ 


"inkl, MwSt, unverbindliche Preisempfehlung. 


Die Programm-Bibliothek für Turbo Pascal 


Ein komfortabler Bildschirm-Masken- 
generator und eine professionelle Datel- 
verwaltung In Turbo Pascal Source Code, 


3" SchneiderfFormal 





TURBO-Lader Business 


TURBO-Lader Business umfaßt einen kom- 
fortablen Bildschirm-Maskengenerator und 
eine professionelle Dateiverwaltung. Der 
Maskengenerator oaibt dem Pascal- 
Programmierer ein Werkzeug zur einfachen 
Bearbeitung von Bildschirm-Masken in die 
Hand. Eine Maske kann beliebig viele Textfel- 
der, bis zu 128 Eingabe- und 128 Ausgabefel- 
der enthalten. Eingabefelder können auf 
komfortable Art editiert und auf Gültigkeit 
überprüft werden. Das Dateiverwaltungsmo- 
dul unterstützt die Programmierung von 
Datenbankanwendungen und Stammdaten- 
verwaltungen. Esbestehtaus einer komforta- 
blen Datensatz- und Indexverwaltung mit 
mehreren Schlüsseln und Index-Dateien, die 
einen sekundenschnellen Zugriff auf belie- 
bige Daten ermöglicht. Mit diesen beiden 
Modulen stehen dem Anwendungsprogram- 
mierer zwei professionelle Werkzeuge zur 
zeit- und kostensparenden Erstellung kom- 
merzieller Anwendungen zur Verfügung. Alle 
Routinen werden im kommentierten Quell- 
code für den TURBO-Pascal-Compiler aus- 
geliefert. 


TURBO-Lader Business erfordert den 
TURBO-Pascal-Compiler und das TURBO- 
Lader-Grundpaket. Es ist lieferbar auf 3*- 
und5 1/4 *-Disketten und lauffähig auf dem 
Schneider CPC 464, CPC 664, CPC 6128 
und Joyce. 


3"-Disk. Best.-Nr. MS 423 
5',,"-Disk. Best.-Nr. MS425 DM 148,+ 


Ton 


Die Programm-Bibliothek für Turbo Pascal 
Technisch-wissenschaftliche Funktionen 
und professionelle statistische en 
für die Bereiche Medizin, Betriebs- und 
Volkswirtschaft, Technik und Matur- 
wissenschaften In Turbo Pascal Source 
Code. 
3" Schneider Format 


TURBO-Lader Science 


TURBO-Lader Science ist eine Sammlung 
technisch/wissenschaftlicher Funktionen 
und professioneller statistischer Verfahren 
für die Bereiche Medizin, Betriebs- und Volks- 
wirtschaft, Technik und Naturwissenschaf- 
ten. Das Modul enthält alle arithmetischen 
Operationen zur Verarbeitung komplexer 
Variablen inklusive der Umrechnung der Dar- 
stellung und die wichtigsten komplexen 
Funktionen wie Potenz, Wurzel, trigonometri- 
sche, transzendente und exponentielle Funk- 
tionen. Darüber hinaus ist ein vollständiges 
Paket zur Verarbeitung komplexer Matrizen 
und Vektoren enthalten. Der Statistikteil ist 
ein praktisches und direkt verwendbares 
Werkzeug zur computerunterstützten, effek- 
tiven Datenanalyse. Er umfaßt eine Vielzahl 
statistischer Funktionen mit den Schwer- 
punkten Regression und Korrelation, des- 
kriptive Statistik, Faktoranalyse und Testver- 
fahren. Alle Routinen werden im kommentier- 
ten Quellcode für den TURBÖO-Pascal- 
Compiler ausgeliefert. 


TURBO-Lader Science erfordert den 
TURBO-Pascal-Compiler und das TURBO- 
Lader-Grundpaket. Es ist lieferbar auf 3"- 
und5 1/4 "-Disketten und lauffähig auf dem 
Schneider CPC 464, CPC 664, CPC 6128 
und Joyce. 


3"-Disk. Best.-Nr. MS 433 
51,,"-Disk, Best.-Nr. MS 435 DM 189,-* 


TURBO-Pascal® ist ein Warenzeichen der Borland Inc., USA. TURBO-Lader, TURBO-Lader Business und TURBO-Lader Science sind Warenzeichen der Fa. Lauer & Wallnitz. 
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eit dem Altertum spricht man 
vom »goldenen Schnitt« wenn 
zwei Linien in einem idealen 
harmonischen Längenverhältnis zu- 
einander stehen. Bei allen Compu- 
tern aus dem Hause Schneider kann 
man das Verhältnis zwischen Preis 
und Leistung auch als »goldenen 
schnitt« bezeichnen. Damit ist es 
kein Geheimnis, warum sich in Zei- 
ten, in denen andere die Segel strei- 
chen müssen, der Schneider als 
Newcomer auf Platz 2 der Verkaufs- 
hitparade schieben konnte. Aller- 
dings befriedigt der Computer al- 
lein noch nicht alle Wünsche seines 
Besitzers. 

Was man braucht, sind Informatio- 
nen. Und dies ist das Motto der zwei- 
ten Schneider-Ausgabe aus der Son- 
derheft-Reihe von Happy-Compu- 
ter, die Sie jetzt in den Händen hal- 
ten. Immer mehr Anfragen zu ver- 
schiedensten Themen erreichen 
täglich die Redaktion. Zu den am 
häufigsten genannten, finden Sie 
hier Anregungen — sowohl für An- 
fänger wie auch für Profis. 

Eins haben sich alle Schneider- 
Fans gewünscht. Tips und Tricks für 
jeden Zweck. Und hier sind sie. Sie 
finden RSX-Erweiterungen genauso 
wie eine optimale Anpassung von 
CP/M-Programmen (am Beispiel 
Wordstar), und jeder Besitzer einer 
Diskettenstation wird sich über 
»Help«, einen Disk-Doktor, freuen. 
Probleme, wie beispielsweise ver- 
sehentlich gelöschte Programme, 
gibt es nicht mehr. 

Ein weiteres Kapitel beschäftigt 
sich mit den Firmware-Routinen Ih- 
res Schneiders. Firmware, das sind 
die Maschinencode-Programme, 
die im ROM fest eingebaut sind. Sie 
werden vom Basic-Interpreter bei 
seiner Arbeit benutzt, um den Com- 
puter anzuleiten. Es gibt aber auch 
Routinen, die normalerweise von 
Basic nicht benutzt werden. Wußten 





Sie zum Beispiel schon, daß man mit 


‚einem einfachen Befehl Zeichen auf 





dem Bildschirm auch nach unten 
scrollen kann? Diesen und viele an- 
dere »Calls« finden Sie ausführlich 
erklärt. Eine RSX-Anweisungmitder 
Sıe das alles ausprobieren können, 
finden Sie auf Seite 67. 

Wer mitseinem Computer spielen 
will, für den hat unser Spiele-Freak 
Heinrich Lenhardt die interessan- 
ten Programme zusammengestellt. 
Aber wer lieber seinen Computer 
mit Listings »füttern« will, der kann 
seine kriminalistischen Fähigkeiten 
beim Fall »Famit AG« beweisen. 

Erstmals in einer deutschen Pro- 
gramm-Sammlung für Schneider- 
Computer finden Sie jedes Basic- 
Listing mit einer Prüfsumme abge- 
druckt. .Wenn Sie das Eingabepro- 
gramm »Explora« (Seite 13) benut- 
zen, wird diese Zahl nach jeder Zei- 
le auf dem Bildschirm ausgegeben. 
Sie können so sofort überprüfen, ob 
die Eingabe korrekt war. Und noch 
eine Erleichterung haben wir für Sie 
eingebaut. Die Bildschirmsteuerzei- 
chen werden alle in Klartext ausge- 
geben. Somit sollte es für Sie ein 
leichtes sein, alle Listings abzutip- 
pen. 

Wem das allerdings zu viel Arbeit 
ist, für den bieten wir natürlich auch 
wieder alle Programme auf 3-Zoll- 
Diskette (34,90 Mark, Bestell-Num- 
mer LH 86S1D) und auf zwei Kasset- 
ten (29,90 Mark, Bestell-Nummer LH 
86SIK) an. Bestellen können Sie die- 
se ganz einfach mit der Zahlkarte in 
der Mitte des Hefts. 

An dieser Stelle möchte ich mich 
bei allen Lesern bedanken, die sich 
aktiv an der Happy-Computer betei- 
ligen. Nur mit Ihren Anregungen ist 
es uns möglich, Ihnen die Informa- 
tionen zu bieten, die Sie sich wün- 
schen. Äber auch Kritik wird von 
uns gern gelesen. Denn nur mit Ih- 
ren Ideen können wir die Zeitschrift 


— und die Sonderhefte — so gestal- 
ten, wie Sie sich diese wünschen. 


Andreas Hagedorn 
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Speichern mit Luxus 





Jeder CP/M-Computer ist in seiner 

| Leistung von einer guten Disketten- 

station abhängig. Welches Laufwerk 
ist nun für den Schneider am besten 


geeig gnet? Zwei Laufwerke stehen zur Aus- 
wahl für den Anwender. 


Speichern zunächst mit dem 

ab Werk eingebauten Daten- 
recorder. Die dadurch bedingte La- 
dezeit erfordert aber viel Geduld. 
Auch eine Erhöhung der SAVE- 
Baudrate bringt meist nicht den ge- 
wünschten Erfolg. Spätestens jetzt 
geht die Überlegung in Richtung 
Diskettenstation. Schnelle Zugriffs- 
zeiten und hohe Datensicherheit 
sind nur einige Vorteile. Durch die 
CP/M-Fähigkeit des CPC 464 in Ver- 
bindung mit einem geeigneten Lauf- 
werk wird Kompatibilität unter- 
schiedlichster Geräte gewährlei- 
stet. Aus diesem Grund liegen allen 
Laufwerken eine CP/M-Software- 
schnittstelle auf Diskette bei. 

Was verbirgt sich hinter dem Zau- 
berwort CP/M? Nun, CP/M (Control 
Programm for Microcomputers) ist 
ein diskettenunterstütztes Betriebs- 
system der Firma Digital Research. 
Es wurde für Mikrocomputer mit 
dem Intel 8080 Mikroprozessor ent- 
wickelt, wird heute aber fast aus- 
schließlich im Zusammenhang mit 
dem Z80-Mikroprozessor von Zilog 
verwendet. Ihn benützen auch der 
CPC 464, 664 und der 6128. CP/M 
ist eine anwenderfreundliche Soft- 
wareschnittstelle, die eine von der 
Hardware unabhängige Benutzer- 
umgebung schafft. Deshalb setzt 
der Umgang mit Ihrem CPC unter 
CP/M keinerlei Vorkenntnisse der 
diversen Hardwarestrukturen des 
Computers voraus. 


V jele Käufer begnügen sich zum 





Selbstverständlich ist auch das im 
CPC 464 eingebaute Basic durch 
das Diskettenbetriebssystem Ams- 
dos (Amstrad Disc Operating Sy- 
stem) beziehungsweise Vdos (Vortex 
Disc Operating System) um einige 
Befehle erweitert worden, die die 
Arbeit mit einer Diskettenstation un- 
ter Basic in vollem Umfang erlau- 
ben. Mit Basic und Amsdos oder 
Vdos einerseits und CP/M 2.2 ande- 
rerseits, stehen Ihnen zwei Betriebs- 
systeme aufdem CPC 464 zur Verfü- 
gung. Vor allem für CP/M 2.2 gibt es 
mehrere Tausend qualitativ hoch- 
wertige Anwenderprogramme. Da- 
zu gehören fast alle Programmier- 
sprachen (Basic, Pascal, Fortran, 
Forth, Cobol, C), Textverarbeitungs- 
programme (Wordstar, Datastar 
etc), Datenbanksysteme (dBase 
etc.) und auch eine Vielzahl an As- 
semblern. Viele der Programme 
sind im 3-Zoll-Formät erhältlich, die 
meisten CP/M-Programme haben 
allerdings 5%-Zoll-Format. Alle un- 
gesicherten Programme, die Sie bis 
jetzt auf Kassette gespeichert ha- 
ben, können auf Diskette kopiert 
werden. Auch können Sie weiterhin 
den Datenrecorder benutzen, um 
zum Beispiel Dateien von Diskette 
auf Kassette zu sichern. Da es für 
den Schneider CPC 464 zur Zeit 
zwei verschiedene Diskettenforma- 
te gibt, stellt sich natürlich die Frage, 
welche Diskettenstation für welchen 
speziellen Anwendungsbereich die 
richtige ist. Es gibt eine 54-Zoll-Sta- 


tion von Vortex und die Schneider-3- 
Zoll-Laufwerke. Es sei gleich am Än- 
fang gesagt, daß keines der beiden 
Laufwerke, ob nun Schneider oder 
Vortex, dem anderen auf irgend ei- 
ne Art und Weise nachsteht. Um Ih- 
nen die Qual der Wahl etwas zu er- 
leichtern, erst einmal ein techni- 
scher Überblick. 


Disketten-Formate: 

Vortex: 

9 Sektoren/Spur 

ol2 Bytes/Sektor 

80 Spuren/Seite 

2 Seiten 

2 reservierte Spuren 

4 KByte Blöcke 

64 Directory-Einträge/Diskette 
Sektornummern |, 2........9 

4 ms Steprate 

720 KByte Gesamtspeicherkapazi- 

tät/ Diskette (unformatiert) 

Schneider: 

9 Sektoren/Spur 

5l2 Bytes/Sektor 

40 Spuren/Seite 

l Seite 

2 reservierte Spuren 

l KByte Blöcke 

64 Directory-Einträge/Diskette 
sektornummern 41,42.......,49 

l2 ms Steprate 

180 KByte Gesamtspeicherkapazi- 

tät/Diskette (unformatiert) 

Alle hier genannten Parameter 
können mit Hilfe eines speziellen In- 
stallationsprogramms geändert 
werden. Die Befehlserweiterungen 
beider Geräte sind sich sehr ähn- 
lich. Die neuen Befehle lauten: 

— CPM 

CP/M-Betriebssystem Starten 

— FORMAT 

Diskette formatieren 

— RESET (nur Vortex) 

schließt eine Datei und geht ins 
VDOS 

— 5 (nur Vortex) 

Wahl des Zweitlaufwerks (5% Zoll/ 
3 Zoll) 

— CODE (nur Vortex) 
re (Codeschlüssel) 


Macht Laufwerk A zum Default- 
laufwerk 


Macht Laufwerk B zum Defaultlauf- 
werk 

— DIR 

Listet den Disketteninhalt 

— ERA 

Löscht ein File oder eine Gruppe 
von Files 

— REN $ 

Ändert Namen von Files 

— SELECT (im Amsdos USER) 
Wahl des User-Bereichs und des 
Defaultlaufwerks 
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— DISC 

Ein- und Ausgabekanal sind der 
Diskettenstation zugeordnet 

— CAS (im Amsdos TAPE) 

Wie Disc, allerdings für Datenre- 
corder 

— DISCIN 

Der Eingabekanal ist der Disket- 
tenstation zugeordnet 

— CASIN (im Amsdos TAPE.IN) 
Wie Disc.in, allerdings für Daten- 
recorder 

— DISCOUT 

Der Ausgabekanal ist der Disket- 
tenstation zugeordnet 

— CASOUT (im Amsdos TAPE 
OUT) 

Wie Disc.out, allerdings für Daten- 
recorder 

— ATRIBUT 

Setzen von Fileattributen 

— DRIVE (nur Amsdos) 

Setzen des Standardlaufwerks 


Alle anderen Kassettenoperatio- 
nen sind weiterhin verfügbar. Es ist 
hierbei allerdings noch zu erwäh- 
nen, daß der Merge-Befehl bei der 
Schneider-\ersion nicht ganz ein- 
wandfrei funktioniert. Den Fehler 
kann man aber mit einer Software- 
Lösung umgehen. Vortex bietet den 
Vorteil, Fehlermeldungen ın deut- 
scher Sprache auszugeben. 

Wie sind die zusätzlichen Disket- 
tenoperationen nun aber eingebun- 
den? Für Eingeweihte sind die Aus- 
drücke »Sprungtabelle« und»Sprung- 
vektoren« nichts Neues. Der Kas- 
settenbetrieb wird über eine solche 
Sprungtabelle mit Vektoren verwal- 
tet. Damit alle Befehle, die die Kas- 
sette steuern auch auf Diskette wır- 
ken, werden die entsprechenden 
Sprungvektoren ersetzt. Das Be- 
triebssystem beinhaltet eine Basic- 
Erweiterung, die mit RSX ungebun- 
den ist. 

Da diese Befehlsnamen den resi- 
denten CP/M-Befehlen sehr ähnlich 
sind, braucht man sich meist nur ei- 
nen Befehlsnamen merken. Von 
Nachteil bei den RS&s ıst allerdings, 
daß Strings nicht direkt übernom- 
men werden dürfen, sondern ın eı- 
ner Vanablen definiert sein müssen. 
Mit dem @-Pointers wird die Adres- 
se dieser Variablen übergeben. Ein 
Beispiel: 

Löschen des Directory-Eintrages 
beziehungsweise des Programms 
TEST. 

Vorgehensweise: 

St= "TEST’ 

ERA, @s$ 

Beide Laufwerke benutzen den 
Controller uPD 768. 

Dieser Controller ist in der Lage, 
hardwaremäßig bis zu vier Laufwer- 
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Bild 1. Klein aber 
fein: die 3-Zoll- 
Station von 
Schneider 


Bild 2. Mehr als 700 
KByte Speicherplatz 
bietet das 5'4-Zoll- 
Laufwerk von 
Vortex 


Bild 3. Das ideale 
Zweitlaufwerk: 
3-Zoll-Gerät von 
Cumana 


Bild 4. Wer zwei 
Formate haben will 
braucht die 5'%-Zoll- 
Station von Cumana 
als Zweitlaufwerk 


ke (3, 3%, 5% oder 8 Zoll) mit Single- 
oder Double-Density zu verwalten. 
Hierbei dürfte allerdings die 8-Zoll- 
Double-Density von der Übertra- 
gungsrate her (500 KBit/s) für die 
Z80A-CPU wohl etwas zu schnell 
sein. Diese Vielseitigkeit mit ver- 
schiedenen Formaten macht es bei- 


Hardware 





den Firmen möglich, jeweils das an- 
dere Laufwerkformat kompatibel zu 
machen (Vortex zu 3 Zoll/Schneider 
zu 5% Zoll). | 
Weiterhin bietet der Controller 
die Möglichkeit, die Parameter der 
Diskettenformate zu verändern. Da- 
durch kann man Disketten von frem- 
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den Computern lesen beziehungs- 
weise beschreiben. Die Firma Vor- 
tex hat bereits das Programm Para 
auf dem Markt, wodurch man diese 
Parameter der Diskettenformate 
menügesteuert verändern kann. 
Schaut man die Laufwerke näher 
an, so bemerkt man zunächst einmal 
die unterschiedliche Speicherkapa- 
zität. Im Gegensatz zu der doppel- 
seitig beschreibbaren Diskette von 
Vortex mit einer Kapazität von 720 
KByte (unformatiert), erscheint die 
Speicherleistung von 180 KByte (un- 
formatiert) des nur einseitig schrei- 
benden Schneider-Laufwerks doch 
recht mager. Da die Zugriffszeiten 
vergleichbar sind, wird in erster Li- 
nie der benötigte Speicherplatz ei- 
nes Anwenders für die Wahl eines 
Laufwerks ausschlaggebend sein. 
Beide Laufwerke machen einen 
eher robusten Eindruck. Uhnter- 
schiede werden jedoch bei den Dis- 
ketten deutlich. Im Gegensatz zu der 


außerst stabilen 3-Zoll-Diskette 
(Schneider), die auch eine rauhe Be- 
handlung unbeschadet übersteht, 
verlangt die 5%-Zoll-Diskette (Vor- 
tex) eine vorsichtigere Handha- 
bung. 

Von beiden Firmen werden als 
Utilities für CP/M unter anderem 
ASM und DDT mitgeliefert. Das sind 
Programme, mit denen man Maschi- 
nenprogramme erstellen (ASM) und 
testen (DDT) kann, allerdings im 
8080-Code. 


x DOS mit Monitor 


Für Z80-Assembler bleibt die 


Möglichkeit, auf einen anderen AÄs- 
sembler/Monitor zurückzugreifen 
(zum Beispiel Mona/Gena von 
Schneider) oder aufein Vortex-Lauf- 
werk mit Betriebssystem 2.0 und 


" ROM-residentem Monitor. 


Wer VDOS 1.0 besitzt, ist nicht im 


Nachteil, denn laut Vortex wird es 
kostenlos gegen VDOS 2.0 ge- 
tauscht. Außer dem ROM-residen- 
ten Monitor hat man durch die Be- 
fehlserweiterung des CPC 664 noch 
eine schnellere Bildschirmausgabe 
zur Verfügung. 

Beide Laufwerke entsprechen 
dem heutigen technischen Stan- 
dard. Bezüglich der Zugriffszeit er- 
füllen sie gehobene Ansprüche, so 
daß sie für den professionellen Ein- 
satz durchaus geeignet sind. Jedes 
Format hat seine Vorteile. 3-Zoll-Dis- 
ketten sind zwar sehr teuer, aller- 
dings ist 3 Zoll das Herstellerformat, 
die Software wird in diesem Fall also 
immer zu kaufen sein. 

Wer sich nicht für ein Format ent- 
scheiden kann, dem sei der Zweit- 
laufwerk-Hersteller Cumana emp- 
fohlen. Dieser bietet preisgünstige 
Zweitlaufwerke (3 Zoll oder 5% Zoll) 
an. Sogar mit bis zu 1 MByte Spei- 
cherplatz, (Oliver Harms) 





Die Qual 


der Druckerwahl 





| Spielen Sie mit dem Gedanken, sich 
einen Drucker zu kaufen? Dann 

ı stehen Sie vor der schwierigen 
Entscheidung, sich einen bestimm- 


ten Drucker unter hunderten auszuwählen. 
Es gibt aber fundamentale Eigenschaften, 
die ein geeignetes Gerät besitzen muß. 


ne Weise mit Ihrem Computer 
verbunden werden. Auf dem 
Markt gibt es zwei verschiedene 
Anschlußnormen: 
— Drucker mit V24/RS232-Schnitt- 
stelle 
— Drucker mit Centronics-Schnitt- 
stelle. 

Für Schneider-Computer sind nur 
Drucker mit Centronics-Schnittstel- 
le geeignet. Sobald ein Gerät aber 
diesen Anschluß besitzt, können Sie 
jeden beliebigen Drucker wählen 
— egal ob er nun das Kürzel »CPC« 


J eder Drucker muß auf irgendei- 


im Namen führt oder nicht. 








Es erleichtert die spätere Arbeit 
sehr, wenn Ihr Wunschdrucker den 
normalen »ASCIIZeichensatz« be- 
herrscht. Dazu gehören auch die 
steuerzeichen mit den Codes 0D 
hex für »‚Wagenrücklauf« und 0OAhex 
für »Zeilenvorschub«. Sollte ein be- 
stimmtes Zeichen (beispielsweise 
ein»Ä«) im Computer einen anderen 
Code haben als im Drucker, dann 


müssen Sie eine Übersetzungsrouti- 


ne in das CPC-Betriebssystem ein- 
bauen. Diese Lösung ist aber wirk- 
lich nur etwas für Programmierspe- 
zialisten. Als Anfänger oder als Nur- 
Anwender werden Sie mit dieser 
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Lösung nicht glücklich werden. Es 
lohnt sich also, daraufzu achten, daß 
der Drucker den ASCII-Zeichensatz 
beherrscht. Wenn Sie keine allzu 
exotische Herstellerfirma wählen, 
dürfte es damit aber keine Schwie- 
rigkeiten geben. 

Die Firma Schneider bietet zum 
Preis von etwa 50 Mark selbst ein zu 
Centronics-Druckern passendes Än- 
schlußkabel an. Wenn Sie dieses 
aber nicht kaufen wollen, dann müs- 
sen Sie es sich selbst basteln. Das 
Anschlußschema finden Sie in den 
Handbüchern; das des Schneider 
CPC 464 im Anhang 5 auf Seite 2. 

Manche Drucker führen bei ei- 
nem Wagenrücklauf (CR) automa- 
tisch einen Zeilenvorschub (LF) aus. 
Die Schneider-Computer senden je- 
doch zum AÄnfangen einer neuen 
Zelle ein separates Vorschubzei- 
chen aus. Fehlt dieses, kann man 
zum Beispiel eine Zeile zweimal 
überdrucken. Ein Drucker mit auto- 
matischem Zeilenvorschub führt in 
Zusammenarbeit mit Ihrem Schnei- 
der den Zeilenvorschub doppelt 
aus. Das heißt, es wird jedesmal ei- 
ne Leerzeile produziert. 

Achten Sie also darauf, daß bei Ih- 
rem Drucker dieser automatische 
Zeilenvorschub abschaltbar ist. Bei 
manchen funktioniert das durch 
Umschalten eines Dip-Schalters 
(meist im Inneren des Druckers). Bei 
anderen hilft das Unterbrechen der 
Leitung, die zum Anschluß mit der 
Nummer 14 des Centronics-Stek- 
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kers führt »AUTO FEED XT«-Lei- 
tung). Beim original Schneider-An- 
schlußkabel ist diese Unterbre- 
chung schon vorhanden. 

Wenn Sie mit Ihrem Computer nur 
Texte ausgeben wollen, dann ge- 
nügt es, wenn er den Standard- 
ASCII-Zeichensatz beherrscht. 
Eventuell sollten Sie aber darauf 
achten, daß er auch den deutschen 
Zeichensatz kennt. Die Zeichen 
»@[\]il]-« werden dann durch die 
Zeichen »$AOUäöüß« ersetzt. 

Wollen Sie aber alle Zeichen — 
das heißt auch die Sonderzeichen — 
auf dem Drucker ausgeben, dann 
sollte er die speziellen Schneider- 
Grafikzeichen ebenfalls im ROM ha- 
ben. In der Regel sind das nur 
Drucker, beidenen der Satz»anden 
Schneider CPC 464/664/6128 ange- 
paßt« explizit in der Funktionsbe- 
schreibung auftaucht. 

Manche Drucker erlauben es, ei- 
nen eigenen Zeichensatz zu definie- 
ren. Lassen Sie sich mit dieser an 
sich positiven Eigenschaft jedoch 
nicht von einem Händler ein- 
wickeln, wenn sie aufdie Schneider- 
Grafikzeichen Wert legen. Denn 
wenn Sie kein Profi sind, ist die eige- 
ne Definition von 127 Grafikzeichen 
eine rechte Fleißarbeit. Übrigens 
kann der »%-Profi« eigene Zeichen 
auch ohne diesen frei definierbaren 
Zeichensatz selbst erzeugen: Man 
ändert einfach die Betriebssystem- 
routine für die Druckerausgabe so 
ab, daß vor einem Grafikzeichen 
der Drucker in den Grafikmodus 
umgeschaltet wird und dieses Zei- 
chen im »Bitbildmodus« geplottet 
wird. 

Achten sie jedoch darauf, daß all 
diese Funktionen mit Codes ange- 
steuert werden, deren Wert kleiner 
als 127 ıst. Der 7 Bit breite Drucker- 
port des Schneider kann nämlich 
Yo größer als 128 nicht ausge- 

en. 


Der Zeichensatz wird 
durch ein Steuerzeichen 
umgeschaltet 


Im Schneider-Drucker NLO401 
wird dazu ein interessanter Trick 
benutzt: Durch einen Steuercode 
wird der normale Zeichensatz samt 
den normalen Steuerzeichen abge- 
schaltet und die Grafikzeichen mit 
Codes zwischen 128 und 255 auf die 
freigewordenen Codes mit kleinen 
Nummern gelegt. Erst durch ein 
weiteres Steuerzeichen wird der 
normale Modus wiederhergestellt. 
So können Sie die Verwendung des 
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Am Schneider-Drucker muß sich die Konkurrenz messen 


achten Bits umgehen. Ihr Drucker 
sollte etwas Ähnliches aufweisen. 

Wenn Sie später einmal vorhaben, 
eine Bildschirm-Hardcopy auszu- 
drucken (auch wenn Sie jetzt noch 
nicht wissen, wie das funktioniert), 
dann muß Ihr Drucker grafikfähig 
sein. Und die nötige Software muß 
es zu kaufen geben oder das Gerät 
zumindest leicht zu programmieren 
sein. 


Grafikfähige Drucker 
als Voraussetzung 


Achten Sie aber auch hier darauf, 
daß die Grafikausgabe mit Codes, 
die einen Wert unter 127 haben, er- 
folgt. Bei vielen Druckern wird näm- 
lich das achte Bit (Wert größer als 
127) benutzt, das die Schneider ge- 
rade nıcht angeben können. 

Noch ein paar Hinweise sınd wıch- 
tig: Investieren Sie ruhig 100 Mark 
mehr für einen schnellen Drucker. 
Während des Wartens auf das Ende 
eines Listings ist schon viel Wasser 
den Rhein hinuntergeflossen — be- 
sonders wenn der Drucker keinen 
Traktor hat und man vor dem 
Drucker ausharren muß, um alle 
halbe Minute ein neues Blatt von 
Hand einzuspannen. 

Merken Sıe sıch: Je schöner die 
Schrift, desto langsamer ist der 
Drucker (bei konstantem Preis). Der 
standard für Schnellschrift liegt zur 
Zeit beietwa 100 Zeichen pro Sekun- 
de — für Schönschrift bei etwa 20 
Zeichen pro Sekunde. 

Schätzen Sie vor dem Drucker- 
kauf Ihren Papierbedarf und schla- 
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gen sie mindestens das Doppelte 
dazu (Sie haben noch gar keine Vor- 
stellung davon, was so ein Drucker 
alles ausdrucken kann). Den Kauf- 
preis für den Drucker sollten Sie 
dann immer zusammen mit dem 
Preis für das eventuell notwendige 
Spezialpapier berechnen. Sie wer- 
den sıch wundern, wie teuer dann 
ein ach so günstiger Thermo- 
drucker wegen des Spezialpapiers 
wird. Übrigens: Spezialpapier ist 
grundsätzlich samstags, fünf Minu- 
ten nach Ladenschluß zu Ende. Es 
soll schon Leute gegeben haben, 
die Ihre Listings in so einem Fall auf 
Toilettenpapier ausgedruckt haben. 

Wenn Sie Briefe schreiben wollen, 
dann sollten Sie auch daraufachten, 
daß Sie ungelochte Einzelblätter 
einspannen können. Nicht alle 
Drucker lassen sich mit einem Ein- 
zelblatteinzug aufrüsten. Das Ein- 
spannen einzelner Blätter wird mit 
wechselnder Zahl der Briefe lästig. 
Und alle Extras kosten Geld. 


Farbe lohnt sich selten, 
kostet viel 


Ein Farbdrucker lohnt sich nur, 
wenn Sie viele Grafiken ausdrucken 
möchten und sich gut auskennen. 
Ober Sie bekommen die entspre- 
chende Grafik-Software gleich mit- 
geliefert. Aber auch in diesem Fall 
sollten Sie sich genauestens über 
den Preis und die Haltbarkeit des 
Spezialfarbbands im Vergleich zu 
einem schwarzen Farbband infor- 
mieren. 





un EEE 


(Helmut Tischer) 


un 
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Was Sie schon 
immer über 
Joysticks 
wissen wollten 


9 Eine Joystick- 
x<.91 buchse hat 
1 Ihr Computer 
auch. Aber 
was ist, wenn Sie zu 
zweit spielen wollen? 
Der Schneider-eigene 
Joystick ist für Spiele- 
fans keine Lösung. 





nur halb so schön. Fast unent- 

behrlich für die Bedienung 
von Grafikprogrammen, ist er auch 
als Alternative zur Maus nicht zu un- 
terschätzen: der Joystick. 

Wer aber weiß schon genau, wie 
so ein »Steuerknüppelk funktioniert! 
Wie erfaßt der Computer die Da- 
ten? Was ist zutun, wenn der Joystick 
seinen Geist aufgibt? Gerade bei 
den Schneider-Computern gibt es 
hier Probleme. Es funktionieren 
nämlich einige handelsübliche Joy- 
sticks nicht auf Anhieb. Auch können 
nicht ohne weiteres zwei Steuer- 
knüppel gleichzeitig betrieben wer- 
den — es sei denn, man benutzt die 
original »Schneider-Sticks«. 

Machen Sie mit uns eine Reise 
durch das Innenleben eines Joy- 
sticks, und sehen Sie, wie einfach 
Probleme gelöst werden können. 

Einsteigen wollen wir mit dem Joy- 
stickport, an dem die Daten ankom- 
men und an den Computer überge- 
ben werden. 

Ein kleines Programm, um den 
Port richtig testen zu können, ist hier 
recht nützlich: »1l0O PRINT JOY(0), 
JOY() : GOTO 10«. 

Nachdem es mit »RUN« gestartet 
wurde, erscheinen auf dem Bild- 


O:: ihn sind Computerspiele 




















l oben 4 rechts 7 Feuer | 
2 unten ;— 


3 links 6 Feuer? 


Bild 1. So ist der Schneider- 
Joystick-Port belegt 





steuert den Computer 





8 Common]! 
9 Common2 | 








schirm zwei Zahlenreihen. Die linke 
zeigt den aktuellen Wert für den Joy- 
stick 1 an, die rechte Reihe für den 
Joystick 2. Zum Testen nehmen Sie 
nun ein kurzes Stück Kabel und ver- 
binden die Pins des Joystickports 
beliebig miteinander. Dazu halten 
Sie einfach die Kabelenden daran — 
keine Ängst, es kann Ihnen und dem 
Computer nichts passieren. Be- 
trachten Sie nun die auf dem Bild- 
schirm angezeigten Werte, so stel- 
len Sie fest, daß nur bestimmte Kom- 
binationen einen anderen Wertals0 
ergeben. Diese Werte ungleich 0 
sind Eingangsdaten, die nach fol- 
genden Voraussetzungen entste- 
hen: Auf Bild 1 sehen Sie die Bele- 
gung des Anschlusses von Pin 1 bis 
Pin 9. Halten Sie Ihr Kabel nun ein- 
mal mit einem Ende an Pin 8 und mit 
dem anderen der Reihenfolge nach 
an die Pins 1 bıs 7. Sie werden se- 
hen, daß aufdem Bildschirm nun un- 
terschiedliche Werte für Joystick 1 
(linke Zahlenreihe) angezeigt wer- 
den. Diese Werte sind in der Varia- 
blen JOY(0) abgelegt. Legen Sie nun 
das Kabel von Pin 8 auf Pin 9 und 
wiederholen Sie den Vorgang. 

Sie sehen, daß sich nun verschie- 
dene Werte für den anderen Joy- 
stick JOY(l)) ergeben haben. Tabel- 
le | zeigt, welche Werte durch Ver- 
bindung der Pins 1 bis 7 mit Pin 8 
und 9auftreten. Verbindet man meh- 
rere Pins (] bis 7) mit den Massepins 
(8 oder 9), so wird der Variablen 
]JOY(x) die Summe der Einzelwerte 
zugewiesen. Auf diese Weise lassen 
sich nun alle Zahlen zwischen 0 (kei- 
ne Verbindung) bis 127 darstellen. 
Diese Variante, Daten über den Joy- 
stickport an den Computer zu über- 
mitteln, eröffnet neue Wege der Da- 
teneingabe. Wir wollen uns jedoch 
hier nur mit dem Anschluß von Joy- 
sticks beschäftigen. Im Inneren 
solch eines Peripheriegerätes ge- 
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schieht nichts anderes, als daß ver- 
schiedene Kontakte geschlossen 
werden, die vom Computer als Rich- 
tung und »Feuer« interpretiert wer- 
den (Tabelle 2). Zwischenrichtun- 
gen (beispielsweise links oben) wer- 


‚den durch gleichzeitiges Verbinden 


der entsprechenden Kontakte 
(auslinks=4undoben=1 ergibtsich 
links oben =5) erreicht. 

Wie nun ein Kontakt geschlossen 
wird, daran unterscheiden sich die 
verschiedenen Joysticks. Hier ist 


dem Erfindungsgeist kaum eine 


‚Grenze gesetzt. Eine der stabilsten 
Lösungen ist die Verwendung von 
Mikroschaltern. Diese robusten Ta- 
ster versprechen eine lange Nut- 
zungsdauer und lassen sich bei ei- 
nem Defekt problemlos ausbauen 
und erneuern (Bild 2). Aber Qualität 
hat auch ihren Preis und deshalb 
sind solche Joysticks (zum Beispiel 


' der Competition Pro) auch nicht bil- 


lig. Die sogenannten Metallzungen- 


‚kontakte, eine häufig verwendete 


Bauart, sind im Bild 2 an den Feuer- 
knöpfen zu sehen. Diese Art von 
Kontakten werden bei vielen Joy- 


- sticks auch für die Richtungsschal- 


tung verwendet. Die Haltbarkeit er- 
wies sich zwar als nicht so hoch wie 
bei Mikroschaltern, was der niedri- 
gere Preis aber ausgleicht. 

Eine ganz andere Konstruktion 
sind sogenannte Quecksilberschal- 
ter. Solch ein Schalter besteht ausei- 
nem Glasröhrchen, in dessen Inne- 
ren sich ein Quecksilbertropfen be- 
findet. Je nach Neigung fließt diese 


. anein Ende des Röhrchens und ver- 


bindet dort zwei Kontakte. Der Strom 
kann fließen (Bild 3). Diesen Schal- 
ter findet man zum Beispiel im »The 
Stick«, der nur aus einem Griff be- 
steht und dadurch etwas gewöh- 
nungsbedürftig ist. 

Es gibt also verschiedenste Funk- 
tionsprinzipien. Wie gesagt, funktio- 
nieren nicht alle direkt am Schnei- 
der. Verschiedene Computer fas- 
sen nämlıch die Steuersignale ver- 
schieden auf. Das sollte aber kein 
Grund sein vom Kauf solch eines 
Joysticks zurückzuschrecken. Ist das 


‘ Funktionsprinzip einmal verstan- 


den, braucht man den Joystick nur 
noch aufschrauben und die entspre- 
chenden Kontakte auf Schneider- 
Norm umstecken beziehungsweise 
umlöten. Welches Kabel an welchen 
Kontakt führt, das stellen wir am ein- 
fachsten mit einem: Widerstands- 
meßgerät fest. Alternativ reicht 
auch eine Taschenlampenbirne mit 
Kabel und Batterie. Pin 1 muß mit 


dem Schalter »oben« verbunden 


werden. Dazu reicht meistens ein- 





fach das Umstecken — gelegentlich 





läßt sich jedoch der Einsatz eines 
Lötkolbens nicht vermeiden. Die an- 
deren Kabel werden genauso be- 
handelt. Pin 2 ist dabei mit »unten«, 
Pin 3 mit »links«, Pin 4 mit »rechts«, Pin 
6 mit »Feuer 2 «und Pin 7 mit »Feuer 
l« belegt. Pin 8liefert Masse für den 
ersten Joystick, Pin 9für den zweiten. 
Man kann sich also zwei verschiede- 
ne bauen. Tun Sie das aber nicht. 
Wir wollen den Adapter so gestal- 
ten, daß er die Auswahl (l oder 2) 
macht. Wir benützen für Masse nur 
Pin 8. Eins sollte man noch beden- 
ken: Beim Aufschrauben erlischt die 
Garantie für den Joystick. 
Grundsätzliche Schwierigkeiten 
gibt es beim »Quickshot Il«. Dieser 
Joystick ist mit einer »Äutofeuer« 





Tabelle 1. 
Die Werte der verschiedenen Kontakte 


Funktion Joystick 2 
Masse = 


Pin 9 


Joystick 1 
Masse = 
Pin 8 
oben l 
unten en 
links 4 
rechts 8 
Feuer 16 32 
Das Signal von Pin 5 (Wert=64) wird für 

die Joystickabfrage nicht benötigt. 


| Tabelle 2.Die Werte der Joystickabfrage 














Funktion ausgestattet. Das » Autofeu- 
er« wird von einer Triggerschaltung 
erzeugt, die eine Spannung von5V 
benötigt. Der Schneider gibt, im Ge- 
gensatz zum C64, diese über den Joy- 
stickport nicht aus. Somit ist dieser 
Joystick für den Schneider-Besitzer 
von vorneherein uninteressant. 
Höchstens man legt zwischen 


Hauptstromversorgung und 5-V-Ein- 


gang eın Kabel, 


Was Jetztnoch fehlt ist der Adapter 
für den Anschluß von zwei Joysticks, 
Zuerst besorgt man sich einen 
I9poligen weiblichen Stecker wie er 
am Joystick-Kabel zu finden ist. Fer- 
ner zwei männliche Stecker und 14 
kurze Kabelstücke. An die männli- 
chen Stecker werden die Joysticks 
gesteckt, der weibliche wird auf die 
Buchse des Computers gesteckt. An 
dıe Pins | bis 4 und 6 sowie 7 des 
weiblichen Steckers lötet man je- 
weils zwei Drähte, an die Pins 8 und 
9 hingegen nur einen. Pin 5 bleibt 
unbenutzt, Die Pins | bis 4, 6und 7 
der männlichen Stecker werden di- 
rekt mit einem der jeweils zwei Ka- 
bel des weiblichen Steckers ver- 
bunden. Der Draht von Pin 8 gehört 
zum Stecker des Joystick | (auch Pin 
8), der von Pin 9 wird mit Pin 8 des 
Joystick 2 verlötet. Die Belegung fin- 
den Sıe ım Bild 4 Zum Austesten 
dient wieder unser kleines Pro- 
gramm vom Anfang. Bedingung da- 
für, daß die Schaltung funktioniert, 
ist, daß der Joystick an Pin 1 bis 4 die 
Richtung, Pin 6 und 7 Feuer und Pin 


8 Masse zur Verfügung stellt. Bei 


den Schneider-Joysticks benutzt der 
erste nur»Feuer l«, der zweite hinge- 
gen »Feuer Au, (Alfred Otto) 
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Mehr Speicher für den CPC 


| Eine Erweiterung, die den Speicher 
des »CPC 464« bis auf 576 KByte 
| aufbläst, sorgt dafür, daß größere 
CP/M-Programme nun auch auf dem 


kleinsten Schneider-Computer laufen. 


e Vortex-Speichererweiterung 
D: den CPC 464 wird in ver- 

schiedenen Ausbaustufen ge- 
liefert. Eine Erweiterung mit 512 
KByte kostet 589 Mark, 320 KByte 
sınd für 528 Mark zu haben, bei 256 
KByte reichen schon 478 Mark, bei 
128 KByte 348 Mark und bei 64 KBy- 
te 275 Mark. 

Neben der eigentlichen Karte, auf 
der auch bei den kleinen Ausfüh- 
rungen die Sockel für den Vollaus- 
bau von 512 KByte vorhanden sind, 
bekommt man ein dünnes Hand- 
buch, eine Kassette mit der System- 
software, ein Kühlblech und eine 
Isolierfolie. Die Erweiterung wird in 
den Computer eingebaut, was je- 
doch wegen der guten Bauanleitung 
nicht allzu schwer ist. Leider erlö- 
schen dadurch die Garantieansprü- 
che an den Computer-Hersteller. 
An Werkzeug wird lediglich ein 
Kreuz- und ein Schlitzschrauben- 
dreher benötigt. 

Ob alles ordnungsgemäß funktio- 
niert, erkennt man gleich an der 
neuen Einschaltmeldung. Bei der 
hier vorgestellten 256-KByte-Version 
erscheint unterhalb der üblichen 
Einschaltmeldung ein Rechteck mit 
folgendem Inhalt: 





vortex RAM-Expansion Card ID 
5 160 128 -K 
Bks Prgm Data Spl 


Jetzt sind auch die 37 neuen Basic- 
Befehle verfügbar. Darunter befin- 
den sich beispielsweise Grafik-Be- 
fehle wie FAST, SLOW, FRAME, 
GCHAR, GRAPER, GPEN, MASK 
und UNMASK, die aus dem 464 
schon beinahe einen 664 machen. 
Leider fehlt der FILL-Befehl, der auf 
dem CPC 464 softwaremäßig nicht 
ohne weiteres nachzubilden ist. Be- 
merkenswert ist dagegen die Än- 
weisung FAST, die die Bildschirm- 
ausgabe um den Faktor 2 be- 
schleunigt. Alle anderen Befehle 
(mit Ausnahme von MON) sind für 
die Arbeit mit dem erweiterten Spei- 
cher gedacht. Mit ihnen kann man 
beispielsweise eine relative Datei 
im Speicher eröffnen und verwalten. 
Erstmals lassen sich auf dem CPC 


464 Unterprogramme mit lokalen 
und globalen Variablen schreiben. 
Leider ist es unmöglich, die einzel- 
ne Variable als COMMON (allge- 
mein gültig) oder lokal zu definie- 
ren. Es werden immer ganze Berei- 
che behandelt, wie bei den bekann- 
ten Funktionen DEF INT, DEF STR 
und DEF REAL des Schneider-Ba- 
sic. Der Zeitbedarf für das Umschal- 
ten zwischen den einzelnen Bänken 
ohne Variablenübertragung liegt 
bei Y2s Sekunden pro Schaltvor- 
gang. Somit können verschiedene 
Programme gleichzeitig im Spei- 
cher gehalten und getrennt bear- 
beitet werden. Der Befehl SPOOL 
ON richtet einen 32 KByte großen 
Druckerpuffer ein, der zwar den 
Hauptspeicher verkleinert und zu 
Lasten der Rechengeschwindigkeit 
geht, aber diese Einbußen lassen 
sıch, in Anbetracht der deutlich ge- 
ringeren Wartezeiten beim Aus- 
drucken von Dateien und Listings, 
leicht verschmerzen. 

Doch nun zum CP/M: Zuerst muß 
eine neue Systemdiskette für das 
CP/M mit 62 KByte Speicherplatz er- 
zeugt werden. Man erhält dann eine 
Diskette mit folgenden Files: 
SOSCSYS | 1l2K 
SPOOLCOM ıK 
RAMDISKCOM ıK 

Die Datei $OSC.SYS wird bei den 
Benutzern der Schneider-Disketten- 
station keine Begeisterung auslö- 


Die ganze Platine 
verschwindet im 
Gehäuse 


sen, denn sie verkleinert den ohne- 
hin knappen Speicherplatz noch 
weiter. Alle weiteren Systemdisket- 
ten werden nun als Kopie dieser Dis- 
kette bevorzugt. Das Programm 
»Sptest« überprüft die einzelnen 
Speicherplätze auf Fehler. Dabei 
wird jede Adresse des erweiterten 
Speichers mit einem Wert beschrie- 
ben und später wieder gelesen. 
stimmt der ausgelesene Wert nicht 
mit dem eingeschriebenen überein, 
so Ist die Speicherstelle defekt. 
»Sptest« meldet das mit Angabe der 
Speicherstelle, dem Soll- und dem 
Istwert. Aufdiese Weise werdenalle 
vorhandenen Bänke getestet. | 
Es bleibt die Frage der Kompatibi- 
lität zu den alten Programmen. Dies- 
bezüglich von der Firma Schneider 
nicht unbedingt verwöhnt, sind die 
Erwartungen an die Vortex-Erweite- 
rung ziemlich hoch angesetzt. Alle 
Basic-Programme arbeiten pro- 
blemlos. Unter CP/M ist das anders, 
denn hier stellen sich manchmal un- 
gewöhnliche Effekte ein. So kann 
man normalerweise mit der Änwei- 
sung »DISCCOPY« auch unforma- 
tierte Disketten beschreiben. Nach 
dem Einbau der Speichererweite- 
rung wird die Formatier-Routine 
nicht mehr aufgerufen. Auch Pro- 
gramme, die die letzten vier Byte un- ° 
ter HIMEM (Adressen 42615 bis 
42619) benutzen, laufen nicht mehr 
korrekt. Diese vier Adressen benö- 
tigt nämlich die Systemerweiterung. 
Das abschließende Urteil kann 
nur lauten: Sehr empfehlenswert für 
alle, denen 64 KByte RAM einfach zu 
wenig sind. Das weitere Aufrüsten 
der kleineren Versionen der Karte 
ist problemlos mitdem RAM-undei- 
nem Logik-Baustein möglich. Auch 
für den 664 sind die Erweiterungen 
zum gleichen Preis erhältlich — al- 
lerdings ohne Basic-Erweiterung. 
Diese wird 1986 als EPROM für zirka 
40 Mark nachgeliefert.(Alfred Otto) 
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Keine 
Eingabefehler 
mit »Explora« 


Mit einer Prüfsumme wird je- 
de Zeile, die Sie eingeben, 
überwacht. Fehler im Listing 
sind damit fast unmöglich. 


Wenn Sie das Programm »Explora« abtippen, haben Sie eine 
wertvolle Eingabehilfe. Eine Maschinencode-Routine über- 
wacht Ihre Arbeit daraufhin, ob sämtliche Zeichen (auch Steu- 
ersymbole) sowie Leerstellen und Zeilennummer korrekt im 
Speicher stehen. Nach Beenden einer Zeile mit Enter wird di- 
rektin die untere linke Ecke des Bildschirms die vierstellige He- 
xadezimalzahl angezeigt, die Sie im Listing in der eckigen 
Klammer neben jeder Programmzeile finden. 

Voraussetzung für die Überwachfunktion ist allerdings, dal 
Sie die Programmzeile genauso eingeben, wie sie abgedruckt 
ist. Abkürzungen, die vom Interpreter auch verstanden wer- 
den, dürfen Sie nicht benutzen (also kein »?« für »PRINT«). Auch 
müssen Sie große und kleine Buchstaben wie vorgegeben ein- 
tippen. Der Interpreter würde für »PRINT« auch »print« akzep- 
tieren — Explora hingegen nicht. Steuerzeichen und mehrere 
Leerzeichen, die in Strings aufeinander folgen, sind in ge- 
schweiften Klammern im Klartext angegeben. So bedeutet |5 
Space), daß an dieser Stelle fünfmal die Leertaste gedrückt 
werden muß. |CTRL A] bedeutet, daß die Ctrl-Taste gemeinsam 
mit dem »A« gedrückt werden muß (siehe im Beispiellisting Zei- 
le 430 und 440). Aber Vorsicht, daß Sie solch ein übersetztes 
Zeichen nicht mit dem ASCIl-Sonderzeichen »|« beziehungs- 
weise »]« verwechseln. Die Bedeutung der geschweiften 
Klammer erkennen Sie aber leicht, denn als ASCII-Sonderzei- 
chen steht sie meist allein. Im anderen Fall umschließt sie Con- 
trol-Zeichen oder Leerfelder. Der AUTO-Befehl darf übrigens 
nicht verwendet werden, da sonst die Prüfsumme falsch be- 
rechnet wird. 

Da die Tastatur der Schneider-Computer sehr leicht umdefi- 
niert werden kann, arbeitet jeder Benutzer mit einer anderen 
Tastenbelegung. Alle Listings in diesem Heft sind deshalb mit 
dem ASCIl-Zeichensatz ausgedruckt. Deutsche Sonderzei- 
chen werden dabei als Klammern oder andere amerikanische 
Sonderzeichen interpretiert. Benutzen Sie eine deutsche Ta- 
statur, so dürfen Sie anstelle dieser Zeichen die deutschen 
benutzen. Explora merkt dies. Welche amerikanischen und 
deutschen Zeichen sich entsprechen finden Sie in Tabelle 1. 
Das Zeichen » - « (für das »ß«) wird mit Gtrl 2 aufgerufen. 

Listing 1 ist die Routine für die Prüfsumme. Diese liegt ab 
Adresse 40960 im Speicher. Das Basic-Lader darf gelöscht 
werden. Eingeschaltet wird Explora mit »POKE & AO1F,&F5«, 
ausgeschaltet mit »POKE &AO1F,&C9«. Probleme kann es nur 
bei Listings geben, die ein Maschinencode-Programm (das 
sind die Basic-Lader) erzeugen. Eventuell funktioniert der 
MEMORY-Befehl nicht richtig. In diesem Fall darf er ersatzlos 
gestrichen werden. Beim Speichern der Binärfelder müssen 
alle Adressen aber genau beachtet werden. 

Der Übersicht halber sind die Zeilen-Nummern nach links 
herausgezogen. Die eigentlichen Befehle beginnen immer 
nach einer Leerstelle hinter der Zeilennummer. Listing 2 zeigt 
fünf Zeilen als Beispiel. Übrigens: Alle Programme können 
auch wie gewohnt, ungeprüft, eingegeben werden. (hg) 














Eingabe-Hinweise 


Sonderzeichen FR 
amerikanische 


deutsche 


n 
A 
Ö 
Ü 
ä 
Ö 
uU 
B 


Das SIR „a steht für »1« 





Tabelle 1. Die deutschen und die amerikanischen 
Sonderzeichen im Vergleich 


u 2 0 22020002022 2 SZ 2 2 2 2 2 2 0 2 2 2 2 2 02 2 02 


Fuer Schneider CPFC 
464, 564 und 5128: 


Happy-Computers 


ee ee een 
METER 


ic) Martin Kotulla 


14... own 
158 MEMORY 48959 
158 aa i=40958 TO 41B94:READ a:POKE i,a 


:NEX 
run POKE L1SQB,LCD:FOKE &i61,&B:POKE %152 
:POKE %163, 3A 
iss 2 FOKE ilö4, &2: :POKE &145,&C08:POKE &i16%& 
ee &167, &öD 
178 POKE #148, &1:POKE 147,8: CI: CALL 1508 
20808 cpcversion=PEEK (&1&D) 
218 IF cpcversion=8 THEN 298 
228 IF cpcversion“>i1 THEN 248 
2358 FOKE ZABBS„&S5B:FOKE KABIS,„&SB: POKE & 
AB17,&5C 
248 FOKE &AB24 ,&BA:POKE &ABSS,„&BA 
258 GOTO 298 
258 IF cpcversion{>Z THEN PRINT "Kein CP 
C-454/b564/5128'":END 
278 POKE %ABBA,„&5E:POKE KABI1SI„&S5SE:POKE & 
ABLI.,&SF 
288 POKE L.AQ24 ,&BA:FOKE KABZS,&BA 
2978 FRINT:PRINT:FPRINT "Checksummer ist a 
ktiviert'!" 
388 FRINT:PRINT 
‚ur5" 
318 PRINT:PRINT 
„&EFR"=:PRINT 
328 CALL 2ABBS ' Checksummer einschalten 
er DATA 220 ,2%:20,2:00,2:00,8:090,%&21,%&3A,&BD 
02 ,2.AQD,&Bi, "203, ’220, &ED, "250 
Ko DATA USE „EC3,RS2, KA, &BD, u21,&1C, AB 
‚#22,&3B,&BD,&C7 "ECD.2B2 AD, F5 
350 DATA &C5, £D5,&ES,&B1, uAA, SAC ,%21 ,&00 
‚BOQ,&:BA,&SF, "216 ‚200,5:17,&205,&FE 
368 DATA xD00, 220,&F5,&DD,&21,&A4,&AC,&B1i 
‚200,500 ‚&DD,&7E, ‚2a, ‚uSF, ‚ib, ‚200 
378 DATA" 19,&84,&F5, Ag, &A7, &F1,&997,&DD 
00,%20, ‚LED, ‚2 3E,&OD, "&CD 
"25A, &BB,&3E, DA, &CD, &5A,&BB,&3E 
„&5A,&BB,&7C,&CD "876 ,&AD 
398 DATA &7C, &CD, "&7A,&AD, %&7D,&CD,&76,&AB 
«&7D,&CD,&7A, ‚&AQ, &3E „&5D,&CD,&5A 
400 DATA %BB,KEi '&D1.&C1.&F1.8&09, LiF„&1F 
„KiF,kiF,„&Eb,&OF,„&C5,„&3SQD,&#FE,&3A 
410 DATA" &38,402, LCh, 07. "LC3.LSA, &BB 
428 END 


"Einschalten: POKE %ABiF 


"Ausschalten: POKE ZABiF 





Listing 1. »Explora« macht Fehler fast unmöglich 


DATA &BB,&E1,%&D1,&C1,&F1,%&C9,&1F,&iF 
‚siF, LIF,&ES, ‚SOF Ch, ‚230, &FE, 3A 
DATA %38,482,&C5,%07, &C3, LSA, & BB 


' NEW 
"XCTRL AFTCTRL YIECTRL YIECTRL 


PRINT 
A>" 
PRINT "(5 SPACEIWWIL" 


[C4C8B] 
[555C] 
[CEE48] 


C8DB8] 
[8CDE)] 





Listing 2. Im Beispiel müßten Sie die Zeile 400 wie folgt 
eingeben (MODE 1): | 
400 DATA &BB,&E1,&D1,&C1,&F1,&C9,&1F,&1F 
‚SIF&iF,&E6,&0F,&C6,&30,&FE,&3A. 

Zeile 430 besteht in der PRINT-Anweisung aus den vier 
Tastendrucken Ctrl A, Ctri Y, Ctrl Y und Ctri A. Zeile 440 
aus dem String ” ww” 


R 
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Datenfernübertragung 
muß nicht teuer sein 


Zur Datenfernübertragung brauchen 
Sie einen Computer, ein Modem, 

7 eine Verbindung zwischen beiden 

| und ein DFÜ-Programm. Den Com- 


puter haben Sie und das Modem müssen 


le ist speziell für den 300-Baud- 

w Betrieb ausgelegt. Trotzdem 
kann sie per Software auf 1200 Baud 
umgestellt werden. _ 

Der Preis für unsere Bastelei rich- 
tet sich hauptsächlich nach dem ein- 
gesetzten Spannungswandler. Mit 
Bausteinen der Serie 75188 und 
15189 ıst sie günstiger (maximal 100 
Mark). Allerdings braucht man 
dann von außen Spannungen und 
zwar +12 Volt und -12 Volt. Mit dem 
integrierten Spannungswandler 
NM232C steigt zwar der finanzielle 
Aufwand um zirka 30 bis 40 Mark, 
aber man braucht auch nur eine 
Stromversorgung mit 5 Volt. 

Kernstück der Schnittstelle ist der 
integrierte Seriell/parallel-Wandler 
6850. Er wird über zwei Register 
programmiert und bedient. Von Ba- 
sic aus geht das mit den Befehlen IN 
und OUT. Ein weiterer wichtiger Teil 
der Schaltung ist der Frequenzge- 
nerator. Er erzeugt mit einer Stan- 
dard-Quarz-Schaltung die Frequenz 
von 2,4576 MHz. Diese liefert, je 


D: hier vorgestellte Schnittstel- 


| Bitı 


Sie kaufen. Den Rest bekommen Sie hier. 


nachdem wie oft sie geteilt wird, alle 
nötigen Baudraten. Der 2x4-Bit-Zäh- 
ler 7415393 teilt die 2,4576 MHz auf 
die Frequenz von 19,2 kHz. Vom 6850 
werden diese 19,2 kHz noch einmal 
geteilt, so daß letztendlich die Baud- 
rate von 300 (bei Teilung durch 64) 
oder von 1200 (bei Teilung durch 16) 
zur Verfügung steht. 

Für die V,24-Pegel brauchen wir 
einen Spannungswandler. Entwe- 
der den integrierten Spannungs- 
wandler NM232C oder Standard- 
V.24-Treiberbausteine, von denen 
einer allerdings mit +12 und -12 Volt 
versorgt werden muß. Das noch ein- 
gesetzte IC 74L508 dient zur Adreß- 
decodierung. 

Beim Schreiben in das Controlre- 
gister (Adresse FBFÜhex) müssen 
bestimmte Parameter gesetzt wer- 
den. 

Bit Ound | bestimmen die Teilerra- 
te des Chips. Hier kann also per Soft- 
ware festgelegt werden, wie oft die 
Frequenz, die an den Pins 3 und 4 
anliegt, geteilt werden soll. Die Wer- 
te finden Sie in Tabelle 1. 


Die Teilerrate ist 1. Diese Teilerrate ist bei unserer Anwendung nicht 


zu empfehlen, da es bei der asynchronen Datenübertragung zu 


Teilerrate 16. Das bewirkt bei unserer Schaltung eine Baudrate von 


Bit 0 
0 0 
»Interferenzstörungen« kommt. 
0 l 
1200 Baud (beim Senden und Empfangen). 
l 0 


Teilerrate 64 hat eine effektive Rate 300 Baud zur Folge. 
Master Reset, wird in Bit 1 und Bit 0 eine Eins geschrieben, wird der 


6850 vollständig zurückgesetzt (empfehlenswert am Beginn eines 


Programms). 


& Tabelle 1. Bit OÖ und 1 bestimmen die 


Baudrate Tabelle 2. Bit 2, 3 und 
4 steuern das Übertragungsformat V 


Die Bits 2 bis 4 bestimmen das 
UÜbertragungsformat der Schnittstel- 
le (siehe Tabelle 2), 


7 Bits + Even Parity + 2 Stop-Bits 
7 Bits + Odd Parity + 2 Stop-Bits 
7 Bits + Even Parity + 1 Stop-Bit 


7 Bits + Odd Parity + 1 Stop-Bit 


8 Bits + 2 Stop-Bits 
8 Bits + 1 Stop-Bit 


8 Bits + Even Parity + 1 Stop-Bit 
8 Bits + Off Parity + 1 Stop-Bit 











Die von Mailboxen am häufigsten 
verwendeten Übertragungsformate 
sind 100 (8 Bit und 2 Stop-Bit) und 101 
(8 Bit und 1 Stop-Bit). 

Die Bits 5 und 6 müssen beinorma- 
len asynchronen Anwendungen 
beide 0 sein. Wird in beiden eine 1° 


| 
| 
| 
| 


geschrieben, dann wird ein Break- 
Signal geschickt, was nichts ande- 


res bedeutet, als daß die V.24-Sen- 
deleitung für eine bestimmte Zeit 
auf einen festen Pegel gelegt wird. 
Bit 7 ist ebenfalls immer 0. 

Wenn Sie die Schnittstelle fertig 


aufgebaut haben, dann sollten Sie 


erst noch einmal alles prüfen. Eine 
gute Testmöglichkeit von seriellen 
V.24-Schnittstellen ist das Verbinden 
der Sende- und Empfangsleitungen 


(Pin 2 und 3), so daß die Schnittstelle ° 
sich selber Daten schickt. Listing 1 


testet Ihre Schnittstelle, 
Nach dem Anschließen der 


Schnittstelle und dem Starten dieses 
Testprogramms müssen gedrückte ° 


Tasten als Buchstaben auf dem Bild- 
schirm erscheinen. Mit solch einem 
Programm können bereits über ei- 
nen Akustikkoppler Mailboxen be- 
dıent werden. 


Die Programmierung 
des 6850 


Für die Schaltung gibt es zwei An- 
schlußmöglichkeiten. Entweder am 
herausgeführten Datenbus oder im 
Innern des Computers direkt auf 
dem Sockel des Z80. Der Z80 selbst 
wird dann in die Schaltung inte- 
griert. In beiden Fällen werden alle 
benötigten Signale erreicht. Beide 
Lösungen haben aber ihre Schwä- 
chen. 

Der Anschluß am Datenbus führt 
leicht zu einer wackeligen Lösung. 
Auch die Diskettenstation ist schwie- 
rig gleichzeitig mit anzustecken. Der 
Haken bei der Einbaulösungist, daß 
eventuell noch bestehende Garan- 
tie erlischt. Die Schaltung ist leicht in 
der Wire-Wrap-Technik aufzubau- 
en, genauso einfach ist allerdings 
auch eine gelötete Verdrahtung auf 
einer Lochrasterplatine Für den 
Einbau der Schaltung in den Com- 
puter ist ein 4Opoliger Wire-Wrap- 
Sockel notwendig, da die Beinchen 
lang genug sein müssen, um in den 
Sockel zu passen. 

Wie bereits oben gesagt, hat der 
6850 zwei Register, die beide sowohl 
beschrieben als auch gelesen wer- 
den können. In das eine Register, 
das Datenregister, werden die zu 
übertragenden Daten hineinge- 
schrieben. Beim Empfang werden 
hieraus die Daten abgeholt. Es hat 
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die Adresse FBFlhex. Das andere 
"Register dient zur Steuerung des 
Bausteins, es ist das Control-Regi- 
ster. Seine Adresse ist hexadezimal 
FBFO. Die Bedienung dieses Regi- 
sters ist leider etwas kompliziert. 
Beim Lesen aus dem Register erhält 
man folgende Informationen (bitwei- 
se aufgeschlüsselt, Tabelle 3): 


Wenn der Buffer voll ist, so wer- 
den die einzutragenden Zeichen 
ignoriert, das heißt sie gehen ver- 
loren. Allerdings müßten bei einer 
300-Baud-Übertragung 2,2 Minuten 
lang ununterbrochen Daten eintref- 
fen, um den Buffer wirklich ganz zu 
füllen. 

Das Maschinencode-Modul muß 


ist gesetzt, wenn das TER Datenregister voll ist, also im 
Datenregister ein empfangenes Zeichen abgeholt werden kann. 


ist gesetzt, wenn die 


Übertragung eines zu sendenden Zeichens fertig ist, 


das bedeutet, das nächste Byte darf in das Datenregister geschrieben 
werden, um übertragen zu werden. 
Hier ist der logische Pegel von Pin 23 (Data Carrier Detect) zu finden. 


Es ist also immer nicht gesetzt. 


Hier liest man den Zustand der Leitung CTS (Clear to Send), in diesem 


Beispiel immer gesetzt. 


ist gesetzt, wenn ein sogenannter »Framing Error« erkannt wurde. 

Dann stimmt irgendetwas an den Übertragungsparametern nicht. 

ist gesetzt, wenn ein Zeichen aus dem Datenregister nicht rechtzeitig 
geholt wurde und dieses mit dem neuen Zeichen überschrieben wurde 


(Overrun Error). 





ist gesetzt, wenn beim Datenempfang ein Parity-Error erkannt wurde. 
Dazu muß allerdings die entsprechende Betriebsart eingestellt sein. 
enthält eine logische Verknüpfung aus den Signalen CTS, TDRE, DCD, 


Overrun und so weiter (Interrupt request). 





Tabelle 3. Die Informationen des Control-Registers 


Das Maschinencode-Modul 
»FLIRTM.BIN« ist darauf ausgelegt, 
ein Datenfernübertragungspro- 
gramm in Basic zu unterstützen. Es 
beginnt bei Adresse 7000hex, be- 
sitzt einen  interruptgesteuerten 
Empfangsbuffer (4 KByte) und einen 
interruptgesteuerten Druckerbuffer 
(ebenfalls 4 KByte groß). Mit diesen 
Buffern wird die Bedienung der 
Schnittstelle zeitlich gesehen pro- 
blemlos. Das Programm kann mit 
dem abgedruckten Basic-Lader ge- 
neriert werden. 

Die Bedienung des Moduls erfolgt 
über RSX-Befehle: 

INIT 

Mit diesem Befehl werden die Buf- 
fer initialisiert und die Schnittstelle 
auf das Übertragungsformat 8 Da- 
tenbit und 1 Stop-Bit gesetet. 
SEND,asc(’a”) 

Mit diesem Befehl wird ein Zei- 
chen über die Schnittstelle ge- 
schickt. Es wird dabei so lange ge- 
wartet, bis die Übertragung des vor- 
hergehenden Zeichens beendet 
wurde. 


RECV,@a 
Mit diesem Befehl wird der inter- 
ruptgesteuerte Empfangsbuffer 


ausgelesen. In der Integer-Variable 
a befindet sich der ASCII-Code des 
empfangenen Zeichens. 
PRINT,asc("a’) 

Ein Zeichen wird an den Drucker- 
buffer übergeben. Das Drucken 
. des Zeichens übernimmt die Inter- 

. rupt-Routine. 


am Anfang einmal mit dem Befehl 
CALL &7000 initialisiert werden. Von 
diesem Modul werden zusätzlich 
die Diskettenfehler »FILE NOT 
FOUND« und »DISK FULL« und so 
weiter abgefangen, damit beim Äuf- 
treten eines solchen Fehlers das 
Programm nicht abgebrochen wird. 
Tritt solch ein Fehler auf, so wird das 
Basıc-Programm mit der Meldung 
‚Error 50« fortgesetzt. Diese Mel- 
dung kann dann mit dem Befehl ON 
ERROR GOTO abgefangen werden. 
Das bedeutet aber, daß das Maschi- 
nencode-Modul den Ready-Modus 
nicht zuläßt. Es kann daher nur von 
Programmen aus aufgerufen und 
bedient werden. In der Error-Routi- 
ne wird dann der Diskettenfehler 
durch den Inhalt der Variablen ERR 
erkannt. 


Der Befehlssatz ist 
reichhaltig 


Das Übertragungsprogramm aus 
Listing 3 enthält als Kem das be- 
schriebene Maschinencode-Modul 
»FLIRTM.BIN« Dadurch treten kei- 
ne Geschwindigkeitsprobleme auf. 
Das Basic kann gemütlich die gebuf- 
ferten Daten verarbeiten. Dieses 
Programm läuft nur auf dem CPC 
464 mit Diskettenlaufwerk. Nach 
dem Starten finden Sie im oberen 
Teil des Bildschirms das »Komman- 


do-Fenster«. Es wird benutzt um Be- 


fehle einzugeben, ohne daß dabei 
der untere Teil des Bildschirms zer- 
stört wird. In den Befehlseingabe- 
modus gelangt man durch zweimali- 
ges Drücken der Taste Esc. Die 
dann einzugebenden Änweisungen 
sind weitgehend am CP/M-Be- 
triebssystem orientiert. Man kann 
durch die Bufferstruktur beliebig 
lang in diesem Fenster arbeiten und 
Befehle ausführen lassen, ohne daß 
dabei Daten verlorengehen. Vor- 
aussetzung ist allerdings, daß der 
Host-Rechner der Mailbox auf das 
XON/XOFF-Protokoll vorschriftsmä- 
Big reagiert. 

Im Fenster können folgende Be- 
fehle aufgerufen werden (Eingabe 
wie unter CP/M): 

A: Das Laufwerk A ist ab sofort 
Standardlaufwerk. 

B: Umschalten auf Laufwerk B. 

BYE: Verlassen des Programms. 

DIR: Das Inhaltsverzeichnis der 
Diskette wird angezeigt. Dabei sind 
wie beim CP/M auch einzelne Datei- 
namen mit den Wildcards * und ? 
möglich. 

DL CLOSE: Die Datei wird ge- 
schlossen und auf Diskette endaqül- 
tıg angelegt. 

DL OFF: Download-Modus aus. Mit 
DLON und DL OFF kann das Über- 
tragen der empfangenen Daten in 
die durch DL OPEN spezifizierte Da- 
teil gestoppt und gestartet werden. 

DL ON: Der Download-Modus 
wird angeschaltet, vorher muß der . 
Befehl DL OPEN ausgeführt worden 
sein. Älle Zeichen, die vom Compu- 
ter empfangen werden, werden in 
die durch DL OPEN spezifizierte 
Datei geschrieben. Braucht der 
Computer Zeit, um empfangene 
Daten abzuspeichern oder zu bear- 
beiten, dann stoppt er das Senden 
des Hosts mit XOFF und startet es 
danach wieder mit XON. 

DL OPEN: Die Download-Datei 
wird geöffnet. 

ERA: Wie CP/M-Befehl ERA, mit 
Dateinamen und Wildcards. 

ESC: Ein Escape-Zeichen wird an 
den Host-Rechner geschickt. 

FDX: Die Übertragung von Daten 
erfolgt im Fullduplex-Modus, das 
heißt der Host-Rechner muß emp- 
fangene Zeichen zur Bestätigung 
wieder zurückschicken. 

HDX: Halfduplex — Der Host 
schickt empfangene Zeichen nicht 
zurück, das Terminalprogramm er- 
zeugt sie selber. 

PRN OFF: Schaltet den Drucker 
wieder aus. Zeichen, die sich noch 
im Druckerbuffer befinden, werden 
noch ausgegeben. 

PRN ON: Der Drucker wird einge- 
schaltet (natürlich gebuffert), das 
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heißt alle Zeichen, die empfangen PT SE, 
werden, werden auch auf dem Hauptschaltung: 
Drucker mitprotokolliert. 


Durch die einfache Erkennunger- 
leichtert, können beliebig viele zu- 
sätzliche Befehle (wıe zum Beispiel 


l 6850 
TYPE: Wie CP/M-Befehl TYPE. 1 7415393 deutscher Zeichensatz oder deut- 
Die angegebene Datei wird im Fen- 1 741504 sche Tastatur) hinzugefügt werden. | 
ster ausgegeben. Die anzuzeigende 1 741508 Dazu muß einfach eine Zeile mit der 
Datei sollte im ASCII-Format vorlie- I 2,4576-MHz-Quarz a u 
gen BE WE ARRENEE Befehlserweiterungen 
lı 22 pF Kondensator | runge 


_ UL E: Upload-Echo-Mode — Eine 
Datei wird an den Host-Rechner ge- Spannungswandler: 


schickt. Das Unterprogramm wartet ; k 
nach dem Senden eines Zeichens entweder 1 NM2323C’V.24Treiber mit 
integriertem Spannungswandler 


Syntax »IF Befehl$="xyz" THEN 
GOSUB 2000« eingebaut werden. 
Noch ein Hinweis zum Betrieb der 


. auf das Echo vom Host. Diese Be- oder I 78189- und Schnittstelle Die Datenübertra- 
triebsart ist nur bei Fullduplex prak- | 75188-V 24-Treiber. gungspins 2 und 3 des V.24-Steckers 
tisch. können, je nach Art des Geräts, das 


_ ULX: Upload mit XON/XOFF-Pro- Sonstiges: 
tokoll. Die Datei wird an den Host Sockel 
übertragen, dabei kann der Host nn Assaler 
die Ausgabe der Datei mit dem ia nach Art des Aulbans: keit vorsehen, die beiden Pins ein- 
XON-XOFF-Protokoll stoppen und BE" BETT fach vertauschen zu können. 
starten. Tabelle 4. Die Bauteileliste (Thomas Obermair) 


angeschlossen werden soll, auch 
vertauscht richtig sein. Deshalb soll- 
te man auf der Platine die Möglıch- 





Bid 1. Der Schaltplan 
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DEFINT a-z 
d=&FEFi:REM Datenregister 
c=& FBFBO:REM Kontrollregister 
OUT c„&311:REM Master Reset 

I OUT c„&X1BB1G: REM 388 Baud und B Date 
nbits 2 Stopbits 
a#=INKEYf: IF as<>"" 
3 
a=INFPic):IF a ÄND i THEN a=INP(d) :PRI 
NT CHR#(d) 
GOTO 48 


THEN DUT d,ASC (as 


[5205] 
[LiDAE)] 
LSA/E] 
[ODBB] 


L75A8] 
[DSB8] 


[BF28] 
[328E] 





Listing 1. Ein Testprogramm für RS232-Schnittstellen 











18 PRINT 
1BB MEMORY &4FFF:zeile=1000 
118 FOR x=&7208 TO &71DB STEF B:check=d 
128 FOR a=8B TO 7:READ ds: d=VAL ("A"+ds$)esc 
heck=scheck+d:POKE +ta,d:NEXT 
138 READ ds: IF VAL("R"+d#)<>check THEN 2 
aa 
zeile=zeile+1iß:FRINT CHR#$(13); "Zeile 
"szeile; "okf{fö6& SFACE}Y";:NEXT 
PRINT:FRINT "alles ok." 
160 SAVE "flirtm.bin",b,27200,&1D® 
‚ 178 PRINT "Datei flirtm.bin angelegt. ": 
|  — _ PRINT:END 
| Zu2 FRINT CHR£(13)+CHR#(7)+"Fehler in Ze 
ile ";zeile:END 
DATA 81,753,78,21,8C,790,CD,Di1,839F 
DATA BC,SE,C3,532,81,AC,21,70,054D 
DATA 790,22,22,AC,CD,C7,78,CD,8411 
DATA BC,78,CD,A?,71,C9,CD,7C,2545 
DATA 798,CB,4F ,CA,1E,790,DD,7E,843D 
DATA 282,CD,B4,70,C9,CD,43,70,843A 
DATA DD,64,81,DD,5E,38,77,23,0329 
DATA 35E,88,77,C9,DD,7E,38,CD,B3A& 
1888 DATA 798,71,C9,CD,168,71,DA,59,8431 
DATA 78,E65,7F,„21,5C,79,BE,CA,B44A 
DATA 57,78,CB,7E,C9,23,C3,4E,040&4 
DATA 78,3E,239,C7,21,02,83,84,8181 
DATA 25,0%, BE,„BF., 10, 1 1 E) 12, 15, BO&4E 
DATA 14,15,16,17,18,19,1A,1C,B@BD 










140 







158 




































r-Fans! 

| mpute an 

4allo, Hap tellen 
> : Euch gibt's jetzt T-Shirts. ion 
Nur für EUC! en Voreinsendung des Jewel 


nn Sr der Zahlkarte vom Programm 






nd #t. Bestellnummer bitte 
vice in diesem Heft. - 
Se rossson - undfalls vorhanden, Eu 
Kundennummer. > E 
Größentabelle: __ - ü - : 
= 2 44 
Seen 38 40 - = 
Herren 46 48 
| 176 a 
are sind vom Umtausch ausgeschlossen, 


[5C1C] 
LC852] 
CD932] 


[B4C8] 
[5596] 


LEFCCI 
[CEi4E] 
LiFBA] 


[OF&4] 


[2146] 
[2CAB] 
[F&öC8] 
[OCC&] 
[2E48] 
[&C4A] 
[43DA] 
[BEB4] 
[A712] 
LBSBE] 
[LE?712] 
[87Cö] 
(D218] 
[3032] 
[13578] 



















1140 
1158 
1158 
1178 
1188 
1178 
1288 
1218 
1228 
1238 
1248 
1258 
12580 
1278 
1288 
1278 
1308 
1318 
1320 
13380 
1348 
1358 
1348 
1378 
1388 
1370 
1408 
1418 
1428 
1450 
1440 
1458 
1460 
1478 
1488 
1478 
1508 
1518 
1528 
1550 
1548 
1550 
1548 
1578 
1588 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


iD, 1F,88,7E,780,C3,1E,70,82FB 
C3,2D,78,C3,3C0C,70,53,45,8367 
4E,C4,52,45,43,D6,50,52,0364 
49,4E,D4,00,20,20,200,20,015B 
1E,32,C3,94,CA,CD,98,71,843F 
CD,9C,71,C9,C5,801,F@,FB,20554 
ED,78,C1,C9,C5,01,F0,FB,25Ad 
ED,77,C1,C9,C5,821,F1,FB,85A2 
ED,78,C1,C9,C5,81,F1,FB,85Ai 
ED,79,C01,C9,3E,83,CD,A4,84A2 
78,3E,15,CD,A4,70,C09,21,8038F 
20,80,22,DA,78,22,DC,70,035A 
21,00,90,22,DE,78,22,E0,0323 
78,C9,00,00,20,20,00,008,0137 
00,089,C5,23,22,FA,70,01,0275 
FF,8F,37,3F,ED,42,290,05,0358 
21,808,80,C1,C9,2A,FA,70,83BF 
C1,C9,008,88,05,23,22,14,82A8 
71,01,FF,9F,37,3F,ED,42,83B5 
20,85,21,00,90,C1,C9,2A,028A 
14,71,C1,C9,00,00,2A,DA,2313 
7@,ED,4B,DC,78,37,3F,ED,8457 
42,CA,31,71,2A,DA,70,7E,B3AB 
CD,E2,7@0,22,DA,78,37,3F „8481 
C9,37,C097,2A,DE,7@,ED,4B,8479 
E@,70,37,3F,ED,42,CA,4E,848D 
71,2A,DE,7@,7E,CD,FC,70,04AQ 
22,DE,70,37,3F ,C9,37,C09,03AF 
2A,DC,78,CD,E2,7@,ED,4B,B4CD 
DA, 7@,37,3F ,ED,42,CA,6E , 8427 
71,2A,DC,79,77,CD,E2,7@0,847D 
22,DC,70,37,3F ,C9,37,09,B3AD 
2A,E®,7@0,CD,FC,7@,ED,4B,84EB 
DE,7@,37,3F,ED,42,CA,8E,844B 
71,2A,E0,78,77,CD,FC,79,849B 
22,E0,70,37,3F ,C9,37,09,83Bi 
CD,2E,BD,D8,CD,33,71,D8,84D9 
CD,31,BD,C9,CD,9C,78,E6,8543 
21,C8,CD,AC,78,CD,58,71,0440 
C9,F3,81,B8,71,ED,43,3B,8451 
B9,3E,03,32,3A,B9,FB,C9,04A3 
E5,C5,D5,F5,CD,95,780,F1,0637 
D1,C1,E1,28,DA,70,B9,C03,8541 
3D,B9,20,00,00,20,00,20,00F& 
20,20,00,00,20,00,00,200,0008 


Listing 2. Der Basic-Lader für unser Maschinencode-Modul 


Bastelei 





EDYIEB] 
[A7FB] 
[BS768] 
[SAS4] 
[BburFö] 
[BF22] 
[B124] 
LE7ZE] 
LSF72C] 
LEB2ZE] 
[534D4] 
[Bö8A] 
[9548] 
LESE8] 
[DB4&] 
ECDF2] 
CEDDCA] 
E1250] 
[79788] 
[3054] 
[BC7C] 
[SC26] 
CADD2] 
[DSC4] 
CBDSC]I 
[2B14] 
[B524] 
[4205] 
[8852] 
[4418] 
[ASFC]I 
[5405] 
L1C6A] 
[EB45] 
[AEQ4] 
LiFCö] 
[QEs4] 
[443E] 
[&DD8] 
[3DD4] 
[5153A] 
[CBEiC] 
[EFEB] 
[FS2A] 
[3378] 








1. T-Shirt »Happy« 
farbiger, kleiner Aufdruck, 
100% Baumwolle, weiter Schnitt, 
Jersey, Farbe: weiß 
=:FiM, |; 
T5 2145 
TS 21&M 


TS 216L 
T5 21fXL 


2. T-Shirt »Happy« 
Marbiger, großer Aufdruck, 
100% Baumwolle, weiter Scf 
Jersey, Farbe: weih 

Große Best-Hr 


DM 19,90 43 TS 2045 
M TS 205M 


DM 19,90 
L T5 206L 


DOM 19,90 
“| TS 207XL 


Markt Technik 
RLAG 
BUCHVERLAC 


2, 8013 Haar bei München 







DM 19,90 








Hans-Pinsel-Straße 





1/86 Suacen heft salltpeider 

















iD MODE 2 
28 DEFINT a-z 
3D MEMORY &6FFF 


LOAD "flirtm.bin" 


Ss CALL 27000 


ON ERROR GOTO 590 


78 DIM dibuf (1B80) :diptr=i 


ein=-1: aus=Bß:son=17:xoff=197 


98 drucker=aus:ı hdx=saus:dload=saus 


100 
118 
128 
130 
140 
158 
158 
178 
188 
170 
200 
218 
228 
238 
2408 
258 
268 
278 
288 


2970 
Ssaa 
>18 


>20 
330 


>48 
350 


Su 
378 
588 
>78 
408 


410 
428 


430 
448 


450 


448 


470 


480 


4970 
Sau 
S18 


328 


53582 
548 
SIoß 
SB 
378 
sed 
>78 


GOSUB 4408 

GOSUB 308 

WINDOW #1,2,79,2,7 

WINDOW #0, 1,80,7,25 

WINDOW SWAP" Q, 1: PRINT "FLIRT - by T. 
Obermair":WINDOW SWAP 8,1 

GOSUB 738 

a#=INKEY$: IF a$<>"" THEN GOSUB 198 
a=9: ıRECVY,@a:IF a<>B® THEN GOSUB 258 
GOTO 168 


REM ------—- tastatur -> schnittstell 
e Te 
IF a#=CHR#(8) THEN GOSUB 3708 


IF a$=CHR#(12) THEN CLS:RETURN 

ı SEND, ASCiaf) 

IF hdx=ein THEN PRINT a$; 

RETURN 

REM ---——-— schnittstelle -> bildsch 
PRINT CHR#(a);z 

IF drucker=ein THEN :PRINT,a 

IF dload=1 THEN dibuf (diptr)=a:dlptr 
RABEN SLRIE diptr=#FB8B THEN GOSUB 111 


REM ---——— fenster zeıchn 
FRINT CHR#(150); STRING$ (78, CHR$ (154) 
Is CHR# (156); 


FOR i=1 TO & 

PRINT CHR#1149):STRING# (78," ");CHR$ 
(149); 

NEXT i 

FRINT CHR# (147); STRING®$ (78,CHR# (154) 


)s CHR$ (153); 





RETURN 

REM --- ESC - Funktionstastenver 
waltung ---—-—— 

KEY DEF 79,1, Si 127.127 


WINDOW SWAP a, 
“an: cAlı %&BBBE1:LINE INPUT bef 
e 
befehl #=UPFPER$ (befehl #) 

IF befehl$="ESC" THEN !SEND,27:PRINT 

"escape geschickt":60T0O 498 

IF befehl$="BYE" THEN !BASIC 
IF MID$(befehl#,1,3)="DIR" THEN !SEN 
D, xoffim$=MID$ (befehl, 3): 

ı‘ DIR, @m#: !SEND ,xon: GOTO ni 

00 


IF befehl$#="A:" THEN !SEND,zoff:!A:! 
SEND,xon:PRINT "drive A aktiv"; 

GOTDO 408 
IF befehl#$="B:" THEN !SEND,xoff: !B:! 
SEND„xon: PRINT "drive B aktiv": 

GOTO 488 
IF MID#(befehl#,1,3)="ERA" THEN !SEN 
D,zsoff:m$= =MID$ (befehl s$, 5)e 

ıERA,emf: !SEND ‚xon: GOTO 4 


Du 

IF MID$tbefehl#,1,4)="TYPE" THEN !SE 

ND,zoff:OPENIN MID$(befehls$, 6): 
WHILE (NOT EOF) AND INKEY 

t="";LINE INPUT #9,zeile$:PRINT zeil 

e#: "WEND: CLOSEIN: !SEN 

D,»on:GOTO 488 

IF befehl$="FDX" THEN hdx=aus: PRINT 

"fullduplex":60TO 40980 

IF befehl#="HDX" THEN hdx=ein: PRINT 

"halfduplex":GOTO 4008 

IF befehl$£="PRN ON" THEN drucker=ein 

na "drucker eingeschaltet":60T0 

4 

IF befehl#="PRN OFF" THEN drucker =au 

s:PRINT "drucker ausgeschaltet": 
GOTO 4008 

IF befehl#="ULl E" THEN GOSUB 788:6G0T 

0 408 

2 befehl#="ULl X" THEN GOSUB F18:60T 

0 408 

IF befehl$="DL OPEN" THEN GOSUB 19058 

:G60T0 480 

IF befehl#="DL DON" THEN GOSUB 1158:6 

0TO 4988 

IF befehl#="DL OFF" THEN GOSUB 1188: 

G0TO 4088 

IF befehl$="DL CLOSE" THEN GOSUB 178 

2:G0OTO 488 

IF befehl#<>"" THEN PRINT " Befehlsu 

ebersicht: DIR,HDX,FDX,A: „B: „ERA,BYE 


[DFF®] 
[52C8] 
[2F54] 
[8CFA] 
[525C] 
[93CA] 
CA4ADC]I 
[S582E] 
[FCEBE] 
[48D5] 
[87CA] 
[65274] 
C4ADO] 


[DSEC] 
[82EB] 
[LSBE4] 
LEAAd] 
[BES52] 
L/CEE] 
[329C] 
[CE288] 
[539746] 
L75FA] 
LA72C] 
[1186] 


[71A8] 
[LZFAC]I 


[CC84] 
[7D36] 
LEFFC]I 


[2276] 
[3D58] 


LB77E] 
[EBFE] 


[5B84] 
[CC32] 


CABSC] 
Lr7aA4] 
[7858] 


[DFCE] 
[7SBE] 


[AZ21A] 
[BB3C] 


LBCP8] 


[DCSC] 


[F8F74] 


[5282] 


LS3SC5E] 
[7352] 
E1SFC] 


[ö5öE] 


[ABEB] 
L179A] 
E11B8] 
[B4A&] 
LSöF7E]I 
[F7@2] 
[732C] 





DL OFF{3 SPACE} ":GOTO 420 £477A] 
sad CALL %&BB8B4 [8B18] 
&id WINDOW SWAP 9@,1 [LAZZE] 
&2B KEY DEF 797,1, 8 ‚8,8 [D452] 
625 GOSUB 738 C4DEE] 
6580 RETURN EDD32] 
648 REM ---—--- initialisieren ————— [CB40] 
6508 KEY DEF 65,1,8,8,0 [CCF28] 
668 KEY DEF 79,1,8,8,8 [E45A] 
&78 KEY DEF 16,1, 12, 12, 12 L[1B4C] 
680 RETURN CABSCI 
FO REM ----———- errors abfangen -————— 

[C82A1 
88 IF ERR=5B8 THEN CLOSEIN:CLOSEOUT:PRIN 
T:PRINT "Diskettenfehler": 
FRINT "alle Dateien gesch 
lossen. ":RESUME 498 [312C] 
7/18 "interner fehler";ERR;"in Zeil 
;ERL [44AE] 
728 S0TO 728 [7056] 
738 CALL &BB81:RETURN [B8E45] 
748 REM --———— - input-buffer loeschen -—- 

-——— [FSB8] 
’S8 FOR i=1 TO i® [45BC] 
7/&Q WHILE a< >: !RECV, @a:WEND [öFFB] 
778 NEXT i:RETURN [&4D48] 
788 REM ---————- uploäd - echo mode -— 

nn [6858] 
7#®B FRINT "Upload - Echo-Mode" [73548] 
Bad FRINT "Dateiname: ";:LINE INPUT dn$ L[Li1&DC} 
818 GOSUB 74B:REM buffer clear CD7A&] 
828 OPENIN dn#$ [3A32] 
858 WHILE (NOT EOF) AND INKEYF="" [4398] 
8408 LINE INPUT #9,2$:z$=z$+CHR$ (&D) +CHR$ | 

(KA) [27B8] 
8520 FÜR i=1 TO LENtz#) [C778] 
BER ISEND,ASC(MID$(z$,i,1)) [87ZE] 
878 PRINT MID$(z#$ i,lz [248C] 
880 GOSUB 1948 [314A] 
872 NEXT [4312] 
F88 WEND: CLOSEIN: RETURN [6EF8] 
718 REM ------- upload - zon-xoff-mode - 

— [EAFCI | 
728 PRINT "Upload - xon/xoff mode" [7CF4] 
738 FRINT "Dateiname: ";:LINE INPUT dn$ L[L15E4] 
740 GOSUB 748:REM buffer clear EösöAE] 
958 OPENIN dn$ [293A] 
768 WHILE (NOT EOF) AND INKEY$="" LEC98] 
778 LINE INPUT #9,z$: z$=z$+CHR$ (&D) +CHR$ 

(A) [2558] 
88 FOR i=1 TO LENiz#) [4CAQ] 
770 !IRECW,@a:IF a=sxoff THEN GOSUB 1848:R 

EM wait bis xon [F61E]I 
1808 I:ıSEND,ASC(MID#(z$#,i1,1)) [A174] 
10818 PRINT MID$(z$,i,1}J; CaA52] 
1828 NEXT i [8055] 
18358 WEND: CLOSEIN: RETURN [C3FEö] 
IiB4B REM ---— wait bis irgendeinzeichen 

oder »on L77EE] 

1050 a=9:WHILE a=ß: !RECV,@a:WEND:RETURN [3514] 

1858 REM --——- dl-open -———— [79784] 

1078 FRINT "download - open" EFDAB] 
1088 PRINT "filename: ";:LINE INPUT difn$ 

[2814] 

18978 IF difn$="" THEN RETURN [7362] 
1188 !SEND,xoff:0OPENDOUT dlifn$: !ISEND,xon: 

dlo=1:RETURN [F22A] 

1118 REM --——- abspeichern [LCC7E]I 

1128 :SEND,xoff [2CD2] 
1138 FOR i=1 TO 899:PRINT #9,CHR&$ (dlbuft 

i));5:=:NEXT i CBF2A] 

1148 dliptr=1: |SEND,xon: RETURN [öS5EA] 

1158 REM --------- dl ein —-- L1AdA] 
11&B IF dlo=B THEN PRINT "erst oeffnen": 

RETURN [CBiF8] 
1178 PRINT "di ein":dload=1:RETURN [8098] 
1188 REM -—-— dd aus ——————— [24D5] 
1178 PRINT "dl ausgeschaltet":dload=9:RE 

TURN [LCSFC] 
1208 REM --—--—----——- dload close ——— —— 

———- CEEDB] 
1218 :!SEND,xoff:FOR i=1 TO dliptr-1:PRINT 

#7 ,CHR# (dlbufti))s:NEXT i [815A] 
1215 PRINT #9 „CHR (2&4);:REM EOF MARKER [351A] 
1220 CLOSEOUT: diptr=1: 'dlo=98:dload=aus: !5 

END,xon [FS558] 
1238 PRINT "ok, geschlossen. ":RETURN [87Cö] 
Listing 3. 

Das DFÜ-Programm 
ist überwiegend in Basic geschrieben 
1/86 Sonderheft Schneider 


‚PFRN ON,FRN OFF,TYPE":PRINT "{28 SPA 
CE>UL EEK, DL" OPEN,DL CLOSE,DL ON, 


a rt a 





Bastelei 





; er Schneider ist serienmäßig 
mit einem Reset-Schalter aus- 
gestattet. Dieser arbeitet aller- 


Reset ohne Datenverlust 
dings nur softwaremäßig. Wenn 


Nach einem Zurücksetzen des Com- ze: von einem Assemblerbiu 


‘Tr eir i | * gramm der Interrupt unterbunden 
puters sind normalerweise alle Da- 77 <°: Inerupt unlerbunden 


ten verloren. Besonders bei Maschi- mehr aurch Benutzung der Tasten 
nencode-Routinen kein wünschens- fü Cr undESC das laufende Pro- 


gramm zu unterbrechen. Hier hilft \ 


werter : Zustand. Aber das muß nicht sein. nur noch ein Aus- und wieder Ein- 


schalten des Computers, was aber 
mit dem Verlust aller Daten teuer 











bezahlt werden muß. | 
| | Ein weiteres Manko ım Betriebs- 
| Eupansion | | Expansion system besteht darin, daß der Spei- | 
(B) ' . cherbereich von 40 bis ABFF hex 
AP EEE beim Kaltstart (Aufruf der Adresse | 
 Alg E | a 
| 10) AB u | 1 u 
| Im m A m: — Lil (25) | 
=: | ee 
x | Da (9) 
) -D5 © 
| Ds d20) | 
D7 Win | 
9  Ald Ir 3 | 
5 
2 AZ | 
(dj Alö u. 
Ic 2 | 
| EN ana | 
| 8 8 Zap: | | 
4) Ad Ef), | 
N ı & 
us A0 pe! Tape Dix | 
4 HH, 
ROMDE (43) 


(18) AU 


ll ROMEN——— fi} 





0000 hex oder Reset mit Shift, Ctrl 
und Esc) mit lauter Nullen beschrie- 
ben wird. Daß dieser Zustand äu- 
Berst lästig ist, werden einige »Ma- 
schinencode-Programmierer«  si- 
cherlich bestätigen können. Ein 
noch fehlerhaftes Assembler-Pro- 
gramm bleibt mit Vorliebe in einer 
Schleife hängen, aus der es nicht 
mehr zurückgeholt werden kann. 
Der nicht zu umgehende Reset führt 
zu einem vollständig leeren Spei- 
cher. Ebenso wird beim Löschen ei- 
nes Basic-Programms mit dem Be- 
fehl »NEW« der Speicherbereich bis 
HIMEN mit lauter Nullen über- 
schrieben. Es ist nichts mehr zu ret- 

Bild 1. Der Schaltplan für zwei Platinen. Der Bereich A muß für den 664 und s128 | ten. Oder? 

_ durch C vertauscht werden. Jedem Problem kann man natür- 
| - ER we RE _ | lich zu Leibe rücken. In diesem Fall 





RE 


nr 
_ 


nn Aa A a Ft 


1% 


er DZ A ER 


Bastelei 





gibt es zwei total verschiedene We- 
ge. Entweder man ändert die Soft- 
ware, das heißt man muß den Inhalt 


 desROMs ineiner neuen Versionin 


ein Eprom brennen oder man 
schafft hardwaremäßig Abhilfe, 

Die zweite Lösung — die Hardwa- 
re abzuändern — istentschieden die 
einfachere. Sie bietet unter ande- 
rem nämlich die Möglichkeit, zwi- 
schen Originalsoftware und abge- 
ändertem Programm hin- und herzu- 
schalten. Außerdem kann Sie jeder 
benutzen, man braucht keinen 
Eprom-Brenner. 

Um diese Änderung nun anzuge- 
hen, muß man erst einmal wissen, 
wo sich die Routine, welche für den 
Löschvorgang zuständig ist, in ROM 
befindet. Beim 464 steht sie im Basic- 
ROM und zwar im Bereich C13E bis 
C14D hex; beim 664 sowie beim 6128 
hingegen im Bereich C145 bis C154 
hex. Für unser Vorhaben sind aller- 
dings nur die Adressen C14C bis 
C14E hex beziehungsweise C153 bis 
C155 hex von Interesse, Diese drei 
Bytes enthalten die beiden Befehle 
LD (HL)A 24 
LDIR ED BO 
— wobei letzterer für das Löschen 
zuständig ist. 

Um nun den Löschvorgang zu ver- 
hindern, muß an die genannten 
Adressen nureinNOP dasheißt der 
Wert 00 hex gelegt werden. Wie 
sich so etwas hardwaremäßig lösen 
läßt, wollen wir uns hier ansehen. 
Der Aufwand, der dabei getrieben 
werden muß, ist leider ziemlich um- 
fangreich. Der Grund dafür liegt in 
der Verwaltung der Speicherberei- 
che des Schneiders, der ja zusätz- 
lich zu seinem internen ROM noch 
252 externe benutzen kann. Zusätz- 
lıch belegt noch ein Teil des RAMs 
den gleichen Bereich. Um sicherzu- 
stellen, daß wirklich nur die oben 
genannten Adressen im Basic-ROM 
ausgeklammert werden, wird an 
den I/O-Port »DF« ein Wert größer 
als 251 gesendet. Die Werte von 0 
bis einschließlich 251 stehen näm- 
lıch für die externen ROMs zur Ver- 
fügung. 

Um diesen Wert zu erkennen und 
zwischenzuspeichern, dazu dienen 
in der Schaltung (Bild ]) die ICs 4, 5 
und 6. Die zwei Oder-Gatter des IC 
4 registrieren, wenn ein Schreibzy- 
klus auf den Port »DF« gegeben 
wird; dabei gehen die Leitung »WR« 
sowie »IORO« auf Low-Signal, das 
heißt auf O Volt. Damit wird ein Be- 
schreiben eines Ports angekündigt. 
Um welchen Port es sich dabei han- 
delt, wird durch die Adreßbits A8 
bis Al5 bestimmt. Wenn man sich 
den Wert DF00 binär (1101 1111 0000 





IC 1,1C5 SN 74 LS 30 
Bet SN 7425 
103 SN 74 LS 02 

IC 4 SN 7415 32 

IC 6 SN 74 LS 74 


| IC7 SN 74 L5 00 


 IC38 SN 74 LS 245 

IC SN 74 LS 86 
(nur bei 664/6128) 
2x0 kn u W 
(2x 10 kn 4 W nur bei 
664/6128) 
8xl00nF Keramik 


Widerstände 


Konden- 

| satoren 
Diode 
Taster Tl 
Schalter Sl 
Lochrasterplatte, Kabel, evtl. Gehäuse 


IN 4148 
lxEIN 
lxEIN 


Die Bauteile 





0000) anschaut, so ist leicht zu sehen, 
daß sich das Adreßbit Al3 auf Low- 
Pegel befindet. Diese Tatsache ma- 
chen wir uns zunutze, um einen Zu- 
griff auf Port »DF« zu erkennen. 
Wenn nun alle drei Leitungen auf 
Low sind, liegt das Signal am IC 6 
Clock-Eingang an. Wenn der 
Clockeingang auf Low geht, wird 
gleichzeitig auf den Datenbus ein 
Wert gelegt, der vom IC 5 decodiert 
wird. Dabei schaltet der Ausgang 
des Gatters auf Low, wenn alle Ein- 
gänge auf Hıgh-Pegel sind. Dies ist 
nur dann der Fall, wenn ein Wert 
größer oder gleich 252 (FC hex) an- 
liegt. Ist der Schalter Sl am IC 6 ge- 
öffnet, so gelangt die Information, 
die am Eingang »D«desIC 6 liegt, in- 
vertiert zu dem invertierten Aus- 
gang Q. Dies bedeutet hier, daß der 
Ausgang auf High-Pegel liegt und 
somit ein Freigabesignal an den 
restlichen Logikkreis sendet. Bei 
geschlossenem Schalter Sl liegt am 
Ausgang ein Low-Signal und der 
Rest der Logik ist gesperrt. 

Kommen wir zum Erkennen der 
Adıessen Cl4C bis C14E hex und 
zum Ausklammern dieses Berei- 
ches. Die Adresse C14C (1100 0001 
0100 1100 binär) wird von den ICs ] 
und 2 (Abschnitt B im Schaltbild) de- 
codiert. Der Ausgang von IC | geht 
nur dann auf Low, wenn an den bei- 
den ICs die Adresse C14C bis C14F 
hex anliegt. 

Daß nur die Adressen C14C bis 
C]4E hex Gültigkeit haben, wird von 
den Ädreßbits AO bis Al hex sowie 
den Gattern des IC 3 bestimmt. Den 
Zugriff auf ein ROM verrät uns die 
ROMEN-Leitung. Schaltet die Lei- 
tung auf Low, so greift die CPU auf 
ein ROM zu. Ebenso ist es beim 664 
und 6128, sieht man von den verän- 
derten Adressen ab. Auch hier de- 
codieren die ICs 1 und 2 (Abschnitt 
C im Schaltbild) die Adressen im Be- 
reich C150 (1100 0001 0101 0000 bin) 


bis C157 hex (1100 0001 0101 O1ll bin). 
Allerdings kommt noch eın IC hinzu. 
Dieses IC (IC 9 decodiert die 
Adressen AO bis A2 hex, um sicher- 
zustellen, daß wirklich nur die 
Adressen C153 bis C155 hex akzep- 
tiert werden. 

Sobald alle Signale in der benötig- | 
ten Form vorliegen, haben wir am 
Ausgang 8 des Gatters von IC 7 3 
nen High-Pegel. Dieser liegt über ei- 
ne Diode an dem ROMDIS- Eingang 
des Erweiterungsbusses des Com- 
puters an und schaltet somit das in- 
terne ROM ab. Die Diode ist erfor- 
derlich, weil mehrere Erweiterun- 
Den auf die gleiche Leitung zugrei- 

en. 

Gleichzeitig gelangt ein Low-Si- 
gnal an den Eingang | des IC 8, wel- 
ches einen Datentransfer vom Ein- 
gang des ICs zum Ausgang gestat- 
tet. Da die Eingänge des IC 3alle auf 
Masse liegen, wird zu diesem Zeit- 
punkt der Wert 00 hex auf den Da- 
tenbus des Computers gelegt. 

Das Schaltbild unterteilt sich in die 
drei Bereiche A, B und C. Der Be- 
reich A ist bei allen drei Schneider- 
Computern gleich. Schaltbildteil B 
betrifft dann den 464, Teil C den 664 
sowie den 6128. Wie die Abschnitte 
jeweils miteinander verbunden wer- 
den, erkennt man an den Verbin- 
dungspunkten 1, 2 und 3. 

Aufbauen kann man das Ganze 
am einfachsten auf einer Lochra- 
sterplatte. Ob es außerhalb oder in- 
nerhalb des Gehäuses unterzubrin- 
gen ist, sei dem Bastler selbst über- 
lassen. Man sollte aber den Ta- 
ster Tl so anbringen, daß er nicht 
aus Versehen gedrückt werden 
kann. 

Noch eine kleine Anmerkung: 
Wer jetzt der Meinungist, aus einem 
»NE W« wieder ein »OLD« machen zu 
können, der wird leider ein wenig 
enttäuscht. Zwar wird beim Reset 
das Basic-Programm nicht mehr 
vollständig gelöscht, jedoch werden 
einige Zeiger, die für Basıc-Anfang 
und -Ende sowie für die Variablen 
zuständig sind, wieder in den Ein- 
schaltzustand zurückgesetzt. Außer- 
dem werden am Anfang des Basics 
einige Speicherzellen mit Nullen so- 
wie mit den Zeigern der Variablen 
überschrieben. Dieser Umstand 
macht das »rückgängig machen« 
des »NEW«s zwar nicht gerade ein- 
fach, aber immerhin doch möglıch. 
So bringt diese Hardware-Bastelei 
— vor allem für leidgeplagte Assem- 
bler-Programmierer — einige Vor- 
teile mit sich. Wer das in der Praxis 
erfahren hat, wırd sie für ihre nurzir- 
ka 25 Mark auch nicht mehr missen 
wollen. (Michael Bauer) 
















ancher Käufer eines CPC 
M: oder 6128 stellte recht 
schnell fest, daß die anfänglı- 
che Euphorie über die gelungene 
Kombination von Heimcomputer 
und Diskettenlaufwerk nicht immer 
berechtigt war. 3-Zoll-Disketten sind 
teuer und so absolut sicher sind die 
Daten auf ihnen auch nicht gespei- 
chert. Also braucht man von jeder 
Diskette eine Sicherheitskopie — 
und das wird teuer. 

Kassetten hingegen sind zwar ein 
langsames Speichermedium, aber 
Dillig. Also muß der (meist vorhan- 
dene) Kassetten-Recorder aus dem 
Hi-Fi-Turm als Backup-Speicher her. 
Die Buchse des Computers sieht 
wie ein normaler Stereoanschluß 
nach DIN-Norm aus — da dürfte es 
eigentlich keine Schwierigkeiten 
geben. Doch weit gefehlt. Auf den 
fünf Polen einer Stereo-Verbindung 
liegen normalerweise zwei Aufnah- 
me- und zwei Wiedergabekanäle, 
sowie Masse. Der Schneider-Com- 
puter arbeitet hingegen mit nur ei- 
nem Äuf- und einem Wiedergabe- 
kanal. Neben der Masse gibt es 
dann noch zwei Anschlüsse für die 
Motorsteuerung des Kassetten-Re- 
corders. 

Diese verschiedenen Kontakte 
überlagern sich, so daß man das 
Übertragungskabel selbst bauen 
muß. Am einfachsten (und billigsten) 
geht es mit einer normalen, fünfpolıi- 
gen Stereo-Verbindung. Die Stecker 





Hifi am Schneider 


Für die Schneider CPC 664 und 
| 6128 kann man einen normalen Kas- 
setten-Recorder als Backup-Medium 
benutzen. Allerdings ist der Ausgang 
nicht der DIN-Norm entsprechend belegt. 


dürfen nicht verschweißt sein, da 
man an einem die Änschlußbele- 
gung ändern muß. R 

Alserstes (nach dem Öffnen eines 
Steckers) schreibt man sich die 
Nummern der Stifte und die zugehö- 
rige Farbe des Kabels auf. Die Zif- 
fern befinden sich meist auf der In- 
nenseite des Steckers. Dann wird 
das Kabel von Pin l aufPiın5unddas 
Kabel von Pin 3 auf Pin 4 umgelötet. 
Die ursprünglichen Kabel an Pin 4 
und 5 bleiben getrennt. Gegebe- 
nenfalls kann hier die Steuerung 
des Kassetten-Recorders ange- 
schlossen werden. Der umgebaute 
Stecker gehört dann direkt an den 
Computer (eine Markierung ıst hier 
sinnvoll), während die unveränderte 
Seite an den Kassetten-Recorder ge- 
steckt wird. 

Wer einen Recorder mit Cinch- 
Steckern hat, der muß sein Kabel so 
anschließen, daß der 2 der 


CPC 664/6128 





Bastelei 


Daten an Pin 4 und der Ausgang an 
Pin 5 (Computerseite) erfolgt. Die 
Belegung am Kassetten-Recorder 
entnimmt man am besten der Be- 
triebsanleitung. So lange man nur 
den Datenein- und -ausgang ver- 
tauscht, kann man auch nichts zer- 
stören. Schlimmer ist eine Ver- 
wechslung mit Pin | beziehungswei- 
se 3. Zur Motorsteuerung liegt näm- 
lich eine Spannung an, die die Da- 
tenleitungen nicht verkraften. 

Wer sich einen speziellen »Daten- 
recorder« zulegen will, dem sei 
noch gesagt, daß ein höherer Preis 
nıcht unbedingt ein besseres Funk- 
tionieren garantiert. Eher umge- 
kehrt. Mono ist besser als Stereo 
und damit reicht ein Gerät der T70- 
Mark-Klasse vollkommen aus. Der 
Walkman kann natürlich auch als 
Datenspeicher mißbraucht werden. 
Allerdings ıst bei den kleinen 
Steckern das Löten schon fast ein 
Gesellenstück für Elektroniker — 
wenn es ordentlich gemacht sein 
soll. 

Bei wem sıch nach getaner Arbeit 
kein Erfolg einstellt (obwohl die Tö- 
ne übertragen werden), der sollte 
den Artikel »Wenn der Recorder 
streikt« in diesem Heft lesen. Dort 
findet man Hilfe wenn die Daten 
nicht so laufen wollen, wie sie sol- 
len. 

(Helmut Jungkunz) 


Stift 1] = Steuerspannung! 
2 = Masse 
3 = Steuerspannung! 
4 = Data Input 
5 = Data Output 


Was nach DIN aussieht, muß nicht DIN sein: Der Schaltplan für ein Verbindungskabel 
von Ihrem Schneider zum Kassetten-Recorder 


Schluß mit dem Kabelärger 





| geärgert? 
ösartige Zeitgenossen behaup- 
B: daß ein Kabel nur zwei Zu- 
stände kennt: entweder zu kurz 
oder zu lang. Verlängert man es, so 
ist das zusammengesetzte Kabel 
nach dieser Theorie allerdings im- 
mer noch zu kurz, oder — aufgrund 








Haben Sie sich auch schon mal 
über die kurzen Verbindungskabel 
zwischen Computer und Monitor 


überlanger Kabelschleifen — zu 
lang. Das Dilemma wird noch 
schlimmer, wenn man abseits qgro- 
Ber Städte versucht, passende Ka- 
bel zu kaufen. 

Alles, was wir aber brauchen, ist 
ein Lötkolben, etwas Lötzinn und zir- 


ka zwei bıs drei Meter eines Stereo- 
verbindungskabels (5polig plus Ab- 
schirmung). Für die genaue Länge 
sollten Sie an die oben angeführte 
Theorie denken. Ferner brauchen 
Sie vier (beziehungsweise beim 
CPC 664 und 6128) sechs Stecker. 
Bei den Steckern handelt es sich 
um etwas ungewöhnliche, das heißt 
nıcht so häufig angebotene, Steck- 
verbindungen, die jedoch beide 
der DIN-Norm entsprechen. Ein 
bißchen Suchen und Sie müßten die 
benötigten Verbindungen bei Ihrem 
Radio- (oder Elektronik-) Händler 
finden. Sollten alle Stricke reißen, so 
hilft ein Blick in Elektronikzeitschrif- 
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Bastelei 


ten, um Entsprechendes in deren 
Änzeigenteilen zu finden. 

Für unsere Steckverbindung be- 
nötigen Sie jeweils einen männli- 
chen Stecker und einen zugehöri- 
gen weiblichen Stecker pro anzufer- 
tigendes Kabel — insgesamt also 
zwei oder drei Steckerpaare. Die 
männlichen Stecker sehen dabei 
genauso aus, wie die Exemplare, 
die bereits an den Kabelenden an- 
gebracht sind. Die entsprechenden 
Gegenstücke sind dann die weibli- 
chen Stecker. 

Wenn Sıe beide Kabel — bezie- 
hungsweise im Fall des 664 und des 
6128 die drei — zwischen Monitor 
und Tastaturboard herausziehen 
(bei ausgeschaltetem Computer na- 
türlich), so sind Sie mit zwei unter- 
schiedlichen Steckertypen konfron- 
tiert. Nehmen wir uns zunächst ein- 
mal den Monitorstecker vor. Dies ist 
ein 6poliger DIN-Stecker. In einem 
silbrigem Zylinder, der die Abschir- 
mung gewährleistet, sehen Sie die 
sechs einzelnen Stifte, die die Signa- 
le für die Auftastung der einzelnen 
Farben des Monitors, für die Farbin- 
tensität (Luminanz) sowie das Syn- 
chronisationssignal an den Monitor 
weiterleiten. 

Daneben haben wiresnoch mitei- 
nem (beim CPC 664 und 6128 zwei) 
weiteren Stecker(n) zu tun, die die 
Stromversorgung des Computers 
gewährleisten. Vom Monitor zum 
Computergehäuse führt die 5V-. 
Stromversorgung, beim 664 und 6128 
in Gegenrichtung die 12-V-Versor- 
gung des Diskettenlaufwerks. 

Dabei ist aber noch eines unbe- 
dingt zu beachten. Die unterschied- 
liche Befestigung der Kabel wurde 
unter anderem vorgenommen, um 
sicherzustellen, daß der 12V-An- 
schluß nicht aus Versehen mit der 5- 
V-Eingangsbuchse verbunden wird. 
Dies hätte nämlich die Zerstörung 
Ihres Computers zur Folge. Sie soll- 
ten daher auch, nachdem die Kabel 
zusammengebaut sind, eine Mar- 
kierung anbringen. Entweder kenn- 
zeichnen Sie die beiden Verbin- 
dungskabel mit verschiedenfarbi- 
gen Klebebändern oder Sie kleben 
die Kupplungsstellen mit Tesafilm 
fest aneinander. Und zwar so, daß 
immer eine Buchse mit einem 
Stecker an einem Ende zusammen 
liegt. 

Kommen wir zur eigentlichen Ver- 
drahtung. Für die (beiden) span- 
nungsführende(n) Leitung(en), gilt 
derselbe »Schaltplan«. Wenn Sie 
den Stecker, der vom Monitor zum 
Computer führt, aus der mit »5V DC« 
bezeichneten Buchse ziehen, so 
blicken Sie außen auf eine silbrige 


Der Schaltplan für das Kabel für die Monitorsignale 


Hülse. In der Mitte dieses Zylinders 
— durch eine Isolierschicht getrennt 
— liegt ein zweiter kleiner Blechzy- 
linder, An diesem liegt die Span- 
nung (5 oder 12 V) an. Die Hülse ist 
mit Masse belegt. Die gekaufte 
Buchse und der Stecker müssen nun 
mit zwei Kabeln innen und außen 
verbunden werden. 

Beschaffungsprobleme und Ko- 
sten (ein langes Kabel ist billiger als 
zwei kurze) lassen uns für alle Ver- 
bindungen das 5polige Kabel ver- 
wenden. 

Nach dem Abisolieren unseres 
Stereokabels fassen wir drei Leitun- 
gen zusammen. Den zweiten Kontakt 
stellen die zwei übrigen Adern und 
die Abschirmung her. Zusammen- 
gehörige Drähte werden miteinan- 
der verdrillt. Wenn Sie diesen Vor- 
gang auf der anderen Seite wieder- 
holen, erhalten Sie ein 2-poliges Ka- 
bel mit einem höheren Querschnitt. 
Dabei ist unbedingt darauf zu ach- 
ten, daß auf beiden Seiten diesel- 
ben Leitungen (dieselben Farben) 
miteinander verdrillt werden. An- 
sonsten bekommen Sie beim Ein- 
schalten einen Kurzschluß, der Ih- 
ren Computer ruinieren kann. 

Wenn Sie einen Durchgangsprü- 
fer oder ein Ohmmeter zur Hand ha- 
ben, so sollten Sie daher prüfen, ob 
die beiden Leitungen wirklich ge- 
geneinander isoliert sind. Im Zen- 
trum der beiden Stecker finden Sie 
nun einen kleinen Lötpunkt, der mit 
dem Innenteil unseres Steckers in 
Verbindung steht (beziehungsweise 
bei der Buchse auf dem Stift ge- 
schaltet ist). An diesen Pol löten Sie 
die drei gerade zusammengefloch- 
tenen Adern an. Derandere Kontakt 
wird mit den zwei Adern und der mit 
ihnen verdrillten Abschirmung be- 
legt. Wenn Sie dies auf beiden Sei- 
ten gemacht haben (vor dem AÄnlö- 
ten sollten allerdings die Gehäuse- 
hälften der Stecker über das Kabel 


Rate ziehen. 
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Stift 4 Synchr. 
Stift 5 Masse 
Stift 6 Luminanz 









































geschoben werden), so sind die 
Netzteilverlängerungen fertig, . 

Nun brauchen wir noch die Moni- 
torsteckverbindung. Dazu benutzen 
wir unser sechsadriges Kabel (fünf 
Adern und Abschirmung) unver- 
drillt. Wir müssen also sowohl die’ 
fünf Adern jeweils einzeln mit den 
Lötpunkten verbinden, wie auch 
noch die Abschirmung als sechste 
Leitung. Diese sollte dabei auf den’ 
Zentralstift' beziehungsweise bei 
der Buchse aufdaszugehörige Loch 
gelötet werden. 

Falls Sie über ein Spannungsmeß- 
gerät verfügen, so sollten Sie, bevor 
Sie die Kabelverbindung einsetzen, 
diese durchprüfen. Nach dem Ein- 
schalten müssen Sie an einem 
Stecker 5 V messen, wobei Minus 
außen und Plus im Innern des Steck- ’ 
verbinders liegt. Beim 664 (6128) 
muß die Buchse der zweiten Verbin- 
dung (ebenfalls Hülse gegen Kern) 
12 V aufweisen. Messen Sie Plus und ' 
Minus vertauscht, so haben Sie eine 
falsche Beschaltung vorgenommen. ' 
Messen Sie gar nichts, so haben Sie 
entweder einen Kurzschluß oderei- 
ne kalte Lötstelle (keine Verbin- 
dung). | 
Wichtig! 

Eine Fehlpolung der Spannungs- 
stecker, das heißt Plus und Minus 
vertauscht, kann zueiner Zerstörung 
des Computers führen. Diese ist 
selbstverständlich nicht durch die 
Garantie gedeckt. Im Zweifelsfall 
sollten Sie daher eher einen be- 
freundeten Hobbyelektroniker zu 

(Carsten Straush) ° 








2 bis 3 m Stereokabel (5polig 
abgeschirmt) ; 

1 (2) Steckerpaar(e) Niederspannungs- | 
steckverbinder nach DIN 

1 6poliger DIN-Stecker mit Kupplung 
( Jfür CPC 664, 6128 


| Die Liste der Bauteile 
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Bestellungen aus der Schweiz 
nchten Sie bitte direkt an: 

Markt& Technik Vertriebs AG, 
£ollerstr. 3, CH-6300 Zug 

Tel 042/41 5656. 

Sestellungen aus anderen Ländern 
Bitte per Auslandspostanweisung! 
Achtung: Nicht die eingeheftete 
Zahlkarte verwenden! 

Bestellun gen aus Österreich richten 
Ze bitte direkt an; Bücherzentrum 
Meidling, schönbrunner Str. 261, 
2.1120 Wien, Tel. 02 28/833198, 
zuicmcomput-ique, E. Schiller 
Fasangasse 21, A-1030 Wien, 

Tel. 0222/78566] 





Commodore 64 / 
Commodore 128 

Taxi. Aus Ausgabe 1/86, 

Musik und Farbe, Aus Ausgabe 12/88. 
SDB-Sprite Mover. Aus Ausgabe 1/86. 
ES-RE. Aus Aussabe 1/86. 

Zltraload. Aus Ausgabe 1/86 

Error 64. Aus Ausgabe 1/86 

Seroll 64. Aus Ausgabe 1/86 
Schatzsuche. Aus Ausgabe 12/88. 
ZLAD, Aus Ausgabe 13/84, 
gem auf Diskette für den Com- 
zuodore 64 

Bestell-Nr. In 8601 CD, 

DM 29,90%, sFr.24,90* 


Atari 800XL/130XE/800 
Turbo-Basic. Aus Ausgabe 12/88. 

AMPEL. Atari-Maschinen-Programm-Ein- 
Sabe-Listing. Aus Ausgabe 12/85. 
Atari-Prüfsummer, 


Jumper Il. Magic- 
Painter. Aus Ausgabe 3/85. 
Alle 5 Programme auf einer Diskette für den 
ATARI 800XL/130XE 800. 


Bestell-Nr. LH 8512B, 
DM 29,90%, sFr. 24,90% 


Schneider CPC 
Programmitransfer leicht gemacht (zwei Pro- 
gramm, 5. 72) 

“Tasword 464“ mit DIN-Tastatur (5. 73) 
Bewegte Grafik mit drei Befehlen (5. 74) 
Maschinencode-Routinen in BASIC umge- 
setzt (5. 75). Aus Ausgabe 10/85 

Sam. Aus Ausgabe 11/85. 

Deutscher en geprgane unter CP/M. Aus 


RSX-Befehle mit direkter Stringvariable. 
Aus 12/85. 


Ausgabe 
Alle 8 Programme auf einer Kassette für den 
Schneider CPC, 
Bestell-Nr. LH 8512 G, 
DM 29,90%, sFr.24,90* 


» elf gespeicherte sTraumbildere 


® gleichzeitige 
» einfache a 
techni 
” ne Farbmenü (16 Behr 
® umfangreiche Diskettenbs =) 
(Speichern, Löschen, Laden) 
. 100% Maschinensprache 
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Achtung! 

Bitte verwenden Sie für Ihre 
Bestellungen nur die einge- 
heftete Postscheck-Zahlkarte zur 
Überweisung des Rechnungs- 
betrags. 


Fehlende Hefte erhalten Sie bei 
Markt & Technik 

Vertrieb Happy Computer 
Hans-Pinsel-Straße 2 

8013 Haar bei München 





Commodore 64 

Ausgabe 10/85 

Aquantor, Zykloide, Nebenkostenabrech- 
nung, Neuer Checksummer, Plakat, Data- 
Zeilen-Wandler, Super-Saver, More 
Memory, Autolistschutz, Grafik-Window- 
Zeichner. 

Ausgabe 11/85 

Flugplanung, Finanzen 64, User-Port- 
Anzeige, Amadeus, ZXBIl-Utility, Long- 
— Chess-Screen, Colour-Screen, Auto- 
Deep. 


Alle 19 Programme auf einer doppelseitig 
bespielten Diskette für den Commodore 64. 
Bestell-Nr. LH 8511 A, DM 29,90%, sFr. 24,90* 


Spectrum 

Das „anderes Grafikprogramm. Aus Aus- 
gabe 7/85, 

Mini-Textverarbeitung. Aus Ausgabe 8/85. 
Terminal-Programm. Listing des Monats 


Alle 3 en auf einer Kassette 
für den Sinclair Spectrum. 
Bestell-Nr. LH 8510 D, DM 19,90%, sFr. 16,90* 


Atari 


Eingabehilfe für alle in Happy-Computer ver- 
öffentlichten Basic-Programme 
Geröllheimer 


Mit Screen-Editor und 20 fertigen Szenen 
5/85, 


(Spiel), aus 


24 Farben in Grafikstufe 0 


Routine für farbige Schrift (Utility), aus Aus- 
gabe 6/85. 
Diskheilp 
Für die schnelle Rettung (Utility), aus Aus- 
gabe B/B3. 
Isuche 
aus Aus- 


Mit dem Atarı auf Ölsuche (Spiel), 
gabe 8/85. 
Autostart 
Basic-Programme automatisch starten (UÜti- 


lity), aus Ausgabe 9/85 


eieri. 


ug, @ 0421415656 


0, A-1232 Wien, 5 02221677526 


Dudu 4.0 
Mehr Speicher mit der 1050 Floppy (Utility) 
aus en 10/85. 
Alle 7 Programme auf einer Diskette 
für den Atari 800 XL. 
Bestell-Nr. LH 8510 B, DM 29,90%, sFr. 24,90* 


Sonderheft: Spectrum 
Kassette Bestell-Nr 
LA 8551 D, DM 19,90% sFr. 18,90* 


Sonderheft: Schneider 


3" Diskette, Besteil-Nr.: LH 8552 D, DM 4,90% 
54" Diskette Best-Nr.: LH 8552 V, DM 34,90* 
Kassette, Bestell-Nr.: LH 8552 K DM 29 90%* 


Commodore 64 

Alle 12 Programme auf Diskette für den Com- 
modore 64 

Bestell-Nr. LH 8509 A, DM 29,90%, sFr. 24,90* 
Schnelle Grafik aus dem Compiler 

Listing des Monats aus der Ausgabe 8/85. 
Mondlandung. Aus Ausgabe 8/85. 
Komfort-Routinen. un Ausgabe 8/85. 
Grafik-Hardeopy. Aus Zuasalve 8/84. 
Psycho. Aus Ausgabe 8 

euer Aus Ausgabe rss Aus Ausgabe 


Woodshot, Sprite Mover, Short Save, Sprite- 
Dreher, Echtzeituhr, Animation 


Bitte beachten Sie, daß 





Commodore 64 

Risiko. Aus Ausgabe 7/85. 

Mini-Grafik. Aus Ausgabe 7/85. 

Muso, Aus Ausgabe 7/85. 

Maskenbildner. Aus Ausgabe 7/85. 

Aller Anfang ist schwer. Aus Ausgabe 7/85. 
Alle 5 Programme auf Diskette für den Com- 
modore 64. 

Bestell-Nr. LH 8507 A, DM 29,90%, sFr. 24,90% 


Schneider CPC 464 
Diassembler. Aus Ausgabe 4/85, 

Grafik. Aus Ausgabe 4/85. 
Dateiverwaltung. Aus Ausgabe 4/85. 
Alle3ProgrammeaufkassettefürdenSchnei- 
der CPC 464. 

Bestell-Nr. we ei 90%, sFr. 24,90* 
Text. Aus Ausgabe 3 

Gespensterjagd. Aus engete 2/85. 
Alle2ProgrammeaufkassettefürdenSchnei- 
der CPC 4864. 

Bestell-Nr. LH 8503 G, DM 29,90%, sFr. 24,% 
BW-COM-Compiler. Aus Ausgabe 7/85. 
CHAIN MERGE. Aus Ausgabe 6/85. 
Protokollfunktion. Aus Ausgabe 8/85. 
Schneider-Kurs 

Alle4 Programme aufkassette fürdenSchnei- 
der CPC 464 

Bestell-Nr. LH 8508 G, DM 29,0%, sFr. 24,90* 


der Kassette/’Diskette keinerlei Informationen beiliegen. Lesen Sie 


daher aufmerksam die Anleitung in dem jeweiligen Artikel nach. Eventuelle systematische 
Fehler, die sich in den Programmen noch befinden können, müssen von Ihnen selbst, nach 


Studium der Nachhallseite, korrigiert werden. 


* Alle Preise inklusive Mehrwertsteuer, unverbindliche Preisempfehlung. Programm-Service-Produkte sind nur für Endkunden, nicht für Wiederverkäufer. 





Spiele 








Schneider verspielt 





E57 Vor lauter CP/M und RSX sollten 
RS, % Sie die unterhaltsamen Seiten Ihres 
Ay] Schneider-Computers nicht verges- 





sen. Für den CPC gibt es ein sehens- 


En mn von Computerspielen, aus 
dem wir Ihnen einige Leckerbissen vorstellen. 


chneiders CPC-Computer füh- 
S ein schillerndes Doppelle- 

ben: Aufdereinen Seite sind sie 
hochkarätige Heimcomputer, die 
sich mühelos für professionelle Ein- 
sätze hochpäppeln lassen. In die- 
sem Artikel wollen wir uns der an- 
deren, schillernden Seite widmen; 
der spielerischen. Vor allem aus 
England gibt es eine anhaltende 
Welle von Computerspielen für den 
CPC. Das liegt vor allem daran, daß 
der mit dem Schneider identische 
Amstrad-Computer in Großbritan- 
nien ähnlich weit verbreitet ist wie 
bei uns, und ın England bekanntlich 
viele große Softwarefirmen zu Hau- 
se sınd. 





Mit seiner hochauflösenden Gra- 
ik, der breiten Farben-Palette und 
dem schon in der Grundausstattung 
stattlichen Arbeitsspeicher von 64 
KByte bietet sich der CPC auch 
förmlich als Spielcomputer an. Als 
reine Spielmaschine ist er aller- 
dings nicht zu empfehlen, da hier 
der berühmt-berüchtigte Commo- 
dore 64 dank Sprites und leistungs- 
starken Audio- und Video-Chips bei 
den 8-Bit-Computern immer noch 


a a a a a 


die Nase vom hat. Aber wenn man 
die Kiste schon mal im trauten Heim 
hat, um damit zu programmieren 
oder Briefe zu schreiben, will man 
sich auch mal bei einem Spielchen 
entspannen. Mit welchen Titeln das 
besonders gut geht, verraten wir Ih- 
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Gun powder stores, 


You are carrying a tank of 


Öxugen Level 


quarter 


nen in diesem Artikel. Die Bezugs- 
quellen für die hier aufgeführten 
Spiele finden Sie am Ende. Die Prei- 
se für die Kassetten-Versionen be- 


wegen sıch in der Regel zwischen 25° 


und 39 Mark; einige Titel sind auch 
auf Diskette erhältlich. 


Leider gibt es bis heute nur relativ? 


wenige Spiele, die auf dem Schnei- 
der geschrieben wurden und die 
Fähigkeiten des Computers so rich- 


tig ausreizen. Bei den zahlreichen! 


Umsetzungen von C 64-Spielen ist 
Vorsicht geboten. Die Schneider- 
Adaptionen erreichen fast nie die 
Qualität des Originals; die Hand- 
lung ıst zwar meistens identisch. 
aber vor allem beider Grafik hapert 
es mitunter gewaltig. Wer ein tolles 
Spiel auf dem Commodore 64 sieht, 
sollte mit einem spontanen Blind- 
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Grafisch abwechslungsreich: »The Devils Crown« 
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kauf der Schneider-ersion etwas 
vorsichtig sein. Am besten schaut 
man sich die Umsetzung im Softwa- 
re-Shop vor dem Kauf an oder läßt 
sıch über die Qualität der Umset- 
zung vertrauensvoll informieren. 


Gut umgesetzt 
ist halb gewonnen 


Ein gelungenes Beispiel für eine 
gute Adaption ist » Bounty Bob strikes 
back«. Das Spiel hat eine simple 
Grundidee: Der Bergarbeiter Boun- 
ty Bob muß in 25 Bergwerksstollen 
alle Gerüstteile absichern. Dies ge- 
schieht dadurch, daß er über jedes 
Teil mindestens einmal läuft und so 
das Gerüst farbig ausfüllt. In das 
nächste Bild gelangt man erst, wenn 
man einen Stollen komplett abge- 
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räumt hat. Um bei diesem Spiel alle 
Screens kennenzulernen, ist man 
leicht ein paar Monate beschäftigt, 
da es nur so von tödlichen Mutanten 
und trickreichen Fallen wımmelt. 
‚Bounty Bob« ist eines der besten 
Plattformspiele überhaupt und — 
zumindest was meinen Geschmack 
angeht — wesentlich witziger und in- 
teressanter als der Bestseller »Jet 
Set Willy. 

Und noch eine gelungene Umset- 
zung: »Master of the Lamps« ist ein 
schnelles Geschicklichkeits-Spiel 
fürC 64, dasvorallemvondentollen 
Grafik- und Sound-Effekten lebt, da 
der Spielablauf eher simpel ist. Die 
Adaption der Musikstücke klingt auf 
dem Schneider dank des mickrigen 


Gelungene Umsetzung: 
»Master of the Lamps« 


Lautsprechers äußerst flau, doch 
die flotte 3D-Grafik steht dem Orig!- 
nal in nichts nach. Der Spieler düst 
als Prinz mit seinem Zauberteppich 
durch abstrakte Energie-Rauten, 
die in Windeseile auf ihn zuflitzen. 
Nach jeder heil überstandenen 
Flugsequenz kann man sıch einen 
Teil der begehrten Königskrone 
schnappen, indem man eine Melo- 
dıe richtig nachspielt. Vom Hand- 
lungsablauf her wirklich nicht be- 
sonders aufregend, aber eın tolles 
Spiel für Liebhaber schneller, schö- 
ner Grafik-Effekte. 


Strategie mit Witz 


Kevin Toms ist ein englischer Pro- 
grammierer, der mit zwei sehr ori- 
ginellen Strategie-Spielen viel Er- 
folg hat: »Football Manager« und 
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»Finders Keepers«, das preiswerte Action-ÄAdventure 
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»Software Star«. Beide Programme 
sind nicht übermäßig kompliziert 
und schnell zu lernen, doch der 
Spielreiz ist auch längerfristig sehr 
hoch. Das liegt wahrscheinlich vor 
allem daran, daß man bei beiden 
Programmen einen Spielstand auf 
Kassette speichern und später von 
da aus wieder weitermachen kann 
— quasi ein Spiel fürs Leben. Beide 
Male schlüpft man in verantwor- 
tungsvolle Rollen: Einmal versucht 
man sıch als Trainer einer Fußball- 
mannschaft, einmal als Leiter einer 
Computersoftware-Firma- Bei »Foot- 
ball Manager« können Sie Spieler 
an- und verkaufen, Ihre Mannschaft 
aufstellen und die Kicker (hoffent- 
lich) zu Siegen führen. Der Bundesli- 
ga-Aufstieg wınkt und eines Tages 
vielleicht sogar dıe Meisterschaft. 
Bei »Software Star« geht es um Ver- 
kaufserfolge ın den Computerspiel- 


Spiele 





Charts, Sie bestimmen, wie lange 
ein Programm entwickelt wird, wıe- 
viel für Werbung investiert wird, etc. 
Beide Spiele ähneln sich etwas, sind 
inhaltlıch aber sehr eigenständig. 
Einsteigern sei »Football Manager« 
empfohlen und wem dieses Spiel 
Spaß macht, der ist mit »Software 
Star« auch sehr gut bedient. 

Ein neues Spielgenre erfreut sıch 
immer wachsender Beliebtheit: die 
sogenannten »AÄction-Ädventures«. 
Bei dieser Mischform muß man so- 
wohl seine sSpielligur durch ver- 
schiedene Bilder steuern als auch 
Gegenstände aufsammeln und im 
richtigen Moment gebrauchen. Da 
man oft nur eine bestimmte Anzahl 
von Dingen bei sich tragen kann, 
sind Logik und natürlich viel Ge- 
duld gefragt. Ein ausgesprochen 
preiswerter Vertreter dieses Gen- 
res ist das zırka 10 Mark teure »Fin- 
ders Keepers«, das etwas an diverse 
Plattformspiele erinnert, aber auch 
Funktionen wie Gegenstände neh- 
men, verkaufen etc. erlaubt. Inhalt- 
lich ähnlich, aber grafisch abwechs- 
lungsreicher, ist »The Devils Crown«. 
Hier müssen Sie durch immerhin 40 
Bilder flitzen und sieben Juwelen fin- 
den. Behindert wird man dabei von 
liebreizenden Zeitgenossen wie 
den Geister-Piraten und den Killer- 
Fischen (nicht zu verwechseln mit 
Kuno, dem Killer-Karpfen). 


Trickfilm-Grafik 


Wer eine hervorragend animierte 
Grafik auf seinem Schneider erle- 
ben will, greife zu »Tir Na Nog« und 
»Dun Darach«. Auch diese beiden 
exotisch klingenden Titel kann man 
als Action-Adventures bezeichnen. 


Spiele 





Hier muß man in Ädventure-Manier 
wieder eine bestimmte Aufgabe er- 
füllen, doch das Besondere an den 
beiden Spielen ist die grafische Ge- 
staltung. Die Figur, die der Spieler 
steuert, wandelt beinahe in Zeichen- 
trick-Qualität über die Mattscheibe. 
Im Gegensatz zu »echten« Adventu- 
res ıst man bei seinen Handlungen 
allerdings beschränkt: Bei »Dun 
Darach« kann man den Blickwinkel 
wählen, Gegenstände aufsammeln, 
hinlegen und anderen Spielfiguren 
anbieten. Auch hier darf man nur ei- 
ne bestimmte Anzahl von Dingen 
bei sich tragen: drei Gegenstände 
plus Bargeld nach Belieben. 

Doch wir wollen auch die »richti- 
gen« Adventures nicht vergessen. 
Nahezu alle Schneider-Abenteuer- 
spiele werden auf Kassette angebo- 
ten und laden nicht nach; Text und 
Grafiken müssen also in die 64 KBy- 
te Arbeitsspeicher gestopft werden. 
Daß dabei trotzdem ein gutes Spiel 
rnit vielen Bildern und interessanten 
Texten herauskommen kann, bewei- 
sen die Titel der englischen Adven- 
ture-Spezialisten Level 9. Ihr jüng- 
stes Werk »Red Moon« liegt auch in 
einer sehr guten CPC-Fassung vor. 


Disketten-Adventure »Frankie crashed on Jupiter« ... 





Ein englischsprachiges Grafik- 
Abenteuer der klassischen Art mit 
über 200 Orten, guten bis sehr guten 
Bildern und einer interessanten Fan- 
tasy-Handlung mit viel Magie. 

Vor allem für Einsteiger ıst das 
Disketten-Adventure »Frankie cra- 
shed on Jupiter« interessant, Das 
Spiel ist nicht allzu schwierig und 
macht dank witziger, englischer 
Texte und mitunter sehr sehenswer- 
ten Grafiken Spaß. 

In diesem Artikel konnten wir aus 
Platzgründen nur einige interessan- 
te Schneider-Spiele kurz anreißen. 
Für Interessierte folgt zum krönen- 
den Abschluß deshalb etwas hem- 
mungslose Eigenwerbung: Wer sich 
für Computerspiele im allgemeinen 
interessiert, sollte mal einen Blick 
auf das Sonderheft »Spiele-Tests« 
von Happy-Computer werfen. Ne- 
ben Stories und einer Marktüber- 
sicht findet man hier über 100 kriti- 
sche Tests. Viele der vorgestellten 
Spiele sind auch für den Schneider 
CPC erhältlich. Und wer sich aktuell 
jeden Monat über das Spiele- und 
sonstige Schneider-Geschehen in- 
formieren will, greife jeden Monat 
zur neuen Happy-Computer., 
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...' mit witzigen Texten und Grafiken 


Zu guter Letzt noch ein kleiner 
Ausblick auf kommende Schneider- 
Spiele: So ist für Dezember 1985 die 
langerwartete Auslieferung der 
CPC-Adaption des Kultspiels »Elite« 
angekündigt. Die Grafik ıst mit der 
erfolgreichen C 64-Version so gut 
wıe ıdentisch; inhaltlich wird sogar 
noch mehr geboten: Die Schneider- 
Fassung enthält nämlich zwei Spe- 
zıal-Missionen mehr. 

Eine neue englische Softwarefir- 
ma namens Electric Dreams be- 
schäftigt einige erfahrene Z80-Ex- 
perten inseinem Programmierteam. 
Von den ersten drei Spielen dieser 
Firma bekamen wır bisher ein Vi- 
deo-Demo zu sehen. Vor allem »Win- 
ter Sports«, die Antwort auf »Winter 
Games« für den © 64, dürfte ein Rie- 
senhit werden. Das Sportspiel bietet 
neun Disziplinen inklusive einer 
starken. Eishockey-Simulation. Auf 
diese Neuerscheinungen kann man 
nur gespannt sein. Sıe zeigen deut- 
lich, daß der Schneider spielerisch 
noch lange nicht ausgereizt ist. 
BREITE (Heinrich Lenhardt) 
:F Tankie crashed on Jupiter« gibt's bei Kingsoft, Fritz Schä- 
fer, Schnackebusch 4, 5106 Roetgen, Tel. (03408) 8319 
Alle anderen Spiele erhalten Sie bei Joysoft, Humboldtstr, 


54, 4000 Düsseldorf 1, Tel. (021) 5801403 


MITTEILEN ZU 
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ER GESTWERT 
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Ein Zuckerhut 
für den Schneider 






\ vl 


teure Profi-Computer kennt sie 

jeder — die Zuckerhüte, gebo- 
genen Ebenen und viele andere 
beeindruckende Grafiken. Daß es 
sıch im Endeffekt meist nur um sehr 
einfache mathematische Formeln 
handelt, wissen nur wenige Wie 
programmıert man nun eine solche 
Funktion, die von zwei Variablen ab- 
hängt? Folgende Überlegungen sol- 
len uns zu einer universellen Dar- 
stellungsroutine führen, die es er- 
laubt, jeden Graphen in einem frei 
wählbaren Bereich abzubilden. Die 
notwendigen Unterfunktionen (wie 
beispielsweise Sinus (SIN) und Cosi- 
nus (COS) müssen allerdings in der 
Syntax des Computers vorgesehen 
sein. 

Bevor wir uns endgültig in die Pro- 
blematık vertiefen, müssen wir uns 
zunächst wohl oder übel mit einigen 
grundsätzlichen Problemen im Be- 
reich der Funktionsdarstellung be- 
schäftigen. Bleiben wir dabei zu- 
nächst im zweidimensionalen Be- 
reich und beginnen mit einer ganz 
einfachen Funktion, die von nur ei- 


BR: den Werbeprospekten für 





. Ein beliebtes Demonstra- 
tionsobjekt auf dem Com- 
ru puter sind Funktionen, 

“| die von zwei Variablen ab- 
hängen. Die spektakulär aus- 
sehenden 3D-Grafiken sind ein- 
facher als man denkt. 





ner Variablen abhängig ist: y = 
sin(x). Wenn Sie die Schleife »ORI- 
GIN 0,200:FOR ı=0 TO 4*PI: PLOT 
1,SING): NEXT ı« eingeben, sollte Ihr 
Schneider eine Sinus-Kurve aufdem 
Schirm ausgeben. 

Wir erhalten jedoch nur einen 
kleinen geraden Strich als Resultat. 
Der Grund: falsche Skalierung! Die 
Sinus-Funktion schwankt bekanntlı- 
cherweise nur in einem relativ ge- 
ringen Wertebereich zwischen —| 
und 1. Damit werden nur maximal 
zwei Bildschirmlinien in der Höhe 
adressiert. Ohne Vergrößerung 
können diese Werte aber nıcht aus- 
reichend gut aufgelöst gezeichnet 
werden. Führen wir einen Multipli- 
kator ein, so ist dieses Problem ge- 
löst, Da dıe Schwankungsbreite be- 
kannt ist, Können wir ohne weiteres 
errechnen, wie groß unser Multipli- 
kator sein soll, um den Schirm ın Y- 
Richtung möglichst optimal auszu- 
füllen. Wir verfügen über 400 Pseu- 
dopunkte in der Höhe. Den Ur- 
sprung unseres Koordinatensy- 
stems legen wır in die Bildschirm- 
mitte (Bildschirmzeile 200). Zur Dar- 


Im Modus O sieht 
die Kurve sehr 
eckig aus 





stellung unserer Sinusfunktion kön- 
nen wır also 200 Punktlinien nach 
oben und unten nutzen. Da der Sınus 
zwischen —1l und | schwankt, wird 
bei einer Multiplikation mit 200 dem- 
nach der gesamte Schirm ausge- 
füllt. 

Man muß sich allerdings bei die- 
sen Überlegungen darüber im kla- 
ren sein, daß man nur 400 Bild- 
schirmpseudopunkte zur Verfügung 
hat. Effektiv kann man nur mit 200 
einzelnen Bildpunkten arbeiten. 
Dies läßt sich mit einem kleinen Ex- 
periment belegen. Geben Sie eın- 
mal nach CLS die folgenden Kom- 
mandos »PLOT 320,200« und »PLOT 
320,201« ein. 

Nach dem ersten PLOT erscheint 
ein gelber Punkt in der Bildschirm- 
mitte. Das zweite PLOT dagegen hat 
keinerlei Auswirkungen. Der Grund 
ıst einfach. Beide PLOT-Befehle 
adressieren denselben Bildpunkt. 
In Wirklichkeit haben wır es also ho- 
rızontal nur mit 200 trennbaren Bild- 
schirmlinien zu tun. Einen ähnlichen 
Effekt kann man auch bei der Be- 
trachtung der X-Angaben in den 
PLOT- und DRAW-Befehlen erken- 
nen. In den Modi mit höherer Farb- 
auflösung werden Punkte in X- 
Richtung zusammengefaßt. Dabei 
maximal vier PLOT-Kommandos ım 
Mode 0, dieselbe Punktgruppe, 
nämlich »PLOT 320,200«, »PLOT 
321,200«, »PLOT 322,200« und »PLOT 
3293,200«. 

Um diese Zusammenhänge zu 
verdeutlichen, wurde deshalb der 
Begriff Pseudopunkte gebraucht. Es 
stellt sich die Frage, warum der 
Schneider eigentlich einen viel qrö- 
ßeren Zahlenbereich für die An- 
sprache verwendet, als er dann ef- 
fektiv benötigt. Dafür gibt es zwei 
Gründe: Zumeinenistes durch eine 
größere Wertangabe für die Y-Kom- 
ponente möglıch, bei schräglaufen- 
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den Linien den optimal zu setzenden 
Bildpunkt durch Interpolation ge- 
nauer zu bestimmen. Zum anderen 
sollte dadurch ein besseres Verhält- 
nis von X- zu Y“Werten erreicht wer- 
den. Beim Zeichnen von Kreisen 
beispielsweise ergäbe sich bei glei- 
chem Abstand ansonsten eine Ellip- 
se. Für unsere weiteren Programme 
sind diese Überlegungen für die 
Frage der Auflösung wichtig. Es hat 
beispielsweise keinen Sinn, die Ab- 
stände bei einer parallel zur X-Ach- 
se verlaufenden Linienschar ın Y- 
Richtung in %oo-Schritten zu variie- 
ren. Dadurch würde nur zweimal 
derselbe Punkt gesetzt. Außer einer 
längeren Rechenzeit wäre das Re- 


‚sultat einer solchen Verbesserung 


der Auflösung« gleich Null. Wenn 
wir auch bei unseren Berechnun- 
gen weiterhin den Rahmen von 640 x 
400 Bildpunkten als Grundlage be- 
nutzen müssen, können wir aber ge- 
gebenenfalls in größeren als ler- 
Schritten vorgehen. 

Bei der Programmentwicklung 
müssen wir zunächst unsere Funk- 
tion nach demselben Verfahren 


auch in X-Richtung strecken. Denn 


auch hier »kleben« die einzelnen 
Punkte noch viel zu dicht aufeinan- 
der. 4PI entspricht ungefähr dem 
Wert 12,5. 

Da wir 640 Pseudopunkte in Rich- 
tung der Äbszisse zur Verfügung ha- 
ben, liefert uns hier 630/12,5=51.2 
den optimalen Multiplikationsfaktor. 
Mit »ORGIN 0,200: FOR i=0 TO 
4*PI:PLOT 51,2*1,200*SING)« ist dann 
eine vemiünftige Darstellung er- 
reicht. Wie sieht nun die Funktion im 
negativen Bereich aus? Dazu verän- 
den wir den Bereich, in dem I vari- 
iert, zu»FOR i=—2*PI TO 2*Pl«. Statt 
des erhofften Kurvenverlaufs zwi- 
schen —2PI und 0 wird jetztnur noch 
ein Teil der ersten Schwingung dar- 
gestellt, daß der Ursprung unseres 
Kooridnatensystems ungünstig ge- 
wählt ist. Der Nullpunkt liegt näm- 
lich ganz am linken Bildschirmrand, 


wodurch der Computer die Werte, 


die sich für negative X ergeben, 
nicht mehr darstellen kann. Die rich- 
tige Wahl der Skalierung und des 
Mittelpunktes stellt aber kein Pro- 
blem dar, falls man die Maxima-und 
die Minima-Angaben für X bezie- 
hungsweise Y kennt. Es seien 
XMIN — die minimale X-Koordinate, 
XMAX — die maximale 
X-Koordinate, 
YMIN — die minimale Y-Koordinate 
und 
YMAX — die maximale 
Y-Koordinate. 

Der optimale Punkt für den Koor- 
didnatenursprung berechnet sich 


dann nach folgenden Formeln (sie- 
he Bild |): 


See — Kain 
X, = a 639 und 
a 
Ba ee 389 
“ Den Ka 


Als Nebenbedingung muß jedoch 
Kinn SO UNO Amar Yaz <U GE 
ten, damit dieser Punkt auch mit 
dem Ursprung des Koordinatensy- 
stems identisch ıst. Als nächstes be- 
nötigen wir noch die Skalierungs- 
faktoren, die auch relativ einfach zu 
bestimmen sınd. 


r Kae Ari 
COX = Var und 
mar I mi 
yo max + min 
; 399 


Offen ist jetzt noch die Frage, wo- 
her wir die Angaben für Y., und 
Yınin erhalten. Einmal können wir 
diese, genau wie auch den Werte- 
bereich von X, über eine Eingabe- 
routine abfragen. Voraussetzung da- 
für ist aber, ungefähre Vorstellung 
von der Größe der auftretenden Er- 
gebnisse zu haben. Speziell bei 
komplexen Funktionen, die von ei 
ner ganzen Reihe von Unterfunktio- 
nen abhängig sind, ist dies nicht 
praktikabel. Es gibt aber die Mög- 
lichkeit, eine automatische Grenze- 
bestimmung durch ein Programm 
machen zu lassen. Das heißt, der 
Schneider bestimmt selbständig die 
Extremwerte und danach den Ur- 
sprung des Koordinatensystems so- 
wie die Skalierungsfaktoren. Dazu 
wird unsere Zeichenschleife ein- 
fach zweimal durchlaufen. Das erste 
Mal allerdings in einer leicht verän- 
derten Form. Statt des PLOT-Kom- 
mandos werden mit »MIN« und 
MAX« die Extremwerte bestimmt. 
Diese neue Zeile lautet dann in un- 
serem Beispiel: 


YYMAX=—1E38YMIN = 1E38:FOR 


i=0 TO 4#PIYMAX=MAX(YMAX, 
SING):Y MIN = MIN(YMIN,SING)): 
NEXT i«. 





Grafik-Grundlagen 


Zunächst werden die Variablen, 
die die Grenzwerte aufnehmen sol- 
len (XMAX und YMIN), auf mög- 
lıchst kleine beziehungsweise gro- 
Be Werte gesetzt, um eine definierte 
Ausgangsposition zu schaffen. Als 
nächstes werden dann für alle i die 
Funktionswerte bestimmt und paral- 
lel dazu, wenn nötig, die Eckanga- 
ben in YMAX und YMIN verändert. 
Damit können wir nun eine einfache 
Funktionsdarstellungs-Routine (Li- 
sting 1) schreiben. 

Am Anfang finden Sie die automa- 
tische Extremwertbestimmung, be- 
vor dann Mittelpunkt und Strek- 
kungsfaktor festgelegt werden. Es 
folgt die Darstellung des Achsen- 
kreuzes und der Funktion, die in Zei- 
le 250 steht. Dieses Programm er- 
hebt keinerlei Änspruch darauf, be- 
reits eine komfortable Darstellungs- 
routine zu sein. Es soll nur das Prin- 
zip ıllustrieren und vor dem Einstieg 
in die dreidimensionale Grafik eine 
lauffähige zweidimensionale Ver- 
sion präsentieren. 

Mehrere Punkte lassen bei dem 
Beispiel noch zu wünschen übrıg. 
Zum einen ist die Funktionseingabe 
mangelhaft. In einem benutzer- 
freundlichen Programm kann es 
nicht angehen, daß dieses abgebro- 
chen und nach Eingabe der mathe- 
matischen Formel (hier in Zeile 230) 
gestartet werden muß. Ferner sollte 
der Computer die Achsen selbstän- 
dig bezeichnen, damit konkrete An- 
gaben für einzelne Punkte zu erken- 
nen sind. Wir wollen diese Mängel 
im Kopf behalten, wenn wir uns nun 
damit beschäftigen, wie das 3D- 
Funktionsprogramm aussehen soll. 


3D-Funktion 


Grundlage jeder dreidimensiona- 
len Abbildung sınd die Projektions- 
gleichungen. Wenn wir eine Funk- 
tion darstellen wollen, die von zwei 
Variablen abhängig ıst, so benöti- 
gen wir zunächst einmal ein dreidi- 
mensionales Achsenkreuz. Auf der 
x-Achse und der in den Raum füh- 
renden y-Ächse (diese ist nicht mit 
der y-Achse im zweidimensionalen 
Koordinatensystem identisch) trägt 
man dabei die sich ändernden Ein- 
gabegrößen auf. Der Wert auf der 
senkrecht dazu stehenden z-Achse 
gibt das Ergebnis der Funktion wie- 
der. Nun haben wir aber als Darstel- 
lungsfläche nur die zweidimensio- 
nale Bildschirmebene zur Verfü- 
gung. Um dennoch eine dreidimen- 
sionale Funktion — eine Funktion, 
die von zwei verschiedenen Varia- 
blen abhängig ist — abbilden zu 
können, müssen wir daher auf eine 


=, 











Projektion (perspektivische Darstel- 


lung) zurückgreifen. Dazu teilen wir 
die Angaben für ysoaufxundz auf, 
daß ein räumlicher Eindruck ent- 
steht. Als Verfahren dient uns dabei 
die Parallelprojektion. 

Auf der Basis dieser Projektions- 
technik zerlegen wir den Wert für y 
mit Hilfe von Winkelfunktionen in ei- 
ne x- und eine z-Komponente. Wie 
diese Verschiebung sich auswirkt, 
verdeutlicht Bild 2. Bei y=0 haben 
wir es mit einer ganz normalen zwei- 
dimensionalen Darstellungzu tun. In 
der Zeichnung wird dies durch den 
Beispielpunkt (5/0,5) verdeutlicht, 
wobei die Koordinaten in der Rei- 
henfolge x, yundzangegeben sind. 
Die Verschiebung, die sich ergibt, 
wenn zusätzlich auch noch y=5 ge- 
setzt ist, zeigt der zweite Beispiel- 
punkt. Je kleiner d gewählt wird, de- 
sto stärker schlägt y auf die darzu- 
stellende x-Komponente durch. Um- 
gekehrt führen größe Winkel zu ei- 
ner erheblich über das Maximum 
von z heranwachsenden yz-Kompo- 


'nente. 


Nun sind wir aber zunächst einmal 
in der Lage, aus den dreidimensio- 
nalen Angaben unsere entspre- 
chenden zweidimensionalen Dar- 
stellungswerte zu berechnen. Ha- 
ben wir also mitx, yund z die Werte 
im dreidimensionalen Koordinaten- 
system und mit d den Winkel zwi- 
schen der x- und der y-Ächse in der 
Darstellungsebene gegeben, so er- 
geben sich für eine Umformung die 
Formeln X = x+y*cos «a und 2 = 
z+ y*sin o. 

In X und Z sind die Angaben für 
das zweidimensionale Achsensy- 
stem als Abszissen- und Ordinaten- 
wert enthalten. Wenn wir nun also in 
einer Doppelschleife x und y variie- 
ren und die zugehörigen z-Werte be- 
stimmen, so können wir mit Hilfe die- 
ser Formeln und gegebenenfalls 
den weiter oben schon beschriebe- 
nen Umrechnungsoperationen X 
und Z zur Skalierung die Werte be- 
stimmen, die in unserer zweidimen- 


sıonalen Darstellung gesetzt wer- 
den müssen. 

_ Hierbei ergibt sich allerdings ein 
Problem. Durch die Projektion der 
y-Werte auf die x- und z-Achse kann 
es, wie wir Jaschon gesehen haben, 
dazu kommen, daß die Extremwerte 
für X und Z weit über die Angaben 
hinausgehen, die wir für X und Z als 
Grenzwerte angegeben haben. For- 
mal sind dafür in den Gleichungen 
die Terme mit den Winkelfunktio- 
nen verantwortlich. Durch die Pro- 
jektion ergibt sich das Maximum 
von X nun beispielsweise nicht mehr 
als Maximum von x, sondern zu die- 
sem Term ist auch noch das Maxi- 
mum von y multipliziert mit dem Pro- 
jektionsfaktor cos & zu addieren. 
Dies beeinflußt sowohl die Wahl des 
Mittelpunktes als auch die Werte für 
die Skalierungsfaktoren. Bild 3 zeigt 
die Zusammenhänge, Obwohl die 
Schwankungsbreite für y deutlich 
kleiner ist als die Veränderungen 
für x und z liegt der rechte Extrem- 
punkt pdennoch weit außerhalb un- 
serer Schranken. Für die Bestim- 
mung des größten und kleinsten 
darzustellenden Werts (sowohl in X- 
wie auch in Z-Richtung) müssen wir 
also unsere Bestimmungsgleichun- 
gen verändern. Wir bezeichnen das 
Minimum von X mit MIX, das Maxi- 
mum mit MX. Das Minimum von Zer- 
hält die Bezeichnung MIZ und der 
zugehörige Maximalwert wird mit 
MZ beschrieben. Des weiteren defi- 
nieren wir: 


MINYPX =MINY *cosa 
MINYPZ =MINY *sin« 
MAXYPX = MAXY *cosa 
MAXYPZ = MAXY *sina 


wobei Minimum (y) und Maximum 
(y) die Extremwerte für y in der drei- 
dimensionalen Darstellung, MI- 
NYPX, MINYPZ und so weiter ihre 
Projektionen auf die zweidimensio- 
nale X- beziehungsweise Z-Achse 
sind. Die absoluten Schranken erge- 
ben sich dann als 


MIX = MIN(MINYPX+MINX, 
MINX, 0) 

MX = MAX(MAXYPX+MAXX, 
MARXX, 0) 

MIZ = MIN(MINYPZ+MINZ, 
MINZ, 0) 

MZ = MAX(MAXYPZ+MAXZ, 
MAXZ, 0) 


ergeben. Die 0 wurde dabei in allen 


All diese Formen beruhen auf 
dem gleichen Prinzip, Es ist ein Ex- 
tremwert aus mehreren Grenzwer- 
ten zu bilden, die sich aus den Ach- 
senextrema mit und ohne Projektion 


Gleichungen eingeführt, um sicher- 
zustellen, daß der Nullpunkt unse- 
res Koordinatensystems auf dem 
Bildschirm dargestellt wird. Er istja 
eine wichtige Orientierungshilfe, 
Wenn die Maxima auf jeder Achse 
kleiner als Null gewählt wurde, be- 
ziehungsweise sich als keiner Null 
ergeben, so würde der Nullpunkt 
nicht abgebildet werden. Derselbe 
Falltritt natürlich auch ein, wennalle 
drei Wertebereiche deutlich positiv 
gewählt wurden, also alle Minima im 
positiven Bereich liegen. Aus Grün- 
den der Auflösung kann es aber in 
manchen Fällen geraten sein, auf 
die Darstellung des Achsenkreuzes 
zu verzichten. Dies ist ratsam, wenn 
man in relativ weiter Entfernung ' 
vom Achsenkreuz einen nur kleinen 
Wertebereich analysieren will (bei- 
spielsweise bei 50<x<35l, 50<y< 
5l), Wenn man hier das Achsen- 
kreuz darstellen läßt, so kleben am 
rechten Bildschirmrand einige: 
Funktionswerte am linken Rand 
wird das Achsenkreuz abgebildet 
und der Zwischenraum bleibt leer. ° 
In solch einem Fall sind die Null- ° 
Vergleichswerte zur Bestimmung 
der Extremwerte zu streichen. 

Die Koordinaten des Nullpunktes 
erhalten wir nun in Analogie zur 
zweidimensionalen Darstellung. Da- 
bei wurde allerdings unser Bild- 
schirmfenster in der Höhe etwas 
verkleinert, um oberhalb und unter- 
halb der Darstellung noch Platz für 
Beschriftungen und so weiter zu re- 
servieren. Dafür wurden jeweils 40 
| vorgesehen. Es gilt ° 

ann: 
































—MIX 









a 
% MX—MIX er 
2 MIZ 

= ee 
Y„=4 + MZ_MIZ 320 






Nach dieser »Vorarbeit« können 
wir uns nun daran machen, unser 
3D-Darstellungsprogramm zu ° 
schreiben (Listing 2). | 



















Bild 3. Die Extrempunkte der zwei- 
dimensionalen Abbildung liegen 
weiter auseinander 







"SE In V, 


EEE HH 

"#** 2-D-Graph ##* 

2 2 — 2 2 2 2 2 2 2 2 2 20000 

ECLS | 
ymin=1E+38: vmax=-1E+5B 
INPUT"Unteraorenze X";xmin 
INPUT"Obergrenze{i2 SPADEI X" sxmax 
sy=(xmax-xmin) 7537 

PRINT"Sind die Y-Extrema bekannt j/n" 
z#=LDOWER# (INKEY$): IF z$="n" THEN 148 

ELSE IF z$<i>"j" hör . 


INPUT"Untergrenze y 
INPUT"Obergrenzet2 SPACE) Y"s ymax 
GOTO 158 

vmin=1E+38: vmnax=-1E+38:FOR »=xmin TO 


»max STEP sx:60S5UB 2580: vmax=MAX (vma 
“.y)symin=MIN(ymin,„y):NEXT x 
c#»=5439/ (xmax-xmın) 
ı cy=397/ (yvmax-ymin) 
ox=-xmin/ (xmax-xmin) #537 
oy=-ymin/(ymax-vmin) #397 
ORIGIN ox ,oy 
CLS 
PLOT 8,8:DRAWR B,489:DRAWR B,-808:MJ 
VE 8,8:DRAWR 440,8: DRAWR-1288,8 
x=xmin:GOSUB 250: PLOT KAcH „vicy 
FOR x=«min TO xmax STEF sx : 60SUB 258 
:DRAW »#cx „cy#y:NEXT x 
GOTO 248 
v=CO0S (3%#2) #5IN (x) +5IN(2#x) 
RETURN 


LEFSC]I 


[CBDAs] 
[8SF4B] 
£EDA4CC] 
[SFF4] 
ESEC4] 
[?CFE] 
[BBöF2] 


ESECH] 


[518C] 
[B728) 
[LAFSA] 
[BF45] 


[5CB4] 


[8528] 


LEFBCI 
LEFAE] 


[87CE] 
[ED4A] 
CFEiE] 
[BB358] 





Listing 1. Zweidimensionale Kurven sind leicht gezeichnet 





ee ee Eee 2 2 2 2 2 2 22 222 2 
'#+ 3D-Graphikmaster ##* 
'#+#+by Carsten Straush## 
"+ 2/18/1985 *%* 
de ee ee ee Eee ee ne ee ne ee er 
EEE + 
"## Initialisierung ## 
En 1 2 m 2 2 2 ZZ 2 ZZ SZ ZZ 2 
MODE 1:INK B.B:INK 1,24: INK 2,11:PEN 
1 
180 CLS:DEG 
118 co=COS(18):si=SIN(1B) :tassi/’co 
RAD 
ee ee Eee ee 22 2 2 2 22 22 m 
"##+ Funktionsabfrage ## 
EN 
KEY DEF 45,1,18&4:KEY DEF 45,1,118 
PRINT"Bitte geben Sie die Funktion e 
in"s:INPUT f# 
 PRINT"Ist diese Funktion o.k. tji/n)”? 
KEY 131,"Goto F9"+CHRF(13I:KEY DEF 4 
6,1,„131 
FRINT:FRINT f#:PEN B:KEY 128,"1218 " 
+f $+CHR$ (13) +"goto 258"+CHR$ (13) 
KEY DEF 45,1,128:END 
RR 
'#+ Werte einlesen ## 
EEE EEE 
PEN i1:FRINT"Bitte geben Sie den Bere 
ich ein,{Z2 SPACE}in demdie %-Werte d 
ifferieren sollen." 
KEY DEF 45,.1,1B96: KEY 
PRINT 
INPUT"Minimalwert X":minx 
INPUT"Maximalwert X";maxx 
IF maxx“minx THEN FPRINT"Falsche Eing 
abe":PRINT:GOTO 288 
PRINT 
PRINT"Bitte geben Sie den Bereich ei 
n„tZ SFACE}in demdie Y-Werte differi 
eren sollen." 
FRINT 
INPUT"Minimalwert Y"sminy 
INPUT"Maximalwert Y":ımaxy 
IF max w<miny THEN PRINT"Falsche Eing 
abe":PRINT:GOTO 3408 
Eee ee 2 ee ee ee ee en 
"##+ Darstellungsart ## 
ee ee ee ee 2 2222 22 
FRINT"Bitte geben Sie die Darstellun 
osart ein:" 
FRINT"laufende X-Werte{i5 SPACE}tEL)I" 
PRINT"laufende Y-Werte{5 SPACE} (2) " 
FRINT"Vernetzungii1 SPACE} (3) " 
z#=INKEY$: IF z£="" THEN 448 ELSE IF 
ASC(z#)<47 OR ASC(z#) >51 THEN 448 EL 
SE d=VALiz#) 
IF d=1 THEN sx=(maxx-minx)/1BB:sy=(m 
axy-miny)/18 
IF d=2 THEN sx=(maxx-minx)/1B:sy=(ma 
*y-miny) /108 
IF d=3 THEN sx<=(maxx-minx«) /1@:sy=(ima 
“y-miny)/1® 
CLS: PRINT"Grenzwertbestimmung" 
PRINT"Sind die Grenzwerte fuer Z bek 
annt j/n?" 


DEF 46,1,118 


[3788] 
[CHBE] 
[SE4E] 
[7584] 
[4578] 
[443E] 
[DösBC] 
[7442] 


[4858] 
[D23A] 
CC808] 
[C4A14] 
[COBEE] 
LEAFA] 
[25F2] 
CA4DE] 


[8C5C] 
LSZBE] 
[3SFOA] 


[384A] 
[F??72] 
[3346] 
L7D7C] 
[C54A] 


£[SD?4] 
[BAEB] 
[&28C] 
LAABDCI 
[4716] 


LEBFA] 
(C882] 


[BABö] 
[CEB65] 
L188A] 
[4D14] 


[71A4] 
[22A6] 
[CD12] 
[C2AA] 


[BEACI 
[4D38] 
[?7D35] 
CFE48] 
[14F6] 
[Z2FEC] 
[SCF@] 


[2694] 
[8158] 


[EBEB] | 





Grafik-Grundlagen 


z$=LOWER$ (INKEY$) IF. z4="j 
ELSE IF z#<>"n" THEN 5B8 
RHHHHHBHRHH 
"++ autom. Grenzwertbestimmung *## 

de 2 ee ee ee 2 Eee 222 22 2 2 22 22 
maxz=-1E+38:minz=iE+38:mix=1E+38: mx = 
-1E+58 
FOR v=maxy TO miny STEF -sy 

FOR »=maxx TO mins STEP -s* 


i" THEN #18 


ı GOSUB 1218 


maxz=MAX (maxz,z)zminz=MIN {minz „z) 


| NEXT x,„Y 


GOTO 550 
INPUT"Minimalwert Z"sminz 
INPUT"Maximalwert Z":maxz 
RR 
"#*#+ Koordinatensystem berechnen ## 
ee 
minypx=co#miny:minypz=si*#miny 
max ypx=Co*maxk y:maxypz=si*maxy 
mix=MIN(minypx +minx „minypx „min „B):m 
iz=MIN (minypz+minz „minypz „minz,®) 
mx=MAX (max ypx tmaxx „maxypx „‚maxx,Q):ma 
z=MAX (maxypz+maxz max ypz ‚maxz,®) 
ORIGIN -mix / {mx -mix) #539 ,48+(-miz/ (m 
az-miz)) #328 
ECLS | 
c#=(imx-mix) 637 
cy=(maz-miz)/32B 
EEE HEHE EEE EHE 
"##+ Funktion darstellen ## 
EEE EEE 
"##+ laufendes Y ## 
ee ee ee ee ee ee ee en 
IF d=1 THEN GOSUB 738:60T0 18308 
IF d=2 THEN GOSUB 828:6G0T0 1838 
IF d=3 THEN GOSUB 738:6G05UB 829:60T0 
1038 
FOR »=maxx TO minx STEP 
v=max y:GOSUB 
FLOT xz,yz,2 
FOR y=-maxy-sy TO miny' STEP -sy 
GOSUB 1218: 60S5UB 1238 
DRAW xz,vyz.2 
NEXT y,x 
RETURN 
EEE 
"## laufendes X ## 
EEE EHE 
FOR v=maxy TO miny STEP -sy 
x=maxx:GOSUB 1218:GOSUB 1238 
PLOT xz,yz,2 
FOR x=maxx-sx TO minx STEP -s%« 
GOSUB 1218:6G0OSUB 1238 
DRAW »z,yz.„2: 'MOVE »z,vyz-2:DRAW x»z,- 
420,8 
NEXT *„v: RETURN 
de ee ee ee ee ne 2 22 2 ee 2 2 2 2 
"#+ Eckangaben und Kreuz ## 
ee ee ee ee ee Eee ee 2 ee ee zn 


-Sx 
12190: G0OSUB 1258 


1838 MOVE -329,0:DRAWR 9758,8,1:MDVE 9,-4 


BB: DRAWR B,808:MDVE 98,8:DRAWR 448,2 
38: DRAWR-1288,-408 N Auree 5a | 
MOVE minx/cx „B:DRAWR 8,18.3:DRAWR 8 


-?8 
PRINT CHR& (22) +CHR# (1): TAG: PRINT RO 
UND (minx „23; 
MOVE maxx/’cx „B:DRAWR 8,18: DRAWR B,- 
28 
MOVER -48,8:FRINT ROUND (maxx,„2); 
MOVE B,maxz/cy:DRAUR -10, 2: DRAWR 28 


a 
MOVER @,8:FPRINT ROUND (maxz,2): 
MOVE B,minz/cy:DRÄUR -198,8: DRAUR 28 


[f 
MOVER 8.8:FRINT ROUND (minz„2); 
MOVE maxypx/cx ,ta#maxypx/cx:DRAWR — 
5,.12:DRAWR 10,-24 


1138 MOVER-40, B: PRINT ROUND (maxy,2); 
1148 MOVE minypx/cx, ta®minypx/c#:DRAWR - 
4 


1158 PRINT ROUND (miny 


5.12:DRAWR 1B,- 

Me 

TAGOFF: PRINT CHR (22) +CHR$ (0) 
IF INKEY#="" THEN 1178 ELSE RUN 
EEE EEE EHE 

"++ Formel ausrechnen ## 
EEE TEE HH FE 


1218 zeuky 


yz=si#y+z:RETURN 

x»z=(co#y+x) 

yz=Syz/Ccyixz=exz/ck 
TURN 


en SEE Sr Ze en 2 Een 2 Se 2 

"## Hilfsfunktionen ## 

HH 
PRINT"mix „mx „miz ,maz,cx„cy":PRINT m 
Eu SM BA ESRRE TEN SEN 


z=B.Bil#(v2)+x+10 


IF x«=B THEN RETURN ELSE z=SIN(x)/ (x 
-(x=B)}) - 


[4420] 
CAB3A] 
[DA7A] 
CC23E] 


[CD2C} 
[LCECD&]I 
£11D®] 
[3348] 
La74n] 
[6874] 


EFFS6] 
[F7BE] 
[BE1iB] 
[3174] 
CAF&C]I 
[AFFB] 
EAB7O] 
L4F82] 


[DF88] 
L58D8] 


LEIA6] 
[9634] 
[67A81 
[B25A] 
[11F8] 
[S8CE] 
L79FC 
[3BFA] 
[AS68]J 
[12861 
[8974] 


I[Föös4] 
LIFCE] 
[C91DCI 
[C914] 
[LBEBEI 
L9CB4] 
[C91FB] 
[6778] 
CAF42] 
[5D54] 
L6AF®] 
[CFS581 
CF2DA] 
L15SDC1 
[37181 
[8408] 
[2588] 


[45D2] 
[C4597B8] 
[4498] 
[C4FDB] 
[LBAFCI 


[&EEA] 
[A732] 
[D344] 


£[D37C] 
L[E42A] 


[1285] 
[C588] 


[3274] 
[B&6E] 


[381A] 
[SEEö] 


CFE16] 
C2D86] 
CC1D2] 
L1CA6] 
LCCAEI 
[9156] 
LI1ABI 
[3860] 
CA1As] 
LiBFCI 
[CAAF4] 
[8D98] 
[B404] 
[7368] 
[7488] 


[F&CB] 
EFD76] 
[D81C] 


[8l1EE] 


==x24y2 Listing 2. 3D-Grafik mit Komfort "77®*" 
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Grafik-Grundlagen 


Die Skalierungsfaktoren berech- 
nen sich ähnlich der zweidimensio- 
nalen Grafik. Die Berechnung fin- 
den Sie in den Zeilen 720 und 730. 
Das Programm enthält natürlich 
auch eine Routine zur automati- 
schen Bestimmung der Extremwer- 
te der eingegebenen Funktion (Zeil 
940 und folgende). Diese können 
auch »von Handı festgelegt werden. 
Die eigentliche Zeichenroutine liegt 
ab Zeile 750. Ein und dieselbe drei- 
dimensionale Funktion kann eine 
Fülle verschiedener Figuren als 
grafisches Ergebnis haben, je nach 
Größe der Schrittweite in x- und y- 
Richtung. Das Programm be- 
herrscht drei Darstellungsvarian- 
ten. Zum ersten ist es möglich, x in 
sehr kleinen Schritten zu variieren 
und dabei y sprungweise zu verän- 
dern. Dieses Verfahren bietet sich 
an, wenn kleine oder häufige (perio- 
dische) Änderungen des Funktions- 
wertes bei Änderung von X auftre- 
ten (beispielsweise wenn in dem 
Graphen ein Winkelfunktionsterm 
[cox(x), sin(x) und so weiter] auf- 
taucht). y läuft in diesem Fall in zehn 
gleichen Schritten von MINY bis 
MAXTY. Die weite Abbildungsart ist 
die Umkehrung dieser Methode. 
Fein verändertes y bei einer groben 
Variation von x. In beiden Fällen er- 
gibt sich eine Linienschar. Als drit- 
ter Fall bleibt dann noch die Kombi- 
nation aus beiden Verfahren übrig. 
Es entsteht ein dreidimensionales 
Gittermodell. Beim Zeichnen der Li- 
nien wird dabei zunächst der äußer- 
ste linke, beziehungsweise bei lau- 
fendem y der oberste Punkt einer 
jeden Linie mit PLOT gesetzt, worauf 
dann mit DRAW einzelne Linien ge- 
zogen werden. 





- Automatische 
_Grenzwertbestimmung 





Bevor wir uns nun mit einigen wei- 
teren Punkten beschäftigen, sollten 
Sie das Programm eintippen und 
laufen lassen. Als Funktion wählen 
Die zuerst z=x+y und lassen sich 
die Funktion im Bereich —10 bis 10 
für X und Y zeichnen. Nach Wahl 
der automatischen Grenzwertbe- 
stimmung (bei Grenzwerte für z »n« 
eingeben) erhalten Sie das erste 
Diagramm. Auf der x- und y-Achse 
müssen nun die Extrema aufgetra- 
gen sein (—10 beziehungsweise 10) 
und die Z-Achse ist mit —20 und 20 
beschriftet. Ob auch sonst alles 
stimmt, können Sie nach Exc mit 
»GOTO 1290« kontrollieren. Hier 
werden die wichtigsten Variablen 


XMIN 


z=x*tx—0.l*yHyry —10 
z=SIN(x)+COS(y) 0 
z=5IN(x)*COS(x) 0 
z=Xt*ty —|0 
Z=X*xXH+ y*y _ 
2=(x—5)13*y*SIN(y) —5 


10 —l0 10 
6 0 6 
6 0 6 

10 —l0 10 

10 10 

5—5 5 





Tabelle 1. Die Funktionen besitzen eine tolle Grafik 


ausgegeben. Da wegen der Viel- 
zahl von Parametern mit ähnlichen 
Bezeichnungen schon mal ein Ein- 
gabefehler vorkommt, kann hier die 
notwendigen Angaben zur Kon- 
trolle: 


MIX =—19.51 

MX =19.5] 

MIZ =—23.09 
MAZ =23,09 

CX =6,10659E—02 
CY =0.144313 


Nach dieser Probe können wir 
uns nun einige wirklich interessante 
Funktionen anschauen. Lassen Sie 
sıch dabei ruhig ein wenig überra- 
schen, 

Wir wollen uns nun mit einigen 
Problemen befassen, die bei dieser 
Art der Darstellung auftreten. Neh- 
men wir einmal das Beispiel eines 
von hinten nach vorne gebogenen 
Sattels. Beider Abbildungals Gitter- 
modell durchdringen die hinteren 
Linien die vorderen. Bei einem ein- 
fachen Sattel ist es möglicherweise 
noch sinnvoll, weil die Biegung in 
der Linienführung die Grundstruk- 
tur der Figur noch betont. Wenn 
man jedoch auf der Y-Achse eine 
Sinus-Funktion aufträgt, ergeben 
sich mehrere voneinander liegende 
‚Wellenberge«, Die klare Übersicht 
leidet und es ergibt sich ein ziemli- 
cher Linienbrei. Für diese Problem- 
fälle unter den Funktionen gibt es 
nun die Möglichkeit, die weiter hin- 
ten liegenden Funktionsteile auszu- 
blenden. Man erlebt die Figur dann 
nur noch so, als wenn sie undurch- 
sichtig wäre. Die dazu notwendigen 
Voraussetzungen bietet unser Pro- 
gramm bereits. Wir müssen nur 
noch einige kleine Änderungen vor- 
nehmen. Das Prinzip ist dabei ganz 
einfach: Wenn wir laufende x-Werte 
darstellen, also y sprungweise vari- 
ieren, so müssen wir die Änderung 
auf der YAchse — beginnend mit 
dem Maximum zum Minimum hin — 
vornehmen und dabei jeweils die 
Fläche unter der gerade dargestell- 
ten Kurve löschen. Bewegt sich die 
Funktion wie bei einer Sattelfunk- 
tion dann wieder nach oben, so wer- 


überschrieben. Um dies zu errei- 

chen, müssen wir die Darstellungs- 
routine für laufende x ein wenig än- 
dern. Zunächst muß die Schrittweite 
für sx verkleinert werden, damit 
auch jeder Punkt einzeln angespro- 
chen wird. Der Divisor von 100 in 
Zeile 50 muß also herabgesetzt wer- 
den. Als nächstes müssen wir dann 
nurnoch den ersten DRAW-Befehl in 
Zeile 980 durch PLOT ersetzen, 

durch Streichen des REM- die 
nachfolgenden beiden Befehle akti- 
vieren und schon erhalten wir diese 
neue Darstellung. Da durch die fei- 
nere Auflösung die Rechenzeit er- 
heblich länger ist, benötigt diese 
Abbildung allerdings vielmehrZeit. 


| Gittergrafiken mit 
laufendem x 


Doch es gibt eine Reihe von Funk- 
tionen, wo diese Technik Vorteile 
bringt, beispielsweise bei z=x*y. ° 
Obwohl das Gittermuster, das man 
bei einer »laufenden x«-Darstellung 
erhält, durch die Änderungen teil- 
weise gelöscht wird, wirkt die Figur ° 
dennoch natürlicher. Welche Dar- 
stellungsart Ihnen am meisten zu- 
sagt, ıst natürlich Geschmackssa- ° 
che. Probieren Sie es einfach aus. 

sollten Ihnen die oben angegebe- 
ne Funktionen zu »normal« und be- 
kannt erscheinen, so probieren Sie 
einmal den folgenden Term aus: 
z=1-SIN(YICOSKX#Y jeweils 
im Bereich von —4 bis 4. Möglicher- 
weise werden Sie sich auch gefragt 
haben, wie denn die genaue Än- 
sprache und Definition der Funktion 
vor sich geht. Das lästige Eintippen 
des Funktionsterms mit vorange- 
stellter Zeilennummer entfällt ja im 
Gegensatz zu unserem 2D-Pro- 
gramm in der 3D-Routine. Die Änt- 
wort auf diese Frage finden Sie am 
Anfang des Programms. Hier nur 
zwei Tips, die weiterhelfen: 

l. Was man nicht sieht, kann trotz- 
dem passieren. 

2. Eine einfache Abfrage muß nicht 
unbedingt eine einfache Abfrage 
sein. 


den die hinten liegenden Flächen (Carsten Straush) 
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WordStar 3.0 mit MailMerge er Bestseller unter den Textverarbei- 
tungsprogrammen für PCs bietet Ihnen bildschirmorientierte Formatierung, deutschen 
Zeichensatz und DIN-Tastatur sowie integrierte Hilfstexte. Mit MailMerge können Sie 
Serienbriefe mit persönlicher Anrede an eine beliebige Anzahl von Adressen schreiben 
und auch die Adreßaufkleber drucken. 

WordStar/MailMerge für den Schneider CPC 464*, CPC 664* 

Bestell-Nr. MS 101 (3"-Diskette) 

Bestell-Nr. MS 102 (5' ”-Diskette im VORTEX-Format) 

WordStar/MailMerge für den Schneider CPC 6128 

Bastell-Nr. MS 104 (3 "-Diskette) 

WordStar/MailMerge für den Schneider Joyce PCW 8256 

Best.-Nr. MS 105 (3 "-Diskette) 

Hardware-Anforderungen: Schneider CPC 464*, CPC 664*, CPC 6128 oder Joyce, 
beliebiger Drucker mit Centronics-Schnittstelle 

* Der Standard-Speicherplatz beim CPC 464/664 erlaubt ohne Speichererweite- 
rung Blockverschiebe-Öperationen nur bedingt und Simultan-Drucken gar nicht. 
WordStar/MailMerge für den Commodore 128 PC 

Bestell-Nr. MS 103 (5';; "-Diskette) 

Hardware- "Anforderungen: Commodore 128 PC, Diskettenlaufwerk, BO-Zeichen-Monitor, 
beliebiger Commodore-Drucker oder ein Drucker mit Centronics-Schnittstelle 


dBASE ll, Version 2.41 aßase Il, das meistverkaufte Programm unter 
den Datenbanksystemen, eröffnet Ihnen optimale Möglichkeiten der Daten- u. Datei- 
handhabung. Einfach u. schnell können Datenstrukturen definiert, benutzt und geän- 
dert werden. Der Datenzugriff erfolgt sequentielloder nach frei wählbaren Kriterien, die 
integrierte Kommandosprache ermöglicht den Aufbau kompletter Anwendungen wie 
Finanzbuchhaltung, Lagerverwaltung, Betriebsabrechnung usw. 

dBASE II für den Schneider CPC 464*, CPC 664* 

Bestell-Nr. MS 301 (3"-Diskette) 

Bestell-Nr. MS 302 (5'j, *-Diskette im VORTEX-Format) 

dBASE Il für den Schneider CPC 6128 

Bestell-Nr. MS 304 (3 -Diskette) 

dBASE Il für den Schneider Joyce PCW 8256 

Best.-Nr. MS 305 (3 "-Diskette) 

Hardware-Anforderungen: Schneider CPC 464*, CPC 664", CPC 6128 oder Joyce, 
beliebiger Drucker mit Gentronics-Schnittstelle 

* dBASE Il für den Schneider CPC 464/664 ist lauffähig mit der VORTEX-Speicher- 
erweiterung auf 128 KByte. Diese erhalten Sie direkt bei der Firma VORTEX oder bei 
Ihrem Computerhändler. 

dBASE Il für den Commodore 128 PC 

Bestell-Nr. MS 303 (5! *-Diskette) 

Hardware-Anforderungen: Commodore 128 PC, Diskettenlaufwerk, 80-Zeichen-Monitor, 
beliebiger Commodore-Drucker oder ein Drucker mit Centronics-Schnittstelle 


MULTIPLAN, Version 1.06 wenn Sie die zeitraubende manuelle 
Verwaltung tabellarischer Aufstellungen mit Bleistift, Radiergummi und Rechenmaschine 
satt haben, dann ist MULTIPLAN, das System zur Bearbeitung »elektronischer Datenblät- 
ter«, genau das richtige für Sie! Das benutzerfreundliche und leistungsfähige Tabellenkal- 
kulationsprogramm kann bei allen Analyse- und Planungsberechnungen eingesetzt wer- 
den wie z.B. Budgetplanungen, Produktkalkulationen, Personalkosten usw. Spezielle For- 
matierungs-, Aufbereitungs- und Druckanweisungen ermöglichen außerdem optimal auf- 
bereitete Präsentationsunterlagen! 

MULTIPLAN für den Schneider CPC 464*, CPC 664* 

Bestell-Nr. MS 201 (3"-Diskette) 

Bestell-Nr. MS 202 (5'/ "-Diskette im VORTEX-Format) 

MULTIPLAN für den Schneider CPC 6128 

Bestell-Nr. MS 204 (3"-Diskette) 

MULTIPLAN für den Schneider Joyce PCW 8256 

Best.-Nr. MS 205 ("-Diskette) 

Hardware-Anforderungen: Schneider GPC 464*, CPC 664*, CPC 6128 oder Joyce, 
beliebiger Drucker mit Gentronics-Schnittstelle 

* MULTIPLAN für den Schneider CPC 464/664 ist lauffähig mit der VORTEX-Speicher- 
erweiterung auf 128 KByte. 

MULTIPLAN für den Commodore 128 PC 

Bestell-Nr. MS 203 (5'4 "-Diskette) 

Hardware-Anforderungen: Commodore 128 PC, Diskettenlaufwerk, 80-Zeichen-Monitor, 
beliebiger Commodore-Drucker oder ein Drucker mit Centronics-Schnittstelle 


Sie erhalten jedes WordStar-, dBASE Il- und MULTIPLAN-Programm für Ihren Schneider- 
Computer oder Commodore 128 PC fertig angepaßt (Bildschirmsteuerung und Drucker- 
installation). 

Jeweils Originalprodukte! Jedes Programmpaket enthält außerdem ein ausführliches 
Handbuch mit kompakter Befehlsübersicht. Die VORTEX-Speichererweiterung für den 
Schneider CPC 464 erhalten Sie direkt bei der Firma VORTEX oder bei Ihrem Compu- 
terhändler. 


Diese Markt & Technik-Softwareprodukte erhalten Sie in den Computer-Abteilungen 
der Kaufhäuser, bei Ihrem Computerhändler oder im Buchhandel. 


Wenn Sie direkt beim Verlag bestellen wollen: per Nachnahme oder gegen Vorauskasse 
durch Verrechnungsscheck oder mit der eingehefteten Zahlkarte. 


Bestellungen im Ausland bitte an nebenstehende Adressen. 
Für Auskünfte steht Ihnen Herr Teller, Telefon 089/46 13-205, gerne zur Verfügung. 
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Jedes Programm 
kostet DM 199,- (sFr. 178,-) "Hreisemenun 
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Und dazu die 
weiterführende 
Literatur: 


WordStar für den Schneider CPC 
Best.-Nr. MT 779, ISBN 3-89090-180-8 
WordStarfür den Commodore 128PC 
Best.-Nr. MT 780, ISBN 3-89090-181-6 


dBASE Il für den Schneider CPC 
Best.-Nr. MT 837, ISBN 3-89090-188-3 
dBASE Il für den Commodore 128 PC 


Best.-Nr. MT 838, ISBN 3-89090-189-1 










MULTIPLAN für den Schneider CPC 
Best.-Nr. MT 835, ISBN 3-89090-186-7 
MULTIPLAN für den Commodore 128 PC 
Best.-Nr. MT 836, ISBN 3-89090-187-5 


Jedes Buch kostet DM 49,- 
(sFr. 45,10/65 382,20). 


Erhältlich bei Ihrem Buchhändler. 
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Hans-Pinsel-Sitraße 2, 8013 Haar bel München 


Schweiz: Markt & Technik Vertriebs AG, Kollerstrasse 3, CH-6300 Zug, © 0421415656 
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Grafik-Grundlagen 


3D auf dem CPC 


1 Dreidimensionale Grafiken sind der 


Schlagworte durch die Compu- 

terwelt: CAD und CAM. Der er- 
ste Begriff steht für computerunter- 
stützte Entwicklung (Computer Ai- 
ded Design), der zweite für compu- 
terunterstützte Produktion (Compu- 
ter Aided Manufacturing). Die Ent- 
wicklung geschieht auf dem Bild- 
schirm und eine Reihe nachgeschal- 
teter Maschinen produziert nach 
den gezeichneten Angaben dann 
das reale Produkt. CAD und CAM 
sind jedoch nur zwei Änwendungs- 
bereiche für den Einsatz von Com- 
putergrafiken. Für den Normalbe- 
nutzer viel interessanter ist beispiel- 
weise ein anderes Gebiet: Die Dar- 
stellung von Funktionen und Relatio- 
nen, speziell Funktionen, die von 
mehreren Variablen abhängig sind. 
Hierbei wird die- Grafik, genauer 
die dreidimensionale Grafik, be- 
nutzt, um auch sehr komplexe Zu- 
sammenhänge anschaulich zu ma- 
chen. Beginnen wir zuerst mit den 
Grundlagen der 3D-Programmie- 
rung, mit einigen Figuren im zweidi- 
mensionalen Raum. Den Schneider 
befähigen zwei Befehle, fast jede 
zweidimensionale Funktion abzubil- 
den: PLOT und DRAW, wahlweise 
noch mit angehängten R für die re- 
lative Koordinatengabe. Das erste 
Kommando zeichnet einen Punkt. 
Das zweite zieht eine Linie von der 
letzten Position des Grafik-Cursors 
zu dem neuen Zielpunkt. Einfache 
Figuren bestehen aus einem ge- 
schlossenen Linienzug. Um eine sol- 
che Figur zu malen, müssen wır also 
nur einen Änfangspunkt mit PLOT 
setzen und darauffolgend die Eck- 
punkte unserer Linien angeben. 
Beispielsweise liefert uns »CLS: 
PLOT 270,150:DRAW 370,150:DRAW 
370,250:DRAW 270,250:DRAW 270, 
150« ein Rechteck in der Mitte des 
Bildschirms. Etwas komplizierter 
wird es, wenn wir Kreise oder Ellip- 
sen zeichnen wollen. In jedem Fall 
ist hier der Kreis Ausgangsbasıs. 
Gegebenenfalls wird er in eine 
Richtung verzerrt. Die Berechnung 
der Kreislinie geschieht dabei ent- 


S: einiger Zeit geistern zwei 





$ Traum vieler Programmierer. Damit 
es nicht nur ein Traum bleibt, fin- 
den Sie hier die Grundlagen dazu. 


weder mit Hilfe von Winkelfunktio- 
nen oder nach dem Satz des Pytha- 
goras. Die Kreislinie erscheint dann 
entweder als geschlossener Linien- 
zug oder sie wird durch Einzelpunk- 
te mit Hilfe von PLOT dargestellt. 
Bild 1 zeigt die grundsätzlichen Zu- 
sammenhänge verschiedener Kreis- 
punkte. Die Hypothenuse des recht- 
winkeligen Dreiecks ist mit dem Ra- 
dius identisch. R*sin « albt uns den 
YWert, R*cos « den entsprechen- 
den X-Wert an. Der YWert für gege- 
bene X läßt sich auch mit Hilfe der 
Wurzel berechnen n (Y = YR2-X3). 

Wenn Sie das eingezeichnete 
Dreieck an der X- und Y-Achse spie- 


geln, bekommen Sie vier spiegel- 


bildliche Dreiecke, Die Zahlenwerte 
der Koordinaten sind immer gleich, 
nur die Vorzeichen ändern sich. Mit 
einer einzigen Berechnung lassen 
sich also gleichzeitig vier Punkte auf 
der Kreislinie bestimmen. Einzige 
Voraussetzung: Der Mittelpunkt des 
Koordinatensystems muß mit ORI- 
GIN in das Kreissystem verlegt wer- 
den, damit auch die negativen Wer- 
te dargestellt werden können. Das 
Programm aus Listing 1 befähigt 
uns, nun einen Kreis als Linienzug 
mit Hilfe der Winkelfunktionen zu 
zeichnen. 

In Abhängigkeit von s (je größer s, 


3D-Grafiken auf 
dem Bildschirm sind 
nicht schwer 


desto perfekter der Kreis) nähert 
sıch das anfänglıche Vieleck immer 
mehr einem Kreis an. Je nach ge- 
wünschter Auflösung vergrößert 
sich umgekehrt natürlich auch die 
Rechenzeit. Die höchste Auflösung 
erreicht man, wenn jeder Punkt ein- 
zeln angesprochen wırd. In diesem 
Fall ıst es dann natürlich sinnvoll, 
DRAW aurch PLOT zu ersetzen. Mit 
50 Punkten (das heißt 13 Berechnun- 
gen) wird der Kreis aber auch schon 
sehr genau. 

Der Unterschied zwischen Kreis 
und Ellipse ergibt sich relativ ein-' 
fach. Man multipliziert lediglich die’ 
X- beziehungsweise Y-Werte mit ei- 
nem Verzerrungsfaktor. Listing 2 de-° 
monstriert diesen Effekt. Zunächst 
wird der Bildschirm gelöscht und 
der Mittelpunkt unseres Koordina-' 
tensystems in das Bildschirmzen- 
trum verschoben. 

In einer Schleife werden dann je- 
weils vier Punkte gleichzeitig ge- 
setzt. Die Variable e enthält dabei 
den Verzerrungsparameter, Für 
e=]| ergibt sich ein Kreis, bei allen 
anderen Werten eine Ellipse. Wenn 
Sie mit diesem Parameter »spielen«, 
so resultieren daraus völlig ver- 
schiedene Ellipsenformen. 

Mit der Verzerrung unseres Krei-' 
ses ist nun auch schon der Schritt 
von der zweidimensionalen zur drei- 
dimensionalen Grafik getan. Schau- 
en wir uns zunächst einmal anhand 
von zwei Beispielen (einem Quader, 
Listing 3 und einem Zylinder, Listing 
4) an, wie dreidimensionale Körper 
programmiert werden können. 

Im Bereich der dreidimensiona- 
len Grafik gibt es zwei grundsätzli- 
che Darstellungstypen: das Gitter- 
modell und die Vollgrafik. Beieinem 
Gittermodell werden nur die Be- 
grenzungs- und Decklinien eines 
Körpers dargestellt; die dazwı- 
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EEE 
"##*+ Wielecke zeichnen ## 
Er Teee een e: 
CLS 
INPUT"Seitenzahl";s 
ORIGIN 329,208 
Bd PLOT 150,8 
I FOR i=1 To 5 
78 x=COS (2#PI#i/s) #158 
’ 100 v=SINt2#Pl#i/s) #158 
118 DRAW x„Y 
1208 NEXT i 


Listing 1. Aus einem Vieleck wird ein Kreis 


Bild 2. Ein Quader als 
zweidimensionale Grafik 


schenliegenden Flächen des Mo- 
dells bleiben frei. Allerdings sind 
auch die eigentlich durch den Kör- 
- per verdeckten Eckkanten sichtbar. 

Im anderen Fall, bei der Vollgrafik, 
wird das Modell ausgemalt. Es sind 
nur Flächen zu sehen, die man auch 
beı der Betrachtung eines realen 
Körpers sehen würde. Die einzel- 
nen Seiten sind dabei meist mit un- 
terschiedlicher Farbe hervorgeho- 
ben, um den räumlichen Aspekt 
‚noch zu vertiefen. Wenden wir uns 
den beiden »Versuchsobjekten« 
Quader und Zylinder zu. 

Wie die beiden Varianten als Fi- 
guren aussehen, zeigen die Bilder 2 
“und 3. In beiden Fällen wurde dabei 
das Gittermodell gewählt. 








[5S5SDC] 


je 22 2 Eee 2er 
'#*+ Ellipse ## 
EHE 

dö CLS5:ORIGIN 328,208 


INPUT"Laenge der Halbachse";a 
INPUT"Exzentrik";e 


ELS 


FOR »=-a TO 8 
70 y=e#SOoR (a*2-x*2) 
188 PLOT »„y:PLOT »,„-y:PLOT -x,y:iPLOT — 


.Y 
118 NEXT 


Bild 3. Der Zylinder in der Ebene 





Das Hauptproblem einer jeden 
dreidimensionalen Grafik ıst die 
perspektivische Darstellung der 
räumlichen Zusammenhänge. Der 
Winkel, unter dem die nach hinten 
laufenden Linien erscheinen, ist 
hierbei der ausschlaggebende 
Aspekt. Ist er ungünstig gewählt, so 
erscheint die ganze Figur künstlich 
und unwirklich. Die Begründung 
hierfür ist einfach. 

Das menschliche Auge liefert ein 
zweidimensionales Abbild unserer 
räumlichen Umwelt. Die dritte Di- 
mension nehmen wir nur indirekt 
wahr, nämlich als Projektion in den 
zweidimensionalen Raum. Die Tie- 
fenempfindlichkeit, also die Wahr- 
nehmung der dritten Dimension, 
läuft über einen Denkvorgang als 
Schlußfolgerung ab. Das beste Bei- 


spiel liefert eine Eisenbahnschiene. 


oder eine sehr lange gerade Straße. 
Sobald zwei parallel laufende Be- 
grenzungslinien sich einander nä- 
hern, so interpretiert das Auge dies 
als eine Eisenbahnschiene oder 
Straße, die sich immer weiter vom 
Betrachter entfernt und tief in den 
Raum hineinreicht. Daß dieses Ver- 
fahren nicht ganz fehlerlos ist, bele- 
gen die zahlreichen sogenannten 
optischen Täuschungen. Uns inter- 
essiert jedoch nur die Ärt und Weı- 
se, wie das menschliche Auge seine 
Umwelt wahrnimmt. 





Listing 2. Aus einem Kreis wird eine Ellipse 


Wollen wır einen dreidimensiona- 
len Eindruck erreichen, so müssen 
wir also eine zweidimensionale Ab- 
bildung erzeugen, in die die dritte 
Dimension hineinprojiziert wird. Da- 
zu eignen sich mehrere Verfahren. 
Wir beschäftigen uns zunächst mit 
der relativ einfachen Parallelpro- 
jektion. Um einen dreidimensiona- 
len Körper als zweidimensionale 
Projektion abzubilden, sind zwei 
Schritte notwendig. Zunächst einmal 
muß der Körper in einem geeigne- 
ten dreidimensionalen Koordinaäten- 
system erfaßt werden, bevor die da- 
bei festgestellten Koordinaten in ei- 
ne zweidimensionale Darstellung 
transformiert werden. 

Basis jeder Transformation ist zu- 
nächst einmal ein dreidimensiona- 
les Koordinatensystem, wie Sie es 
bei der Würfeldarstellung in Bild 4 
vorfinden. Der Würfel ist durch die 
acht Punkte ABCDE FGundH 
im dreidimensionalen System defi- 
niert, Wenn (wie in Bild 4) die linke 
untere Ecke unseres Körpers (A) im 
Schnittpunkt der drei Achsen X, Y 
und Z liegt, und jede Kante unseres 
Würfels die Länge 1 hat, lassen sich 
die Eckpunkte der Figur leicht an- 
geben. D hätte zum Beispiel die 
Koordinaten (1,0,0); E (1,10) und G 
(L1D. 

Bei einer Parallelprojektion legen 
wir nun über dieses dreidimensio- 
nale Koordinatensystem ein zweidi- 
mensionales Achsenkreuz mit den 
Achsenbezeichnungen xz bezie- 
hungsweise yz. Die neue Ächse xz 
kommt dabei genau auf die dreidi- 
mensionale Koordinatenachse x 
und yz genau auf z zu liegen. Der 
Sinn dieser, auf den ersten Blick et- 
was verwirrenden Operation, ist re- 
latıv einfach einzusehen. Es muß nur 
eine Transformation des (dreidi- 
mensionalen) YWertes erfolgen. Die 
X- und Z-Koordinaten unseres drei- 
dimensionalen Körpers können wir 
einfach übernehmen. 

In Bild 5 sehen Sie, wie der YWert 
in seine X- und Z-Komponente zer- 
legt wird. Die Koordinaten des dar- 
zustellenden Punktes (P) sind dabei 
wesentlich vom Betrachtungswinkel 
abhängig. Das ist der Winkel (a), un- 


vu 








kommt es an 


ter dem X- und Y-Achse ın der Dar- 
stellung aufeinandertreffen. Bei 
dem kleinen Dreieck rechts unten 
handelt es sich um ein rechtwinkeli- 
ges Dreieck, so daß wir mit den 
Winkelfunktionen arbeiten dürfen. 
Die Hypothenuse ist als YWert ge- 
geben. d, der Winkel zwischen X- 
und YAchse, steht ebenfalls fest. 
Wir erhalten damit die folgenden 
XZ- beziehungsweise YZ-Werte für 
unseren Punkt: XZ = X + Y*cos «a 
und YZ = Z + Y*sin o. 

Im ersten Quadranten führt ein Y- 
Wert größer als Null dazu, daß der 
darzustellende Punkt gegenüber Y 
= Q nach rechts wandert. Zu den 
»normalen« zweidimensionalen 
Strecken X und Z werden jeweils die 
Winkelfunktionsterme addiert. 

Ein häufig benutzter Spezialfall er- 
gibt sich, wenn wir die Y-Achse unter 
einem Winkel von 45 Grad zeich- 
nen. In diesem Fall ist sin = cos« 
= 0,5 , womit sich die Gleichungen 
von oben zuXZ =X + 0,5*Y und YZ 
= Z + 0,5%Y vereinfachen. Auch für 
andere Winkel empfiehlt es sich, 
die Sinus- beziehungsweise Cosi- 
nus-Werte vor der eigentlichen 
Koordinatenumrechnung einmalig 
zu bestimmen. Diese Werte werden 
danach in zwei Variablen (beispiels- 
weise »si« und »Cco«) zwischengespei- 
chert. Dann können Sie problemlos 
mit der unteren Formel weiterarbei- 
ten, wobei statt der 0,5inder oberen 
Gleichung »co« und in der unteren 
»si« einzusetzen ist. Das Rechnen mit 
einer Konstanten geht bedeutend 
schneller als mit den Winkelfunktio- 
nen. 

Nun wollen wir unser Wissen für 
unseren Quader benutzen. Begin- 
nen wir mit der einfachsten Variante, 
dem Gittermodell. 

Zur Abbildung genügen hier sim- 
ple DRAW-Kommandos unter- 
schiedlicher Länge und Richtung. In 
unserem Beispiel wollen wir mit ei- 
nem Winkel von 45 Grad arbeiten. 


Bild 4. Auf das Koordinatensystem 








Damit läßt sich unser Bild mit 
DRAWR sehr einfach malen. Eine 
waagrechte Linie bekommen wir, in- 
dem wir keine Änderung in der YZ- 
Richtung machen und nur eine Ver- 
schiebung um XZ vollziehen. Ana- 
log dazu, ergibt sich die senkrechte 
Linie mit konstantem XZ und verän- 
derlichem YZ. Die perspektivisch 
nach hinten laufende Linie (in Y- 
Richtung) benötigt ein gleichförmi- 
ges Ändern von XZ und YZ, um den 
gewünschten Effekt zu erzielen. Nun 
bleibt nur noch die Frage offen, mit 
welcher Länge die Linien gezogen 
werden sollen. Hier ist auf eine Un- 
zulänglichkeit des Auges Rücksicht 
zu nehmen. Wir empfinden nämlich 
nach »hinten« laufende Linien als 
deutlich länger, als Begrenzungen, 
die parallel zur Betrachtungsfläche 
laufen. Während wır also die Frontli- 
nien ohne Korrekturen zeichnen 
können, müssen wir bei den nach 
hinten laufenden Seitenlinien eine 
Längenkorrektur vornehmen. Ein 
Faktor, der die Längenangabe rela- 
tiv treffend verkürzt, ist 1//2' 


Für Besitzer des CPC 464 gibt es 
einige Probleme, wenn die nun er- 
haltenen Flächen ausgefüllt werden 
sollen. Mit einen 664 oder 6128 ıstes 
natürlich keine Schwierigkeit. Sie 
wenden einfach das FILL-Komman- 
do an. Änsonsten müssen wir uns 
hier mit einer ganzen Reihe neben- 
einandergezogener Linien behel- 
fen. Ineiner Schleife ist das kein Pro- 
blem. Man muß nur über die gesam- 
te Breite Linie neben Linie zeichnen. 
Gleiches gilt für die Deckfläche und 
die eine (rechte) Seite. Mit diesen 
Grundgedanken arbeitet das ne- 
benstehende Programm »Quader« 
(Listing 3). 

Am Anfang der Routine finden Sie 
die Auswahl nach dem Darstel- 
lungsmodus. Unser Quader kann 
wahlweise als Gittermodell oder als 
Vollgrafik ‚gezeichnet werden. Ab 
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Bild 5. Die Umrechnung von 3D- 
auf 2D-Koordinaten ist einfach 


Zeile 160 treffen wir zunächst auf dıe 
erste Variante — das Gittermodell. 
Breite, Höhe und Tiefe werden ein- 
gegeben, bevor eine Reihe von 
DRAWR-Befehlen den Quader 
zeichnet. Interessant sind dabei ins- 
besondere in Zeile 230 und 250 die 
Linien für die schräg laufenden Sei-' 
tenbegrenzungen. Dadurch, daß 
die Bewegung jeweils mit identi- 
scher Verschiebung in X- und Y 
Richtung erfolgt, ergibt sich der’ 
schräge Verlauf. Ansonsten werden 
dieselben Techniken angewandt, 
die wir schon bei den einfachen’ 
zweidimensionalen Figuren ken- 
nengelernt haben. Die Linien wur- 
den dabei ohne Verkürzung pro- 
grammiert, um Ihnen den Tiefenef- 
fekt zu verdeutlichen. Sie sollten für 
die praktische Arbeit nun in allen 
DRAWR-Kommandos mit identi- 
schen Verschiebungsangaben die’ 
Variable »t« durch »t/SOR(2)« erset- 
zen. Dann stimmen die optischen‘ 
Proportionen wieder. | 
Ab Zeile 310 finden wir die Voll-' 
grafik. Zunächst wird in Zeile 370 bis 
390 die Vorderfront gezeichnet. Die 
Schleife läuft hier von 0 bis b, das 
heißt über die gesamte Breite unse- 
rer Vorderfront ın ler-Schritten. Da- 
bei wird jeweils der Fußpunkt mit 
MOVE gesetzt, bevor dann mit 
DRAWR eine Linie in Farbe 2 (rot) 
gezogen wird. Die Zeilen 410 bis 430 
bilden die Seitenfläche ab, Die Be- 
rechnung ist hier etwas schwieriger, ° 
der Effekt ist allerdings derselbe. 
Den Fußpunkt der unteren Begren- 
zungslinie erhalten wir, indem wir zu 
dem Punkt (b, 0) jeweils den Vektor ° 
(1, ) addieren und dabei i über die 
gesamte Tiefe von 0 bis t laufen las- 
sen. Als Korrektur istt dann wieder 
durch »t/SQR(2%“ zu ersetzen. Von : 
diesem Fußpunkt werden nun wie- 
der Linien der Höhe h mit der Farbe 
3 (hellblau) nach oben gezogen. Die 
Deckplatte unseres Quaders wird 
dann mit Zeile 440 bis 460 gezeich- 









net. Die Flächenlinien werden jetzt 


son links nach rechts gezeichnet. 
Dazu wird der Grafik-Cursor auf der 
Beren, linken Seitenlinie gesetzt 


ul d dann die Fläche mit DRAWR in 
FFarbe 1 ausgefüllt. 


Den Abschluß unseres Pro- 
gramms bildet ein sogenanntes 
swiges« GOTO. Diese Abfrage- 
hleife wurde eingesetzt, um zu 


; erhindern, daß die erstellte Grafik 
Qurch ein »Ready« gestört wird. 


Wenden wir uns nun der zweiten 


Figur zu, dem Zylinder. In diesem 


rogramm (Listing 4) benutzen wir 
ine Reihe von geometrischen Figu- 


zen, die wir bereits kennen. Die Re- 





= ee ee ee ee ae ee u 
’#* Quader zeichnen ## 


de ist hier von der Ellipse, die zumin- 
dest in unserem Gittermodell recht 
schnell und einfach die obere bezie- 
hungsweise untere Grundplatte bil- 
det. Zwei weitere mit DRAW ge- 
zeichnete Linien vervollständigen 
das Bild. Etwas schwieriger wird es 
dagegen, wenn wir eine Vollgrafik 
verlangen. Hier muß zwar nur noch 
eine Ellipse dargestellt werden, 
nämlich die obere Deckopplatte, dafür 
ist diese aber vollständig auszufül- 
len. Dies ist nun aber nicht möglich, 
indem wir jeweils vom Mittelpunkt 
einen Strahl auf einen Punkt der 
Randlinie senden. Bei Anwendung 
dıeses Verfahrens bleiben nämlich 
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einige kleine Punkte in der Deck- 
platte ohne Farbbelegung. | 

Wir wollen daher ein anderes 
Verfahren anwenden. Wenn wir da- 
von ausgehen, daß das Zentrum un- 
serer Deckplatte den Mittelpunkt 
eines Koordinatensystems bildet 
(vergleiche Bild 6), so können wir ei- 
ne qute Flächendeckung erreichen, 
indem wır von jedem Punkt unseres 
Umfangs eine Senkrechte auf die Y- 
Achse ziehen. Diese »übereinander- 
gestapelten« Linien decken dann 
die Fläche vollständig ab. 

Am Anfang des Programms f{in- 
den sich die schon gewohnten Ab- 
fragen nach der Darstellungsart. 


[SSDCI 
LASACI 
[DSE®] 
[i1F4] 
[9@B8] 
CB228] 
[9474] 
LF&D4] 


PEN 35:PRINT"<3 SPACEIZ YLINDER£ 


> SPACEIZ EICHNEN 
12,4: FPRINT"Gittermodell{i2 5PA 


188 LOCATE 


CE}{1Y" 


[L27DA] 
[740A] 


EELELITE 


a EL 
2 FOR 


) IF INKEY$="" 


HERE EHER EEE 


MODE 1 


INK @, we INK 1.21=:INK 2,5:INK 3,11 
BORDER 


PAPER BE PEN 1 
CLS 


PEN 3:FRINT"{5 SPACE}Q U ADE R#{ZE SP 
ACE’Z EICHNE MN" 


LOCATE 12.4:FRINT"Gittermodell{2 SPA 
CE}+II1I" 


LOCATE 12,5:PRINT"Vollgrafik{4 SPACE 
+2)" 

z#=INKEY$: IF z#<i>"1" AND z$<>"2" THE 
N 12B ELSE IF z#$="2" THEN 308 
EHE 

"#+ Gittermodell ## 

Me 2 2 22 S S ee 2 ee 2er ee 

CLS:ORIGIN 50,58 

INPUT"Breite":b 

INPUT"Hoehe"; 

INPUT"Tiefe"s:st 

CLS 

DRÄWR b,8,1:DRAWR 8,h:DRAWR -b „2: DRA 
WR 8,-h 

MOVER b,2 

er t,„t:DRAWR 8,h:DRAWR -b „GB: DRAWR 


en t,t:DRAWR b,B:MOVER — 


GOTO 478 
Du Ze en en ae 1 ee 2 2 2 2 
##+ Vollgrafik ## 
Me Ce 1 ze Due ua ze 1 a ee ee Zn 
ECLS 
INPUT"Breite":b 
INFPUT"Hoehe";:h 
INPUT"Tiefe": 
ORIGIN 58,50 

5 


i=@ TO b 
MOVE i,@ 

DRAWR 8,h,2 

NEXT i 

FOR i=@ TO t 

MOVE b+i,i:DRAWR @,h,3 
NEXT i 

FOR i=@ TO t 

MOVE @+i,h+i:DRAWR b,@,1 


NEXT 
THEN 478 ELSE RUN 


EABDö] 


[7514] 
[C65A] 
CBAB2] 
CFDB&] 
CCFF4] 
LBE2CI 
[7102] 
CES2C] 
[4F4E] 
[AF2CI 
[7736] 
[CöB8] 
LEEAE]I 
[68FC) 
[48F8] 
LA3D2] 
[682A]J 
CS6FE] 
CBDDE] 
[D6E2] 
LSAF2I 


LAAEE] 


eg 12,5: PRINT"Vollgrafik{i4 SPACE 

z#=INKEY$: IF z$<i>"1" THE 

N 128 ELSE IF z$="2" 

HERREN HF EEE 

"#*+ Gittermodell ## 

EEE 

CLS:ORIGIN 328,308 

INPUT"Radius":a 

INFUT"Hoehe";h 

CLS 

FOR »=-a TO 8 

y=9.5%#50R (a”2-x”2) 

PLOT %,Y,1:PLOT K-ysPLÄT =x ,yıPLOT 

vePLOT “.y-h:PLOT *»„-v-h:PLOT — 

‚v-h:PLOT —x,-y-h 

PLOT x»+1,yv,1:PLOT x+1,-y:PLOT -x+1,y 

PLOT -x+1,-y:PLDOT x+1,y-h:PLOT x+1, 

-y-h:PLOT -x+1,vy-h:PLOT -x+1,-v-h 

NEXT x 

Ä -a.-h:DRAW -a.8 
-a+1,-h:DRÄW -a+1,B 
a,.-h: : DRAW a,d 
a+l1,-h:DRAW a+i1,8 
SQ 

en 2 2 2 2 2 2 2 2 2 2 2 2 2 20; 

"#* Vollgrafik ## 

EZ zZ = 2 2 2 2 2 2 2 2 2 2 202 

CLS 

INPUT"Radius";a 

INPUT"Hoehe":h 

ORIGIN 320,300 


AND z$<>"2" 
THEN 328 


3 CLS 


»=-a:s=D.1 
K=E4-S 
x=x+s: IF x>=9B THEN 488 
y=9.5#50R (a”2-x”2) 
MOVE B,v:DRAW x,„y,1 
MOVE B,y:DRAW -x „y 
MOVE B,-v:DRAW x,-y 
MOVE B,-vy:DRAW -x „-y 
s=(1+1B/a)#s 
GOTO 488 
ORIGIN 328,388-h 
FOR x=-a TO 8 

v=0. RS ee) 
MOVE Kay 
DRAWR 8,h,2 
MOVE er 
DRAWR @,h 
NEXT x 


' IF INKEY$="" THEN 568 ELSE RUN 


Listing 4. Ein Zylinder in zwei Modellen 


[C4DE] 


[3478] 
LA4?PE] 
[DAB] 
[986A2] 
ES41E)] 
[8728] 
[4552] 
[85538] 
EBEIE] 
[8525] 


[5395] 


[5A48] 
£L1i11A] 
CBFFE]I 
[5SB18] 
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Das Gittermodell ist relativ schnell 
beschrieben. Die Eillipsenglei- 
chung und ihre Darstellung kennen 
wir ja schon. Es werden nun nur zu- 
sätzlich zu den vier normalerweise 
in einer Ellipse gesetzten Punkten 
noch gleichzeitig vier weitere Punk- 
te für die Bodenplatte gesetzt (ein- 
fach durch- Subtrahieren der Höhe 
h). Etwas außergewöhnlich ist dabei 
Zeile 230. Sie wiederholt nämlich 
denselben Vorgang noch einmal, je- 
doch mit gegenüber den in Zeile 220 
befindlichen um 1 erhöhten X-Wer- 
ten. Dies hat einen relativ einfachen 
Effekt. Unsere Ellipse wird nämlich 
noch einmal mit einer Verschiebung 
um 1 in X-Richtung gezeichnet. Die 
Umfanglinie wird doppelt so dick. 
Dasselbe Verfahren wenden wir 
dann bei den senkrechten Seitenli- 
nien an, Sie werden jeweils mit der 
notwendigen Verschiebung um den 
Radius A rechts und links doppelt 
nebeneinander gezeichnet. 

Etwas interessanter wird es, wenn 
wir unseren Zylinder als Vollgrafik 
zeichnen. Am Anfang steht wieder 
die Eingabe der zwei benötigten Pa- 
rameter für Radius und Höhe. Der 
Mittelpunkt unseres Koordinatensy- 
stems wird auf das Bildschirmzen- 
trum gesetzt (Zeile 360). Dann begin- 
nen die eigentlichen Darstellungs- 
zeilen. Wir beginnen dabei am äu- 
Bersten linken Rand unserer Figur. 
X weist den Wert -a auf — und y 
dementsprechend 0. Der Schrift- 
parameter s wird in Zeile 380 auf 
0,1 gesetzt. Er legt fest, in welchen X- 
Schritten die Berechnung erfolgt. 
Die eigentliche Schleife läuft von 
Zeile 400 bis Zeile 470. Als erstes 
wird x jeweils um den Schriftpara- 
meter s erhöht. Beim ersten Durch- 
lauf wird allerdings durch das vor- 
herige Abziehen in Zeile 390 die Er- 
höhung wieder korrigiert. Wir ope- 
rieren zu Anfang also mit x=-a. 

Als nächstes wird abgefragt, ob x 
größer oder gleich 0 ıst. Dies wird 
als Ende-Kriterium benutzt. In solch 
einem Fall haben wir nämlich den 
Mittelpunkt unserer Figur erreicht. 
Da wir alle vier Viertel unserer 


Bild 8. So können die Verhältnisse der verschiedenen 


Strecken bestimmt werden 


Deckplatte parallel zeichnen las- 
sen, istin diesem Fall die Figur voll- 
endet. Beim eigentlichen Zeichnen 
unserer Ellipsenviertel bestimmen 
wir zunächst in Zeile 410 den YWert 
mit Hilfe des Satzes des Pythagoras. 
Als Wert für die Exzentrizität unse- 
rer Ellipse wurde 0,5 eingesetzt. Es 
folgen die eigentlichen DRAW-Zei- 
len. Dabei wird der Grafik-Cursor 
immer mit X=0 auf den gerade er- 
rechneten YWert gesetzt. Dann er- 
folgt das Zeichnen der Linien bis 
zum Punkt auf der Randlinie. Zeile 
460 beinhaltet eine etwas trickrei- 
che Veränderung des Schrittpara- 
meters s. Vielleicht ist Ihnen beim 
»Spielen« mit dem ersten Ellipsen- 
programm (Listing 2) auch schon 
aufgefallen, daß der dort verwende- 
te Algorithmus nicht optimal ist. Der 
Grund dafür ist einfach. Wenn man 
vom äußersten linken Rand der Fi- 
gur ausgeht, so bewirken bereits 
kleine Änderungen von X eine ziem- 
lich große Änderung des YWertes. 
je mehr man dagegen zum Mittel- 
punkt kommt, in desto größeren 
Schritten könnte man eigentlich X 
variieren, da sich der Abstand von 
der X-Achse, das heißt der Wert für 
Y, nur noch geringfügig erhöht. 

Neben diesen grundsätzlich für 
jeden Kreis oder jede Ellipse gel- 
tenden Problem ist allerdings noch 
eine andere Tatsache zu beachten. 
Wir müssen nämlich X auch im Ver- 
hältniszur Größe unserer Figur varı- 
ieren. All diesen Gesetzmäßigkei- 
ten trägt die schrittweise Erhöhung 
von S in Zeile 460 Rechnung. Mit je- 
dem Schritt, den wir uns dem Zen- 
trum unserer Figur nähern, erfolgt 
die Änderung in immer größeren 
Sprüngen. S wird Schritt für Schritt 
durch laufende Multiplikation im- 
mer weiter vergrößert. Der Faktor, 
mit dem S beijedem Schritt multipli- 
ziert wird, ist jedoch nicht fix vorge- 
geben, sondern hängt wiederum 
vorn Radius ab. Je größer der Radius 
ist, desto kleiner wird dieser Erhö- 
hungsfaktor gewählt. Damit setzt der 
Übergangzueiner größeren Schritt- 
weite erst später ein. 


Der Rest zeichnet die senkrechte 
Vorderfront. Der Fußpunkt unseres 
Systems wird mit ORIGIN um die 
Höhe h verschoben. Der Rand de 
unteren Deckplatte wird wieder 
einmal mit der Ellipsengleichung 
bestimmt. Von dieser ausgehend, 
ziehen wir dann — gleichzeitig von 
rechts und links auf das Zentrum zu- 
strebend — Linien der Höhe h nach 
oben. Diese treffen damit genaua 
die Unterkante der oberen Deck- 
platte. Zur Verstärkung des räumli- 
chen Effekts werden hierbei für 
Deckplatte und Zylinderumfang un- 
terschiedliche Farben benutzt. Eine 
sehr schöne Zylinderausgabe er- 
halten Sie zum Beispiel, wenn Sie für 
den Radius den Wert 75 und für die 
Höhe 150 oder 200 eingeben. 

Man kann nun den räumlichen EF 
fekt noch steigern, indem man farb- 
liche Unterteilungen macht. Probie- 
ren Sie einmal eine einfache Drittel- 
einteilung aus. Dazu werden die Zei- 
len 520 und 540 wie folgt geändert: 
520 DRAWR 0,h/3.2 
540 DRAWR 0,h/3,2 
mit den zwei neuen Zeilen 
525 DRAWR 0,2%h/3,3 
545 DRAWR 0,2*h/3,3 


Das untere Drittel der Säule bleibt 


weiterhin rot. Darüber hat sich je- 
doch nun ein hellblauer Halbzylin- 
der aufgebaut. Diese Technik kann 
sehr gut benutzt werden, um dreidi- 
mensionale Diagramme darzustel- 


len. Man ist hierbei natürlich nicht 


auf zwei Farben oder zwei Flächen 
beschränkt. Es ist auch problemlos 
möglich, mit mehreren Unterteilun- 
gen und (speziell im MODE 0) auch 
mit mehreren Farben zu arbeiten. 
Ein letztes wichtiges Kapitl ist die 
Parallelprojektion. Sie muß aller- 
dings als ein Verfahren betrachtet 
werden, das zwar dem Computer 
entgegenkommt, aber sich der Be- 


trachtungsweise des Auges nicht 
ausreichend annähert. Der Haupt- 
grund liegt darin, daß bei dieser 
Projektionstechnik gleichgroße Flä- 
chen die in der Tiefe voreinander 


gelagert sind auch mit identischer 





Fortsetzung auf Seite 43 | 


Bild 7. So nimmt das Auge einen Quader wahr — 
allerdings — esse 












chnelle Kreise 


5 Wichtiger als Programmkünste in 
‚x, | Maschinensprache ist oft das Wissen 


2 ar! um einen guten Algorithmus. 





“> | Auch Kreisroutinen in Basic können 


? sehr schnell sein. Man muß nur wissen wie. 


damit auch zeitaufwendige — 

Methode, Kreise auf den Bild- 
schirm zu bringen, finden Sie in Li- 
sting 1. Jeder Punkt wird zuerst eın- 
zeln berechnet und dann mit PLOT 
gesetzt. Gerade aber das Bestim- 
men der Sinus- und Cosinuswerte 
dauert lange. Deshalb sollten Sie 
mal das Programm aus Listing 2 aus- 
probieren. Sie werden verblüfft 
sein, wie schnell jetzt der Kreis ge- 
zeichnet wird. 

Die erste Routine benötigt auf dem 
Schneider volle 13 Sekunden, wäh- 
rend es mit der zweiten in nur || Se- 
kunden zu schaffen ist. Das wäre al- 
so l12mal schneller und sieht außer- 
dem noch wesentlich besser aus. 
Bei 100 Kreisen beträgt dann die Re- 
chenzeit statt 22 Minuten nur 2 Minu- 
ten. Eine recht eindrucksvolle Zeit- 
ersparnis. 

Wer nun wissen möchte, wie man 
solche Routinen selbst entwirft, für 
den ist dieser Artikel gedacht. Le- 
ser, die keinen Schneider besitzen, 
können mit Hilfe der Erklärungen 
aus Tabelle 1 die Grafikbefehle für 
Ühren eigenen Computer umsetzen. 


E ine sehr umständliche — und 


| Vieleck-Kante 


ideale Kreislinie 


Bild 1. Die ideale Kreislinie wird durch 
ein Vieleck angenähert 


Dabei istesunumgänglich, alle Grö- 
Benangaben für die jeweilige Bild- 
schirmauflösung umzuschreiben. 
Dies ist aber durch Änderung einer 
einzigen Programmzeile immer 
sehr leicht möglich. 
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Geben Sie zuerst Listing 3 ein und 
starten Sie das Programm, das ge- 
mäß Ihrer Angabe ein regelmäßi- 
ges n-Eck auf den Bildschimmn zeich- 
net. Probieren Sie einmal verschie- 
dene Werte für n aus. Sie werden 
bemerken, daß ab einer bestimm- 
ten Eckenanzahl (beim Radıus 200 
ungefähr ab n=45) die Kurve sich 
optisch nicht mehr von einem Kreis 
unterscheidet. Statt unnötig viele 
Kreispunkte (wie in Listing 1) zu be- 
stimmen, braucht man also nur ein 
regelmäßiges 45-Eck zu zeichnen, 





Bild 2. Mit komplexen Zahlen ist eine 
Drehung um « sehr einfach 


. um ein und denselben Effekt auf 


dem Bildschirm zu erzielen. Man 
berechnet einzig sparsame 44 Punk- 
te anstatt der 360, verbindet diese 
durch Geraden und erhält seinen 
»Kreis«. 

Wie läßt sich nun, ohne lange zu 
probieren, die minimale Eckenzahl 
bestimmen? Betrachten wir dazu 
das Bild 1. Um das Vieleck nicht 
mehr von einer Kreislinie unter- 
scheiden zu können, darf die Entfer- 
nung von einer Kante des Vielecks 
zur »idealen Kreislinie« maximal eı- 
nen halben Bildschirmpunkt betra- 
gen. Für das schrafflierte (rechtwin- 
kelige) Dreieck gilt dann: Die drei 
Seitenlängen betragen rr-d und 
(nach dem Satz des Pythagoras) 


Vr-(r-dY. 
Für den Winkel d gilt: 
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tan (d/2)= Gegenkathete/Ankathete 
= Yrr-d)°/(r-Q). 

Für sehr kleine Werte vond gilt (in 
Bogenmaß;): tan d ungefähr gleich.d. 
Also ist d/2 = VYr<{r-A)/(r-d) oder 
umgerechnet 
a2 =Y 12/(r-d)2-1 

Da d ja gegenüber r sehr klein ist 
(d=0,5; Radiusr aber bis zu 200), gilt 
ungefähr 


42 = Yr] 


Bild 3. Konventionell berechnet muß man 
die Sonderfälle beachten 


Da aber wie gesagt r wesentlich 
größer als | ist, fällt der Abzug der 
Zahl 1 vom Radius gar nicht mehr ins 
Gewicht. 

Als endgültiges Ergebnis für den 
maximalen Winkel d, bei dem sıch 
ein Vieleck nicht von einem Kreis 
unterscheidet, erhalten wir den 
Wert d = 2 Yr. Die zugehörige 
Eckenzahl ist dabein = Vollkreis/d. 
Da die Rechnung wie gesagt nur ım 
Bogenmaß gilt, ergibt sich für die 
kritische Eckenzahl der Wert 


n=2r/2Vr=r/yr 
oder gerundet 
N=int(r*Vr+) 


Für einen Radius von 199 ıst das 
Resultat aus dieser Rechnung genau 
der auch experimentell gefundene 
Wert 45. Allein die Anwendung die- 
ses Tricks bewirkt eine Erhöhung 
der Rechengeschwindigkeit um 
den Faktor 7. Ähnliche Betrachtun- 
gen kann man natürlıch für alle mög- 
lichen Anwendungen anstellen, um 
die Geschwindigkeit zu optimieren. 
Wem das zu kompliziert ist, der 
braucht sich einfach nur die Formel 


N = int (r Yr'+ ]) merken. 


Die zweite Verbesserung des Pro- 
gramms wurde dadurch möglich, 
daß zur Herleitung der Formeln 
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komplexe Zahlen zu Hilfe gezogen 
wurden. Dies ist nicht nur in diesem 
Beispiel sehr nützlich, sondern es 
vereinfacht auch in vielen anderen 
Grafikanwendungen zusätzlich eine 
Erhöhung der Rechengeschwindig- 
keit. Deshalb hier eine kleine Ein- 
führung in das Rechnen mit komple- 
xen Zahlen. 

Möchte man die Lage eines Punk- 
tes P eindeutig bestimmen, so gibt 
mannormalerweise seine x- und sei- 
ne y-Koordinate an (beispielsweise: 
P:=(x;y)). Bei der Darstellung mit 
komplexen Zahlen führen wir nun ei- 
ne neue Schreibweise ein: Wir 
kennzeichnen die y-Koordinate mit 
dem Vorfaktor »i« und addieren dazu 
einfach die x-Koordinate: P:=X+ 
1*Y, Die Mathematiker mögen uns 
diese vereinfachte Erklärung der 
komplexen Zahlen verzeihen, aber 
für unser Problem reicht sie völlig 
aus. Steht also ab jetzt irgendwo 
»3+i*4«, wissen wir, daß damit 
schlicht und einfach ein Punkt ge- 
meint ist, der im Koordinatensystem 
3 Einheiten nach rechts und 4 Ein- 
heiten nach oben lieat. 


Was ist eine komplexe 
Zahl? 


Das Zeichen »i« ist dabei eine will- 
kürlich gewählte Bezeichnung, die 
in der realen Zahlenwelt keine Ent- 
sprechung hat. Man kann also beı- 
spielsweise nicht etwa sagen, »1 hat 
den Wert 27« und überall, wo in ei- 
ner Formel das Zeichen ı vorkommt, 
statt dessen 27 einsetzen. Dies funk- 
tioniert nur mit gewöhnlichen Varia- 
blen. 

Wenn man hingegen die Fläche 
eines Quadrats mit 3m Kantenlänge 
berechnen möchte, schreibt man 
einfach »3m*3m= 9m% und spricht 
das Ergebnis als »Quadratmeter« 
aus. Wenn dieser Vorgang nicht 
schon durch jahrelange Übung ins 
Unterbewußtsein übergegangen 
wäre, würde man sich dabei denken 

»3m*3m = 3*m*3*m = 3*3*m*m= 
9*m®%,. Mit Einheiten läßt sich ge- 
nauso rechnen, als ob es Platzhalter 
für später einzusetzende Zahlen wä- 
ren — nur daß man diese Einsetzung 
nicht willkürlich durchführen darf. 

Ebenso verhält es sich mit dem 
Zeichen »i«. Quadriert gibt es als Er- 
gebnis -1 (= -]). Für den Anfang 
mag diese Art zu Rechnen noch un- 
gewohnt erscheinen, mit der Zeit 
wird es aber genauso geläufig wie 
der Ausdruck »Meter hoch 2« oder 
»Quadratmeter« als Ergebnis von 
zwei miteinander multiplizierten 


Mathematisch korrekt bezeichnet 
man »i« als »imaginäre Einheit«, und 
ein Ausdruck »A + i*B« wird als kom- 
plexe Zahl bezeichnet. 


Rechnen mit komplexen 
Zahlen 


Jetzt stellt sich natürlich die Frage, 
was nützt diese neue Schreibweise? 
Stellen Sie sich vor, Sie haben einen 
Punkt an der Stelle (X:Y) und wollen 
wissen, wo er sich befindet, wenn 
Sie ihn um 3 Einheiten nach rechts 
und um 4 Einheiten nach oben ver- 
schieben. Mit komplexen Zahlen ist 
die Berechnung sehr einfach: Man 
addiert die komplexe Schreibweise 
des Punktes (X:Y) zur komplexen 
Schreibweise des Punktes (3;4). 
(KX+#FY)+@+1*4) 
=X+rY+3+1%4 
=X+3+FY+1*4 
=(X+3)+1%(Y+4) 

Der neue Punkt liegt also an der 
Position (X+3Y+4). 

In einem Programm erscheint 
dann nur noch das Endergebnis 
»PLOT X +3 Y+4«, 

Richtig interessant wird es aber 
erst mit einer besonderen komple- 
xen Zahl (oder besser Formel), der 
»Eulerschen Zahl« E(a)=cos(a@)+ 
i*sin(e). Multipliziert man diese Zahl 
E(«) mit einer anderen komplexen 
Zahl (X +i*Y), entspricht das Ergeb- 
nis einem Punkt, der zum Punkt 
(X +1*Y) genau um den Winkel d um 
den Ursprung gedreht ist (Bild 2). 

Ein Beispiel: Wir multiplizieren 
die komplexe Schreibweise des 
Punktes (2;2) mit der komplexen 
Zahl E(45). (45 in normalen Winkel- 
graden, das heißt ein Vollkreis hat 
360 Grad.) Dann gilt: (2+1*2)*E(45) 
(2+1*2)*(cos(45)+1i*sin(45)) = 2”*cos 

(45) + i*2*sin(45) + 1*2*cos(45) + 
12*2*sin(45) 

Mit i?= -] (Definition von i) kann 
man unsere Formel umschreiben: 
»i2*2*sin(45)« wird durch »(-1)*2*sin 
(45)« oder »-2*sın(45)« ersetzt: 

2*cos(45)+ ee 5)+ 1*2*cos(45) 
-2*sin(45) = (2*cos(45)-2*sın(45)) + 


ix(2*sin(43)- + 2*cos(45)) 


Das Ganze ausgerechnet gibt als 
Ergebnis: 


0+i*2 V2' = 0+i*2,82, 


- Vollziehen wir das Ganze in einer 
»konventionellen« Rechnung nach: 
Der Ausgangspunkt (2;2) liegt auf 
der Winkelhalbierenden des |. 
Quadranten und damit in einem 
Winkel von 45 Grad zur x-Achse. Ei- 
ne Drehung um 45 Grad versetzt ihn 
die y-Achse. Am Anfang 
ch dem Satz von Pythago- 



























































ras /22+22'= /8'= 2 Y2 Einheiten‘ 
vom Ursprung entfernt, was natür- 
lich auch für die Endposition gilt. Als 
Koordinaten der Endposition des 
Punktes erhält man also genau den- 
selben Wert, den wir auch durch 
komplexe Rechnung ermittelt haben 
(0:2 V2). Das ist kein Zufall, sondern‘ 
gilt für jeden beliebigen Punkt. In’ 
diesem speziellen Beispiel bringt 
die komplexe Rechnung keine gro- 
Ben Vorteile. | 

Das liegt daran, daß unser Bei- 
spiel sehr einfach ist. Für beliebige 
Punkte erspart die komplexe Rech- 
nung sehr viel Aufwand. Verglei- 
chen wir einmal beide Wege, um 
den Punkt (X,Y) um den Winkel d zu‘ 
drehen: 
a) allgemeine »konventionelle« 
Rechnung: (Bild 3) 
1. Schritt 

Der Punkt P=(X:Y) schließt mit’ 
der x-Achse den Winkel ß8=artan 
(y/x) ein. 
2. Schritt 

Beachtung von Sonderfällen: 
— Der Ärcustangens von (y/x) liefert | 
denselben Wert wie der Arcustan- 
gens von (-y/x), obwohl der Punkt -x, 
-y ganz woanders liegt. Ist die x-Ko- 
ordinate also negativ, muß manzuß° 
noch 180 Grad addieren. | 
— Ist die x-Koordinate 0, ist der Är- 
custangens nicht definiert. Die Fälle 
8=90 Grad und ß=270 Grad müs- 
sen also gesondert betrachtet wer- 
den. 
3. Schritt 

Der Punkt P=(X;Y) hat vom _Ur- 
sprung den Abstand r= Yx?+y? 
(Satz von Pythagoras). 
4. Schritt 

Jetzt die eigentliche Rotation für 
P=(XY) 
X =r*cos(ß+@)Y =Tr*sin(d+o), 
wobei « der Drehwinkel ist. 
5. Schritt 

Zusammenfassung in einer kur- 
zen Routine (Listing 4). 
b) Rechnung mit komplexen Zahlen ° 
1. Schritt 
X'=X*cos(a)\Y *sınla) 
Y'= X*sin(a)+Y*cosl«) 

Es gibt keine Sonderfälle und nur ° 
einen Winkel. 
2. Schritt 

Zusammenfassung in einer kur- 
zen Routine (Listing 5). Da ja die alte 
x-Koordinate bei der Berechnung 
der y-Koordinate noch einmal benö- 
tigt wird, muß zur Zwischenspeiche- ° 
rung allerdings eine Hilfsvariable T 
verwendet werden. | 

Selbst wen die Erklärungen zur 
komplexen Rechnung nicht interes- 
siert haben, der sollte zumindest die 
'eben genannten Formeln und ihre 
Anwendung im Kopf behalten. 
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"Rotationikonventionell) CDFA2] 


18 'Kreisschlecht (abschreckendes Beispı I | 
DEG:ORIGIN 328,280 [BSBE] 


el) [FACE] 


28 DEG’Winkelmodus 358 Grad pro Vollkrei "Daten der Figur einlesen CDDaA2] 
| [= [?55C] n%=9 [381A]J 

38 r=199:m+=3208:my=280 'Radius, Ursprung L[BBEC]I DIM x (n%) „yin%) [4ACB] 

48 CLS £[D4CC] FOR i%#=1 TO n#t:READ » (iX) „ylik)sNEXT [8692] 

5a FOR i=8 TO 368 L4BBC] DATA -50,-58,-50,50,8,75,580,50,50,-58 

58 PLOT mx+r#5INti) „my+r#COSti) [F45A] ‚-50,-50,50,508,-50,50,580,-58 CFBG2] 

7@ NEXT EB?8C]I 'Rotieren und Zeichnen [5C54] 


w=15 [4345] 
CLS [7125] 
FLOT x in%) „yin%) [CSBEC]I 
FOR i%=1 TO nA CBS58]1 
DRAW » iX) „ylif) EFCBAI 

.'Rotation eines Punktes [CBAD4] 
IF »t(i%X)=B AND ytliä)>=BD THEN b=90 [8BF&äc] 
IF »tif)=B AND vyi(i%)<B THEN b=278 [2458] 
IF »tiX)>@ THEN b=ATNtiytif)/ktik)) [65198] 
IF »(i#)<@ THEN b=ATNtylii)/tif))+l 


18 'Kreisqut (daf}r aber komplizierter) L[D1D8] 
28 DEG ’Winkelmodus 348 Grad pro Vollkrei 

s [CF45C] 
38 r=199: mx =320:my=-200 Radius, Ursprung L[BBEC]I 
48 n=INT {PI#SQR ir)+1):sn=SIN (364B/n) ecs=C 


n) ' c j= 1 [3F71EI 
RE PERRERKERE ee r=S0R (yiW)#yGil)+kil)artik)) [E31A1 
SQ »=r:y=Q:MOVE mx+r my 'Startwerte EF99A] »kif)er#C0Scb+tw)y(lii)=r#SIN(b+W) CA7YE] 
&8 FOR i%=1 TOn C17B4] NEXT j [75EC] 
70 t=cs#x-sn#y: yssn#x+tcs#ty:n=t [SEB6] GOTO 188 CEE44] 
80 DRAW mx+x ‚my+y [3828] 

90 NEXT [C59@] 


"Schachtel -Quadrate [8435] 
DEG:ORIGIN 328,208 | E[BSBE)] 
"Parameter: Radius,kinkel ,„Faktor „Anza 


id '’Eckexperiment [Cö5F8] hl [CF580]1 
28 DEG | LA7A4] r=199:w=5:f=@. 92:n=37 [79DC] 
SQ r=199:mx=320: my=20D L456A] cs=f#[05S (w) »sn=f#SIN (w) C45DE] 
428 INPUT"Eckenzahl";e [C71A] [S?1E] 
so w=3Söäß/e [DSCC] LEFD?] 
58 CLS [CEZDB] CF7BB] 
78 FLOT mx+r „my [38F4] [CESBA]I 
88 FOR i=u TO 3651 STEPWw [F&38]1 LBF9F2] 
78 DRAW mx +r*COS(i) „my+r#SIN(i) [F&ö3E] [CBFEE] 
180 NEXT E7IE®] LACIFH] 
112 GOTO 48 [?5DE] L393E] 


ter #cos-ytsnı yarkctsnıtyHosınet [4E12] 
NEXT [EDEA] 



















"Lageberechnung (konventionell) [A376] 


® ‘nicht zur Nachahmung empfohlen [7C78] ? Fre S "j, a 

3a DEG EC?A&] Kreis-Experimente LC2FB2] 
48 INPUT "Ausgangslage-x-Koordinate";x L7FFEI DEG:ORIGIN 328,200 [BBBE)] 
5@ INPUT"Ausgangslage-y-Köordinate";y [3184] PRINT"Durch Komma getrennt Radius,Sch 

&8 INPUT"Drehwinkel"zw [9432] rittweite,Faktor und Anzahl eingeben" 

78 IF x=@ AND y<=B THEN b=278 E[SiEE] LQ4DC] 
80 IF x=@ AND y>@ THEN b=90 LIE1A] INPUT "Eingabe: "ir,w,f,n [2DB2] 
2 IF x>B THEN b=ATNt(y/x) [290807 ces=f#CDS (w) :sn=f#5IN {w) [45DE] 
180 IF x<@® THEN b=ATNty/x)+180 [87D4] CLS Ä LE2D®] 
110 r=SOR (kxHu+tyHy) [BE1?2] »=er:y=B:FPLOT x,y [E7B8] 
120 »=r+#C0S (w+b) : yaer#SIN (w+b) [4A12] FOR i%#=-1 TOn CF7BB] 
138 PRINT"Ergebnispunkt:"x","y [4402] t=sx#cs-y#4snı yartsntyHcsınat [BEBA] 





GOTO 48 [F8E4] DRAW x ,y [35558] 
NEXT [55E2] 

er } — 7 LOCATE 1,24:PRINT"Radius"r „"Schrittw 
Listing 4. Die Lageberechnung dauert Zeit... | eite"w,"Faktor"f,"Anzahl"n CDF24] 


PRINT"Weiter? - eine Taste dr!cken" L72EE] 
q$=INKEY$: IF q$="" THEN GOTO 148 [D4BE] 


'Lageberechnung (komplex) [9166] GOTO 3@ LEBE. 


"So geht's besser [2BE2] 

DEG [C2A6] 

INPUT "Ausgangslage-x-Koordinate";x L7F7E] 

INPUT "Ausgangslage-y-Koordinate";y [3184] 

INPUT"Drehwinkel";zw [9432] 
78 t=x#C0S5 (w)-y#5IN in) :y=x#5SIN (w) +y#CDS( 

wIıx=t [2956] 
158 FPRINT"Ergebnispunkt:"x",„"y [4402] 
1409 GOTO 48 [FBE4] 





Listing 5. ..oder auch nicht 
























Rotation(kompiex) [4392] 


18 ° 

28 DEG:ORIGIN 328,288 [BBBE] 

358 'Daten der Figur einlesen [DDB2] 

42 n%=9? [381A] 

5B DIM » (in%) „yin%) | [4ACB] | 

50 FOR i%=1 TO n%:READ » ti) ,yti%X):NEXT [86492] Mh ' 

78 DATA -58,-580,-58,50,8,75,590,50,50,-580 a 
„-58,-58,50,50,-580,59,50,-50 [FaBB2] 0 eh 
Fa 2 ' ANNE: u 

88 'Rotieren und Zeichnen [SC54] enge = 

98 w=15:sn=SIN {w) scs=COS (m) CEi4E] Ka une Er 

188 CLS [7126] us 

118 PLOT »in%) ,„yini%) [8BEC]I 

128 FOR i%=1 TO n% [B858] 

130 DRAW » (iX) „ylii) [?CBA] 

148 "Rotation eines Punktes CBAD4] 

158 t=x (iX) *cs-ylif)*#snıylif)=x lik)#snty 
(iA)#csıx (iA)-t [1388] 


[7SEC]I 
[EE44]1 | 





NEXT 
178 GOTD 108 
Listing 6. Komplexe Rotation ist schnell 
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Tabelle 1. Eingabevorschläge für Listing 9 





PLOT xy: Zeichnet den Punkt (x;y) 
und setzt den Grafikcursor 
an die Stelle (x;y) 
MOVE xy: Setzt den Grafikcursor an 
die angegebene Position 
DRAW xy: Zieht eine Linie von der 
Grafikcursorposition an die 
Position (xy) und setzt den 
Cursor an diese Position. 
Setzt den Koordinatenur- 
sprung an die angegebe- 
ne Position. Gibt es diesen 
Befehl nicht, muß bei je- 
dem PLOT, MOVE und 
DRAW-Befehl xO zur 
x-Koordinate und yÜ zur 
y-Koordinate addiert 
werden 
Setzt den Textcursor an 
die angegebene Position 






















ORIGIN 
xÜyl: 


LOCATE 


Schneider im Überblick 


Eine Anwendung zu den gewon- 
nenen Erkenntnissen sieht man in Li- 
sting 2: Die neuen Formeln gelten ja 
für jeden beliebigen Punkt in der 
Ebene. Speziell ım Kreis braucht 
man also nicht immer den Aus- 
gangspunkt in die Gleichung einzu- 
setzen, sondern kann genauso gut 
den jeweils letzten berechneten 
Punkt verwenden. Durch diesen 
Trick erhält man einen weiteren Vor- 
teil: Die Dehnung pro Schritt ist ja 
konstant, und genau diese Schritt- 
weite müssen wir in die Gleichung 
einsetzen. Die Sinus- und Cosinus- 
werte sind also im ganzen Kreis kon- 
stant, so daß man die Berechnung 
aus der Schleife herausziehen und 
innerhalb mit Konstanten arbeiten 


"kann. Allein durch diesen Trick be- 


schleunigt sich die Verarbeitung ge- 
genüber dem »abschreckenden 
Beispiel« in Listing 1 um den Faktor 
2. Dabei werden die neuen Routinen 
noch gar nicht richtig ausgenutzt. 
Auch im Listing | müssen der Radius 
und der aktuelle Winkel nicht be- 
rechnet werden, sondern werden ja 
durch die Schleife schon vorgege- 
ben. 

Diese Berechnung wird aber un- 
umgänglich, wenn man beispiels- 
weise eine beliebige Figur rotieren 
lassen möchte. Die Punkte liegen 
dann nicht mehr schön geordnet 
vor, sondern können irgendwo auf 


5 45 : 2 
" Mi . r 4 > r = ” N 4 Ar) z u 4 4 
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dem Bildschirm verteilt sein. In die- 
sem Fall muß bei konventioneller 
Rechnung der Radius und der Ar- 
custangens wirklich berechnet wer- 
den. Hier zeigen die neuen Routinen 
richtig, was sie können. Obwohl sich 
das Listing 6 vom Listing /nurinden 
fünf Zeilen mit den aus konventionel- 


ler/komplexer Rechnung erhalte- | 


nen Gleichungen unterscheidet, ist 


das Programm aus Listing 6 dreimal | 


schneller als das aus Listing 7. 


Multiplikation mit einer 
Konstanten 


Was in unserer Betrachtung noch 
fehlt, ist die Multiplikation einer 
komplexen Zahl mit einer Konstan- 
ten. Der Winkel zwischen dem 
Punkt und der x-Achse bleibt dabei 
fest, der Punkt entfernt sich nur et- 
was vom Ursprung. Eingefügt in die 
Kreisroutine würde sich also eine 
Spirale ergeben. Statt 


Ar&X + FY)*(cosle) +1*sin(o)) Kann 
man dann natürlich genauso gut 
KX+FY)*A*(cosle) + i*sin(o)) 
schreiben oder gleich 
KX+FY)*Axcosle) +1*A*sinle)). 


Die Multiplikation wird also gleich 
in die Sinus- und Cosinusberech- 
nung mit einbezogen und so aus der 
Schleife entfernt. Die Eulersche For- 
mel entartet hier zu einer Dreh- 
streckung. Von dieser Möglichkeit 
macht das kleine Demoprogramm 
in Listing 8 Gebrauch, das ineinan- 
dergeschachtelte Quadrate zeigt. 
Außerdem werden hier nicht alle 
vier Punkte des Quadrats berech- 
net, sondern jeweils nur einer, wo- 
bei sıch die anderen durch Punkt- 
und Achsenspiegelung ergeben. 
Experimentieren Sie doch einmal 
mit den Parametern in der Zeile 40, 
indem Sie zum Beispiel 
»r=199:w=5:f=0,97:n=100« 
einsetzen. 

Für den Praktiker zum Schluß 
noch die »alles in einem«-Routine (Li- 
sting 9). Hier wählen Sie die Parame- 
ter »Änzahl der Schritte«, »Schrittwei- 
te«, »Streckfaktor« und »Änfangsra- 
dius« frei aus. Obwohl es dabei nicht 


sehr viele Variationen zu geben | 


scheint, Kann die Routine ohne An- 
derung doch alles Mögliche zeich- 
nen: Von Kreisen über regelmäßige 
Vıielecke, Spiralen, Sterne, sıch auf- 
blähende Sterne und so weiter. Ver- 
suchen Sie es einfach einmal mit 
den Parametern aus Tabelle 1. 


(Helmut Tischer) 
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| net. Bild 7 zeigt, wie sich dieser Zu- 


| zurückgreifen. 


Oberkante der Rückwand unseres 


| Die optisch exakten Werte können 
| Körpern — am besten durch Aus- 


| Verfahren nicht liegt, der kann sich 


| immer mit demselben Korrekturfak- 
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Fortsetzung von Seite 38 


Länge gezeichnet werden. Der 
Mensch nimmt jedoch weiter ent 
fernt liegende Gegenstände kleiner 
wahr. In weiter Ferne schrumpfen 
alle Körper bei dieser Betrach- 
tungsweise auf Null. Wir haben die 
Grenzen der Auflösungsfähigkeit 
des Auges erreicht. Der Punkt, auf 
den sich das Auge dabei konzen 
triert, wird als Fluchtpunkt bezeich 


sammenhang in »überspitzter« Form 
für unseren Quader darstellt. Denn 
normalerweise ist das Verhältnis 
von Abstand zum Fluchtpunkt zur 
Körperseitenlänge günstiger, so 
daß die Flächen weniger asymme: 
trisch verlaufen. Trotzdem wirkt sich 
dieser Zusammenhang immer aus, 
Wenn Sie sich den Quader etwas nä- 
her betrachten, so haben auch Sie 
wahrscheinlich das Gefühl, daß die 
Hinterflächen länger sind als die 
vorderen. Hier sollte man also auf 
Abhilfe sinnen. Um eine korrekte, 
das heißt dem Auge entsprechende 
Abbildung zu erhalten, müßte man? 
allerdings auf die Zentralprojektion’ 


Zunächst verzichten wir auf den 
asymmetrischen Verlauf der Seiten- 
linien und beschränken uns aufeine 
symmetrische Korrektur (Bild 8). 
Wir müssen dazu nur die Winkel un- 
serer Seitenlinien etwas mehr auf 
den Fluchtpunkt orientieren. Statt 
zweier Linien, die um 45 Grad nach’ 
oben laufen, sollte also die obere’ 
geringfügig abgesenkt werden, die’ 
untere etwas stärker angehoben 
verlaufen. Die hintere Seitenwand 
wird dadurch etwas kleiner. Die 


Quaders ist ebenso zu verkürzen 
und damit werden die Seitenlinien 
nun auch in dieser Richtung etwas 
auf den Zentralstrahl hingezogen. 


Sie dabei — speziell bei einfachen 
probieren bestimmen. Wem dieses 


natürlich auch zu einer mathema- 
tisch exakten Form durchringen. Die 
Bedingungen der Strahlensätze’ 
sind erfüllt. Somit gilt: a/c=(a+b)/d. 
Nun müssen Sie nur noch die Entfer- 
nung zum Fluchtpunkt festlegen 
(a+b) und natürlich die Körperlän- 
ge b. Sie können dann bei gegebe- 
nen d den Wert von c problemlos 
bestimmen. Diese Berechnung muß 
natürlich in beiden Achsenrichtun- 
gen erfolgen, wobei man bei einem ' 
Würfel (einem Spezialfall) natürlich 


tor arbeiten kann. 
(Carsten Straush) 
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/Recorder streikt 


Wie ein Ungetüm aus grauer Com- 
| putersteinzeit residiert der Daten- 
recorder im Bauch des CPC 464. 
Wie er funktioniert und was man 








tun kann, wenn er nicht einwandfrei funk- 






‚er CPC 64 benutzt — wie eine 
D Reihe anderer Heimcomputer 
| auch — einen umgebauten 
Kassettenrecorder als Datenspei- 
cher, Schließlich sind diese in Mas- 
senproduktion hergestellten Geräte 
sehr billig. Da sie aber ursprünglich 
nicht für die Datenspeicherung ent- 
wnckelt wurden, ergeben sich bei 
der Anwendung öfters Probleme. 

Ein scheinbarer Fehler äußert 
sich darin, daß nach der Aufforde- 
zung die PLAYTaste zu drücken 
nichts passiert. Häufig liegt der Feh- 
ler bei Ihnen. Wenn Sie die PLAY- 
"Taste schon vorab gedrückt haben, 
betätigen Sie nach »LOAD "Pro- 
grammname' schnell zweimal hin- 
ereinander die ENTER-Taste, da die 
PLAY-Taste ja gedrückt ist. 

Nun ist das Speichern von Daten 
Deim Schneider aber eine relativ 
komplizierte Angelegenheit. Es läuft 
in zwei Stufen ab. Zuerst wird an der 
Speicherobergrenze 4 KByte Platz 
reserviert. Dieser reicht, um eine 
Ausgabe- und eine Eingabedatei 
gleichzeitig offen zu halten. Die Da- 
ten werden nämlich in Blöcken zu 2 
KByte auf Band geschrieben. Um 
diesen Bereich anzulegen, muß 
nach dem Ladebefehl der Speicher 
umorganisiert werden. Dies kann — 
speziell, wenn der Speicher mit grö- 
Seren Stringarrays gefüllt ist — eıni- 
ge Zeit dauern. Während dieser 
Zeit macht der Computer nichts an- 
deres, auch die Tastatur wird nicht 
abgefragt. Er bekommt das zweite 
Enter nicht mit. Mit Ungeduld 
kommt man hier nicht weiter. Die 
einzige Möglichkeit, dies zu vermei- 
den, ist ein vorangestelltes Ausrufe- 
zeichen »!« im Ladebefehl. Bei 
LOAD "!Programmname'k unter- 
drückt der Schneider nämlich alle 
Kommentare und damit auch die 
Aufforderung zur Quittierung. 

Ein anderes Problem tritt meist 
erst nach einiger Zeit auf — klem- 
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tioniert, das lesen Sie hier. 


mende Kassetten. Es gibt wohl kaum 
eine Anwendung für Kassetten, wo 
diese so oft hin und her gespult wer- 
den, wie bei der Computerei. Eine 
Datei wird geSAVEt und mit »CAT« 
geprüft. Dann wird eine andere Stel- 
le auf dem Band gesucht, umein an- 
deres Programm zu laden. Diese 
»„Bandschieberei« führt dazu, daß 
die einzelnen Windungen auf der 
Spule gegeneinander leicht ver- 
schoben werden, während bei kon- 
tinuierlich in einer Richtung laufen- 
den Bändern Umdrehung für Um- 
drehung ordentlich eine Schicht auf 
die nächste gespult wird. Der Effekt 
ist, daß die Kassette klemmt. Oft 
reicht aber schon das einfache Her- 
ausziehen und Wiedereinschieben 
der Kassette, um das Band wieder 
zum Laufen zu bringen. In beson- 
ders hartnäckigen Fällen muß man 
die Kassette einmal kurz mit der Un- 
terkante aufden Tisch schlagen. Da- 
durch werden die Bandwicklungen 
enger zusammengeschoben und 
das Band läuft wieder besser. 
Schwieriger wird es, wenn wir es 
nicht mit solch einfachen Fehler, 
sondern mit wirklichen Lese- bezie- 
hungsweise Schreibfehlern zu tun 
haben. Beispielsweise wenn das 
Band zwar läuft, aber durch Fehler 
beim Schreiben oder Lesen perma- 
nent »Read-Error«s auftreten. Dies 
kann wiederum verschiedene 
Gründe haben. Zum einen setzen 
sich im Laufe der Zeit auf dem Ton- 
kopf und auch auf dem Band kleine 
Staubteilchen fest. Diese stören den 
Kontakt zwischen Band und Ton- 
kopf. Dadurch nimmt die Lautstärke 
und auch die Deutlichkeit der als 
Töne gespeicherten Daten ab. Man 
kann dies sogar hören. Einfach den 
Lautstärkeregler voll aufdrehen, die 
Datenmusik klingt ein wenig dumpf. 
Im Handel erhältliche Reinigungs- 
bänder für Hifi-Kassettenrecorder 
oder etwas Alkohol helfen hier. Um 
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den Tonkopf zu reinigen, taucht man 
ein Wattestäbchen in Alkohol und 
säubert damit die Oberfläche. Da- 
bei darf das Wattestäbchen nicht 
fusseln. Denn dies würde gerade 
dem Zweck der Aktion zuwiderlau- 
fen. Und noch eins muß beachtet 
werden. Sie dürfen den Tonkopf nie 
mit einem metallischen Gegenstand 
berühren. 

Ein zweiter Grund für solche 
Schreib-/Lesefehler kann darin be- 
stehen, daß der Tonkopf nicht mehr 
richtig justiert ist. Dies ist ziemlich 
häufig der Fall und rührt daher, daß 
der Tonkopf nur durch eine einzige 
Schraube auf Position gehalten wird. 
Diese verdreht sich im Laufe der 
Zeit, wodurch der Tonkopf abge- 
senkt oder angehoben wird. Das 
Fachwort dafür ist »Azimuth-Fehler«. 
Der Spalt des 'Tonkopis steht dann 
nicht ganz senkrecht zum Magnet- 
feld (Bild ]). Man kann die Tonkopf- 
stellung natürlich korrigieren. Dazu 
benötigen Sie einen Uhrmacher- 
schraubenzieher Nummer 2 oder 
Nummer 3. Diesen erhalten Sie in je- 
dem Elektronikfachgeschäft und 
auch mancher Werkzeughändler 
führt ihn. Es handelt sich dabei um 
einen relativ kleinen Schraubenzie- 
her, der mit dem Schaft durch den 
Schlitz vor dem Kassettenfach des 
Datarecorders passen muß. 


falsche Spalteinstellung 
(Azimuthfehler) 


Bild 1. Der Tonkopf muß senkrecht zum 
Magnetfeld stehen 


Entfernen Sie nun zuerst die Kas- 
sette aus dem Laufwerk und lassen 
Sie im folgenden den Deckel geöff- 
net. 
drückt, schiebt sich aus dem Be- 
reich der Tastatur die Mechanik mit 
dem Tonkopf nach vorne. In der Mit- 
te sehen Sie einen silbernen Würfel, 
den Tonkopf. Links daneben befin- 
det sich ein anderer weißlicher klei- 
ner Würfel. Das ist der Löschkopf. 
Auf der linken Seite des Tonkopfes 
(silbriger Würfel) befindet sich eine 
kleine Schraube. Sie können diese 
durch densSchlitz in der Abdeckung 


‘des Kassettenrecorders auch bei 


laufendem Gerät erreichen. Zu- 
nächst drehen Sie diese Schraube 
ganz hinein, das heißt im Uhrzeiger- 


Wenn man die PLAYTaste . 





Grundlagen 


sinn bis zum Anschlag. Nun legen 
Sie ein fertig gekauftes bespieltes 
Band ein und spulen so lange vor, 
bis gerade die ersten Töne eines 
Programms ertönen. Der Lautstär- 
kenregler an der rechten Seite des 
Gehäuses sollte dabei auf Maxi- 
mum stehen. Während diese Töne 
hörbar sind, drehen Sie die Schrau- 
be solange gegen den Uhrzeiger- 
sinn wieder heraus, bis die Lautstär- 
ke ein Maximum erreicht. Norma- 
lerweise sind das zwei bis drei volle 
Umdrehungen. Nachdem Sie die 
Qualität Ihrer Einstellung mit eini- 
gen Kassetten überprüft haben 
(möglichst dıe Problemfälle testen), 
können Sie die Schraube mit Nagel- 
lack oder ähnlichem gegen Verdre- 
hen sichern. 

Eine andere Fehlerquelle können 
sogenannte »Drop outs« sein. Drop 
outs sind Stellen in der Magnetspur 
des Bandes, die sich nicht magneti- 
sieren lassen. Der Ton wird an die- 
ser Stelle unterbrochen. Dadurch 
verschwindet das hier gespeicherte 
Bit und der Computer meldet »Read 
error b«. Bei einem echten Drop out 
ist guter Rat teuer, Dieses Problem 
taucht allerdings oft auch bei ver- 
stelltem Tonkopf auf. Will man die 
Einstellung allerdings wie oben be- 
schrieben mit Hilfe von »CAl«k und 
dem Anfangston korrekt einstellen, 
so bekommt man Ärger mit dem Be- 





Bild 2. Regel wider der Mathematik: 
Die 1 ist doppelt so groß wie die O 


triebssystem. Während beim Auf- 
treten von »Read error a« (dieser gibt 
an, daß ein gelesenes Bit entweder 
zu kurz oder zu lang gespeichert ist 
und damit nicht eindeutig als 0 oder 
l identifiziert werden kann) jeder- 
zeit die Test-Kassette zurückgespult 
werden kann, um denselben Vor- 
spann wieder zu benutzen, hängt 
sich der CPC bei einmaligem Auf- 
treten von »Read error b« schon auf. 
Auch bei erfolgreicher Korrektur 
bringt ein einfaches Rückspulen kei- 
ne Erfolgsmeldung. Nach »Read er- 
ror b« muß der Ladevorgang immer 
mit der Escape-Taste abgebrochen 
und neu gestartet werden. 
Interessant ist noch eine andere 
Art von Fehlern, die auch bei teure- 
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ren Kassetten auftreten. Manche 


Bandsorten scheinen die Auf- 
sprechfrequenz des Schneider 
nicht zu mögen. Jedenfalls produzie- 
ren sie bei »SPEED WRITE I« lau- 
fend Fehlermeldungen. Das Interes- 
sante dabei ist, daß man durch Wahl 
einer höheren Schreibgeschwindig- 
keit diese Bänder zum perfekten 
Funktionieren bringen kann. 

Zum Ändern der Schreibge- 
schwindigkeit existiert eine einfach 
zu bedienende Routine im Betriebs- 
system des Computers: CAS SET 
SPEED. Beim Anruf dieser Routine 
muß das Reaisterpaar HL die Länge 
für ein halbes Null-Bit (in Mikrose- 
kunden) enthalten. Der Akkumula- 
tor A nimmt einen weiteren Parame- 
ter auf, die Vorprüflänge. Hier muß 
einiges zur Datenspeicherung ge- 
sagt werden. Jedem Bit im Speicher 
des Computers wird beim Aufzeich- 
nen eine Rechteckschwingung zu- 
geordnet. Bei einem Null-Bit ist die 
Periode halb so lang wie bei einem 
Eins-Bit. Bild 2 zeigt den Zusammen- 
hang. Am Änfang jedes Bits steht ein 
»High-Teil« von der ın HL gespei- 
cherten Länge. Danach wird diesel- 
be Zeitspanne noch einmal mit Low- 
a geschrieben. In Bild 2 ist Bit 
1=0, Es folgt als nächstes ein Eins- 
Bit. Das Speicherformat ist das glei- 
che, jedoch doppelt so lang. 

Bei dieser Art der Datenaufzeich- 


FOR 
ı CALL 40000 


MEMORY 37977 

DATA 21,59,00,3E,87,CD,48,BC,C9,X 
i=40088 TO 410B0: READ ati Ir "ascyz" 
x" THEN POKE i,VAL("&"+a$) 2NEXT 


INFUT"HL in een nl 
' INPUT"Vorprueflaenge 
POKE 40001, VAL CHEM IDS (HEXSChL. 4),3) 


) 
FOKE 48882,VAL("&"+LEFTFIHEXFIhl ,„4) „2 
)) 


78 FOKE Bo al 
188 GOTO 48 








Dieses besteht aus vier Maschi 
nencode-Befehlen, die am Anfang 
in den Speicher ab 40000 geladen 
werden. Danach wird die Maschi 
nencode-Routine aufgerufen. Sie 
setzt mit dem ersten Kommando HL 
aufden Wert 59 hex (dezimal 89) und 
mit dem nachfolgenden 3E hex (LD 
A)den Akkumulator aufdie Vorprüf- 
länge 7. Zum Schluß wird CAS SET 
SPEED aufgerufen und die neue‘ 
Geschwindigkeit gesetzt. Mit den’ 
hier gewählten Parametern verdop- 
pelt sich die Geschwindigkeit ge- 
genüber der gewohnten »SPEED 
WRITE 1«. Man erreicht knapp 4000 
Baud. Um Ihnen die Möglichkeit zu 
geben, selbst die Geschwindigkeit 
noch individueller zu wählen, sind’ 
ein paar Programmzeilen angefügt.‘ 
In ihnen können Sie einfach Werte 
für HL und A angeben, die dann au- 
tomatisch gesetzt werden. Haben 
Sie Ihre endgültige Wahl getroffen, 
so brauchen Sie nur noch die DATA- 
Zeilen ändern und können bis auf’ 
die ersten vier Zeilen alles löschen. 
Statt der 59 hex setzen Sie den Wert: 
ein, den Sie durch »PRINT HEX$ 
(40001) ausgegeben bekommen. 

Dieselbe Operation für die Spei- 
cherstelle 40002 durchgeführt, lie- 
fert den Wert, der für die 00 hex an 
Stelle des dritten DATA$-Werts ein- 
zusetzen ist. »PRINT HEX$ (40004) 
gibt schließlich noch dıe Angabe, 


[öF22]1 
[EB84C] 
[AA2A] 
[&D58] 
L1iAE4] 
[8438] 


[AFF8] 


CD4DC] 


Listing 1. So wird Ihr lkonorder superschnell 


nung taucht nun aber ein Fehler auf. 
Einige Bausteine des Kassettenre- 
corders haben die Tendenz, die 
Flanken (Übergänge von High nach 
Low und umgekehrt) auszugleichen. 
Ein Eins-Bit wird beim Lesen da- 
durch weniger lang empfangen, ein 
Null-Bit dagegen länger. Als Korrek- 
turfaktor dient da die Vorprüflänge. 
Diese Konstante wird zur Eins- 
Periode addiert und von der Null- 
Periode abgezogen. Beim Lesen er- 
geben sich optimierte Werte. Nun 
wollen Sie aber sicher überprüfen, 
wie man mit diesem Wissen die 
Schreibgeschwindigkeit ändern 
kann. Dazu benutzt man am einfach- 
sten ein kleines Hilfsprogramm (Li- 
sting ]). 


die statt der 07 hex einzusetzen ist. 
Damit haben Sie Ihre kleine Schnell- 
schreibroutine fertig und kann in je- 
des Programm eingebaut werden. 

Nach diesem Ausflug in die Fein- 
heiten der Datenspeicherung soll 
nun noch ein Lösungsweg für ganz 
problematische Fehler beschrie- 
ben werden. Speziell bei längeren 
Programmen lassen sıch nämlich öf- 
ters sehrtypische Fälle des »13. Mur- 
phy'schen Computergesetzes« fin- 
den: Je länger ein Programm ist, de- 
sto unwahrscheinlicher ist die Exi- 
stenz einer Sicherungskopie. 

Was tun, wenn man nun in dieser 
wenig beneidenswerten Situation 
mit solch einem Drop out konfron- 
tiert ist? Zunächst ist zu sagen, daß 









es keine perfekte Abhilfe gibt. Man 
kann aber sein wertvolles Pro- 
gramm meist wenigstens teilweise 
retten. Wie weiter oben schon ge- 
sagt, speichert der Schneider die 
Daten in Blöcken zu je 2 KByte. Dies 


#:t auch die Voraussetzung dafür, 










daß überhaupt noch etwas zu retten 
st. Da die Blöcke 1 bis X-l (wobei X 


Z die Nummer des zerstörten Blocks 


darstellt) sauber gelesen werden 
können, können wir diese auch in 
den Speicher holen. Hierbei hilft 
uns der Befehl »CAT«. Mit diesem 
Kommando wird nämlich jeder 
Block einzeln eingelesen und aus- 
gewertet. Die Anfangsadresse, ab 
derder CPC die hereinströmenden 
Daten ablegt, hängt von der Ober- 
grenze des Benutzerspeichers (HI- 
MEN) ab. Das Prinzip unserer Ret- 
Sungsaktion ist nun relativ einfach. 
Zuerst müssen wir mit »CAT« und 
zerschiedenen Speichergrenzen 
Sie einzelnen Blöcke hintereinan- 
der an der Speicherobergrenze ab- 
"gen. Nachdem wir das gesamte 
Programm bis zum fehlerhaften 
Block eingelesen haben, muß die- 
ses dann noch in die normalen 
Adressen, an denen Basic-Program- 
me normalerweise liegen, verlagert 
werden. 

Ein Beispiel: In einem Programm 
=t der 7. Block zerstört. Es können 
also sechs Blöcke gerettet werden. 
Als erstes müssen wir einen Dummy 
schaffen, ein Programm, das um 
mindestens einen Block länger als 
die Anzahl der zu sichernden 
Blöcke ist. Dieses Programm hat ei- 
ne Platzhalterfunktion und ist bei 
Gen folgenden Operationen perma- 
nent im Speicher. Überzeugen Sie 
sich dabei durch probeweises Ab- 
speichern, daß das neue Programm 


auch die richtige Blockzahl hat. An 
dieses Programm fügen Sie am En- 
de mit der höchsten Zeilennummer 
noch eine Zeile an: »Nummer FOR 
i= Anfang TO 41855:POKE 
i—Anfang + 368, PEEK():NEXT.END«. 
»Anfang« stellt dabei die Untergren- 
ze des abzuspeichernden Berei- 
ches dar. Dabei muß folgendes be- 
rücksichtigt werden. Der Schneider 
reserviert ja bei jeder Ladeopera- 
tion 4 KByte als Zwischenspeicher, 
Dabei sind die oberen 2 KByte der 
aktuellen Eingabedatei vorbehal- 
ten, die unteren 2 KByte gehören 
der Ausgabe. Wenn Sıe also ein Pro- 
gramm mit »CAT« überprüfen, wird 
in den Bytes HIMEN-4095 bis 
HIMEN-2048 ein 2 KByte langer 
Block eingelesen. Nun kann der 
Wert des Platzhalters »AÄnfang« 
leicht bestimmt werden. Jeder Block 
besteht aus 2048 Bytes (= 2 KByte). 
Wir verschieben nun die Speicher- 
obergrenze mit MEMORY um die 
einzulesende Blockzahl nach unten. 
Der Befehl hierzu heißt »MEMORY 
43903-2048*(Blockzahl-])«. In unse- 
rem Beispiel wären dies 6 x 2048 By- 
tes = 12288 Bytes. Wenn Sie nun 
»CAT« ausführen lassen, wird in den 
2 KByte unterhalb dieser Grenze 
der erste Block eingelesen. Nach- 
dem Sie das »OK« für diesen ersten 
Block auf dem Bildschirm haben, 
muß das Programm mit der Escape- 
Taste abgebrochen werden. Mit 
»MEMORY HIMEN + 2048 wird die 
Speichergrenze 2 KByte nach oben 
verschoben. 

Noch ein »CAT« und der nächste 
Block ist im Speicher. In unserem 
Fall muß dieser Vorgang sechsmal 
wiederholt werden, bis das defekte 
Programm im Speicher ist. 

Mit der letzten Zeile unseres Dum- 


Firmware-Routinen 
in Basic genutzt 


Be uAs 





as fest im ROM installierte Be- 
triebssystem der Schneider- 
Computer, die sogenannte 





Firmware, ist in eine Reihe wichtiger 
Abschnitte unterteilt, die jeweils 
spezielle Aufgaben wahrnehmen. In 
üırer Gesamtheit steuert die Firm- 


. | Folgen Sie unserem Streifzug durch 

ı das Betriebssystem der Schneider- 
Din Computer, soweit es für eigene Basic- 
“” | Programme genutzt werden kann. 


ware alle Zugriffe auf die Hardware, 
bewirkt also beispielsweise die Aus- 
gabe von Zeichen auf dem Bild- 
schirm, die Tastaturabfrage oder 
die Ansteuerung des Kassetten-Re- 
corders (beim CPC 464). 

Alle Firmware-Routinen sind zum 
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mys verschieben wir die geretteten 
Befehle. »Anfang« ist dabei durch 
die Untergrenze unseres Pro- 
gramms (allgemein 43903-2048* 
Blockzahl) zu ersetzen. Die Routine 
verschiebt die gesamten sechs 
Blöcke in den Basic-Programmbe- 
reich ab Adresse 368. Wenn Sie nun 
den Dummy wieder listen, finden 
Sie dort dıe überlagerten Zeilen des 
zerstörten Programmes wieder. Die 
letzte Zeile sieht allerdings meist et- 
was seltsam aus. Dies resultiert dar- 
aus, daß wir das Programm nur teil- 
weise übertragen haben. Ein sol- 
ches Teil-Programm bringt nun 
beim Speichern Probleme. Auch auf 
ein »DELETE diese Zeilennummer« 
reagiert der CPC unwirsch. Daher 
müssen wir als letztes auf einen 
Trick zurückgreifen, die Abspei- 
cherung von Programmen als 
ASCII-Datei. Wir eröffnen dazu mit 
»OÖPENOUT Programmname« eine 
Datei zum Schreiben, an die wir 
dann mit »LIST (n-]), #% unser Pro- 
gramm ausgeben. »n« ist die erste 
unsinnige Zeile (manchmal interpre- 
tiert der CPC nämlıch fröhlich wei- 
ter Unsinn). Nun stellen Sie den 
Computer mit Ctrl+Shift+Esc zu- 
rück und laden das gerade gesi- 
cherte Programm wie gewohnt. Der 
nächste SAVE-Befehl funktioniert 
wıeder ganz normal. Damit haben 
Sie — wenigstens teilweise das 
Programm gerettet. Allerdings mit 
einem erheblichen (Zeit-) Aufwand. 
Einen Ersatz für eine Sicherungsko- 
pie kann diese Methode also nicht 
bieten. Sie sollten sich deshalb an- 
gewöhnen, spätestens Jede Stunde, 
bei schneller Eingabe oder sehr 
schwierigen Problemen auch häufi- 
ger, eine Sicherheitskopie zu ma- 
chen. (Carsten Straush) 


Aufruf durch Maschinensprache- 
Programme konzipiert, das heißt, 
daß alle Parameter in der Regel in 
den Prozessor-Registern überge- 
ben werden. Da der CALL-Befehl 
die direkte Übergabe von Zahlen- 
werten an die Register des Z80-Pro- 
zessors nicht unterstützt, Können die 
weitaus meisten der etwa 250 ver- 
schiedenen Routinen von Basiıc-Pro- 
grammen aus nicht direkt aufgeru- 
fen werden. Allerdings ist dasin vie- 
len Fällen auch nicht nötig, denn um 
die große Vielfalt der Basic-Funktio- 
nen zu realisieren, bedient sich 
auch der Interpreter des CPC 464/ 
664/6128 der Firmware-Routinen. 
Eine Reihe interessanter Effekte 
lassen sich aber durch geschickte 
Anwendung spezieller Firmware- 
CALLs erreichen. Im Folgenden 
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werden die wichtigsten und interes- 
santesten Firmware-Routinen und 
Betriebssystemadressen mit ihrer 
Wirkung vorgestellt. 

Tastatur (Key Manager --KM): 

Wie bei den meisten anderen 
Firmware-Abschnitten gibt es auch 
für den Tastaturbereich eine Initiali- 
sierungs-Routine, welche die Tasta- 
tur in den Zustand direkt nach dem 
Einschalten des Computers ver- 
setzt. Diese Routine mit Namen KM 
INITIALISE kann über »CALL 
&BB00« aufgerufen werden. Dieser 
Aufrufist zum Beispiel dann empfeh- 
lenswert, wenn man mit vielen 
»KEY«- und »KEY DEF«-Befehlen die 
Tastatur soweit »vermurkst« hat, daß 
ein vernünftiges Arbeiten nicht 
mehr möglich ist. | 

Eine ähnliche, wenngleich nicht 
ganz so weitgehende Routine ist KM 
RESET (BBO3hex). Diese Routine 
löscht eine eventuell vorhandene 
Belegung der Funktionstasten und 
den Tastaturpuffer. Ein »CALL 
&BB0%« könnte am Ende eines Pro- 
gramms stehen, das die Funktions- 
tasten für eigene Zwecke umdefi- 
niert hatte und den ursprünglichen 
Zustand wieder herstellen möchte. 

Oft kommt es in einem Änwender- 
programm zu der Situation, daß man 
auf einen Tastendruck des Benut- 
zers warten muß. In der Regel for- 
muliert man das als »A$="":WHILE 
A$=""A$=INKEY$WEND«. 

Unter Ausnutzung der Firmware- 
Routine KM WAIT CHAR (BBO6hex) 
geht es auch kürzer: »CALL &BB06« 
wartet solange, bis irgendeine Taste 


iB ECALL %BB4B: a$=INKEYF 
28 PRINT a$; 


Listing 1. Die Tastatur kann sehr luxuriös abgefragt werden 


18 cplace=%BB8A "Cursor ein 
20 cremove=-%BB8D "Cursor aus 

SB CALL cplace: a$="" 

40 WHILE as="":a#=1INKEY#:WEND 

 5@ CALL cremove:FRINT a$; 

68 IF as<>CHRr(13) THEN 38 


| Listing 2. Eine Tastaturabfrage mit Echo 


gedrückt wurde. Allerdings läßt 
sich anschließend nicht mehr fest- 
stellen, welche Taste das war, was 
aber in sehr vielen Fällen ja auch 
überflüssig ist. 

Eine andere, noch interessantere 
Routine ist KM BREAK EVENT 
(&BB4B). Der Aufruf dieser Routine 
bewirkt das gleiche, wie das einma- 
lige Drücken der Esc-Taste: Das Pro- 
gramm wird angehalten, und es er- 
scheint ein Cursor. Ein einfacher 
Druck auf Esc bricht das Programm 
jetzt sofort ab. Jede andere Taste be- 
wirkt eine Fortsetzung des Pro- 
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:IF a®<>CHR# (153) THEN 





grammlaufs. Sehen Sie schon den 
Nutzen dieser Routine? Probieren 
sie einmal das Mini-Programm aus 
Listing | aus. 

Nach »RUN« geschieht folgendes: 
Der Aufruf von KM BREAK EVENT 
bewirkt das Erscheinen des Cur- 
sors; der Programmlauf ist angehal- 
ten. Die Routine wartet auf das 
Drücken einer beliebigen Taste. 
Dieser Tastendruck wird durch 
»A$=INKEYS%« festgehalten. Zeile 20 
erzeugt ein Echo der Eingabe ähn- 
lich wie bei INPUT. Bei Drücken der 
EnterTaste wird das Programm 
beendet. Damit wird es sehr eın- 
fach, beispielsweise einen forma- 
tierten INPUT-Befehl für Bildschirm- 
masken zu programmieren. 

Eın Problem ist allerdings die Esc- 
Taste. Da die Routine ja praktisch 
die einmalige Betätigung der Esc- 
Taste simuliert, ist jetzt äußerste Vor- 
sicht geboten, um nicht versehent- 
lich Esc zu berühren, was den Äb- 
bruch des laufenden Programms 
zur Folge hätte, Abhilfe schafft hier 
entweder das völlige Abschalten 
der BREAK-Funktion mit »ON BRE- 
AK GOSUB .. .« oder (einfacher) 
das Umdefinieren der Esc-Taste: 
Nach»KEY DEF 66,0,0,252,252« wirkt - 
die Esc-Taste nur noch bei Betäti- 
gung zusammen mit Shift oder Ctrl 
— eine einfache Sicherung gegen 
unabsichtliche Betätigung. 

Wem das Hantieren mit BREAK- 
Routinen und Esc-Taste nicht so ganz 
geheuer ıst, für den gibt es noch 
zwei interessante Routinen, mit de- 
nen das Erscheinen des Cursors am 


[24FA] 


10 EF7BA] ceplace=&BBBA 





sB flag%=-1:EVE 
40 CALL ceplace: 
En s@ WHILE aft="" 

[LFES4] 
[L7C46] 
L4F7CE] 
[FES&] 
[4DB2] 
[1B78] 


| 78 flag%=REMAIN 
808 IF as< >CHRE&( 
72 fFlag%4=NOT fl 


188 RETURN 


Bildschirm sehr einfach gesteuert 
werden kann. Beide Routinen befin- 
den sich im TEXT-Abschnitt der 
Firmware: TXT PLACE CURSOR 
(BB8Ahex) läßt den Cursor an der 
aktuellen Cursorposition erschei- 
nen, TXT REMOVE CURSOR 
(BB8Dhex) entfernt ihn wieder vom 
Bildschirm. Mit diesen beiden Routi- 
nen sieht das Beispiel zur Tastatur- 
abfrage mit Echo wie in Listing 2 aus. 

Dieses Beispiel ist länger als das 
erste (mit KM BREAK EVENT), weil 
das Programm durch das Setzen 
des Cursors nicht automatisch ange- 
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22 cremove=%BEB8ü 
68 CALL cremove: PRINT af; 


emove ELSE CALL cplace 


Listing 3. Der Cursor kann auch blinken 







































halten wird. Man muß sich bei die 
ser Methode wieder der bewährter 
WHILE-WEND-Technik bedienen. 

Übrigens zeigt dieses Beispiel ei: 
ne Art der Anwendung des CALL 
Befehls, die zu übersichtlicheren 
Programmen führt: Die Aufrufadres- 
se von Maschinenprogrammen wird 
an Variable zugewiesen, so daß Ma- 
schinenprogramme praktisch mit 
Namen aufgerufen werden. Wen! 
diese Namen dann noch halbwegi 
das ausdrücken, was die Maschi 
nenroutine macht, dann kann man 
die CALL-Befehle als echte Erweite 
rung des Schneider-Basic auffas- 
sen. Die beiden Routinen zum Eid 
und Ausschalten des Cursors sind 
besonders nützlich, denn jeder Prag 
grammierer sollte den späteren Be 
nutzer des Programms immer gaı 
klar darauf aufmerksam machen, 
wenn eine Eingabe erwartet wird. 
Beim INPUT-Befehl ist das ja kein 
Problem, da erscheint der Cursor 
von alleine Bei Eingaben durch 
INKEY$ kann man mit den beiden 
eben beschriebenen Routinen ar 
beiten, um es ganz deutlich zu ma- 
chen: Hallo Benutzer, ich erwarte ei- 
ne Eingabe. . . hier ist der Cursor! 

Wenn man den Cursor lieber blin- 
kend mag (wie von anderen Heim- 
computern bekannt), dann ist das 
auch beim Schneider kein Problem. 
Man muß nur das kleine Listing 3 
eingeben. 

Ähnlich wie beim KEY MANA 
GER gibt es auch für die drei Be- 
triebssystemteile, die sich mit dem 
Bildschirm befassen, spezielle Ini- 







"Cursor ein [FES4] 











"Cursor aus [7C48] 
RY 25,1 GOSUB 78 [435E] 
as="!" [3ADB] 
:a#f=1INKEY#:WEND [258]. 
[EFB4] 
{1):REM Timer abschalten [7C4A] 
13) THEN 38 C797C] 
agA:IF flag“ THEN CALL cr 
[L1B4C] 
CAA22] 





tialisierungsroutinen: TXT INITIALI- 
SE (BB4Ehex) löscht alle Windows, 

‚schaltet einen eventuellen Transpa- 
rent-Ausgabemodus ab, führt PA- 
PER O0 und PEN 1 aus und setzt den 
Cursor schließlich in die linke obere 
Bildschirmecke. 

GRA INITIALISE (BBBAhex) führt 
die analogen Operationen für die 
hochauflösende Grafik aus. SCR 
INITIALISE (BBFFhex) schließlich 
initialisiert die gesamte hardware- 
nahe Bildschirmansteuerung. Im 
einzelnen werden alle Farben auf 
den Einschaltzustand zurückgesetzt 
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and ein eventuelles Blinken abge- 
S schaltet. Weiter wird MODE 1 ge- 
wählt, dabei der Bildschirm ge- 
lös scht und die Startadresse des Bild- 
schirms auf den Standardbereich 
000 bis FFFFhex gesetzt. 
Wenn man sich nun etwas mit sei- 
ner Farbwahl vertan hat und auf 
dem Bildschirm kaum noch etwas 
srkennen kann, dann reicht oft ein 
äufruf von SCR RESET (BC02hex), 
um den Schaden wieder zu behe- 
ben. SCR RESET setzt alle Farben 
wieder auf den Einschaltzustand. 
2eicht das noch nicht aus, dann soll- 
= man noch ein »CALL &BB4E« 
sachschieben (TXT INITIALISE), 
um auch PEN und PAPER wieder 
sernünftig zu setzen. Bei der ÄAusga- 
De von Grafik auf dem Bildschirm 
kann es zu gewissen Flimmereffek- 
sen kommen. Dies läßt sich elegant 
umgehen durch Aufruf von MC 
WAIT FLYBACK (BD]19hex). Der Auf- 
zuf dieser Routine entspricht dem 
BSasic-Befehl FRAME im Basıc 11 
des 5664/6128. Die Routine wartet ein- 
ach auf den Rücklauf des Elektro- 
nenstrahls, der das Bild aufden Bild- 
schirm zeichnet. Während der 
Rücklaufphase des Bildschirms wir- 
ken sich Manipulationen am Bild- 
schirminhalt nicht auf den optischen 
Eindruck aus. Die Routine muß also 
vor jeder kritischen Bildschirmaus- 
gabe (besonders bei schneller Gra- 
ük) aufgerufen werden, um Flim- 
merfreiheit zu garantieren. Äller- 
Gings leidet natürlich die Ausfüh- 
zungsgeschwindigkeit des Pro- 
gramms darunter, denn der einzige 
Zweck der Routine MC WAIT FLY- 
BACK ist das Warten — darauf, daß 
der Elektronenstrahl der Bildröhre 
ein Bild fertig gezeichnet hat. 
Zur Grafik gibt es noch einen in- 
teressanten POKE-Befehl, der den 
beim CPC 464 nicht vorhandenen 
Basic 1l-Befehl MASK simuliert: 
Probieren Sie mal »POKE &B338, 
PEEK(&B338) AND &AA: MOVE 
100,100! DRAW 500,300« (Achtung, 
funktioniert nur beim CPC 464!). Die 
Speicherstelle B338hex enthält näm- 
Ich eine Farbmaske für den grafi- 
schen Zeichenstift. Diese Farbmas- 
ke kann man nochmals maskieren 
“mit AND und einem Bit-Muster), so 
daß unterbrochene Linien gezeich- 
net werden. | 
Der SCREEN PACK (SCR) enthält 
noch eine weitere Routine, die ab 
und zu nützlich sein kann: SCR HW 
ROLL (BC4Dhex) rollt den Bild- 
schirm um eine Textzeile aufwärts 
oder abwärts. Dieses Rollen wird 
hardwaremäßig realisiert, indem 
einfach nur der Bildschirm-Offset- 
Wert in einem en des Video- 
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Chips verändert wird. Daher ist die 
Methode sehr schnell. Allerdings 
kann immer nur der gesamte Bild- 
schirm so gescrollt werden, kleine- 
re Windows lassen sich nicht einzeln 
bewegen. 

Ob aufwärts oder abwärts ge- 
scrollt wird, entscheidet der Inhalt 
des B-Registers der Z80-CPU bei 
Aufruf der Routine. Ist B gleich Null, 
wird nach unten gescrollt, in allen 
anderen Fällen nach oben. Beim 
Aufruf eines Maschinenprogramms 
mit dem CALL-Befehl kann das B- 
Register, wie die meisten anderen 
CPU-Recister, leider nicht direkt 
beeinflußt werden. Es enthält bei 
Eintritt in die aufgerufene Routine 
immer die Höchstzahl 32 der möglı- 


chen Parameter des CALL-Beiehls 


minus die Anzahl der tatsächlich 
übergebenen Register. Die Adresse 
der Maschinenroutine zählt dabei 
nicht als Parameter. Dadurch enthält 
B immer den Wert 32, falls kein wei- 
terer Parameter angegeben wurde. 
Für die Routine zum Scrollen des 
Bildschirms bedeutet dies, daß nor- 
malerweise immer ein Scrollen 
nach oben realisiert wird. Um nach 
unten zu scrollen, müssen 32 Para- 
meter zum CALL-Befehl angegeben 
werden. Die Werte dieser Parame- 
ter spielen keine Rolle, es kommt nur 
auf die Anzahl von 32 an, damit das 
B-Register auf Null kommt. Ein Auf- 
ruf der Ärt »CALL &BC4D 1, 2,3, 4, 
5.6:7,8.9 10 11 12, 18, 14, 39.165,37, 
18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 
29, 30, 31, 32« zum Beispiel läßt den 
Bildschirm eine Textzeile nach un- 
ten scrollen. Nicht sehr praktikabel, 
aber immerhin ein Notnagel, wenn 
man ohne Maschinensprache aus- 
kommen will, Als reine Basic-Alter- 
native bietet es sich natürlich noch 
an, einfach den Cursor mit LOCATE 
in die oberste oder unterste Zeile zu 
setzen, und dann mit Steuerzeichen 
für »Cursor up« oder »Cursor down« 
ebenfalls ein Scrollen des Bild- 
schirms oder sogar einzelner Win- 
dows zu erreichen. 

Sound Manager 

Der Sound Manager ist derjenige 
Teil der Firmware, der sich mit der 
Ansteuerung des Sound-Chips be- 
faßt. Hier gibt es drei mehr oder 
minder interessante, durch CALL- 
Befehle nutzbare Routinen: SOUND 
RESET (BCAThex) löscht alle Sound- 
Warteschlangen und bringt den 
Sound-Chip zum Schweigen. 
SOUND HOLD (BCBö6hex) dagegen 
unterbricht einen gerade gespiel- 
ten Ton-Effekt, ohne ihn zu beenden. 
Mit SOUND CONTINUE (BCB9hex) 
wird die unterbrochene Tonfolge 
korrekt zu Ende gespielt, 
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Cassette Manager 

Der Cassette Manager kümmert 
sich, wie der Name schon sagt, um 
alles, was mit Aufzeichnung und Le- 
sen von Daten auf Kassette zusam- 
menhängt. Für den Basic-Program- 
mierer interessant ist zunächst wie- 
der die Initialisierung: CAS INITIA- 
LISE (BC65hex) markiert alle Da- 
teien als geschlossen und setzt die 
Aufzeichnungsgeschwindigkeit auf 
SPEED WRITE 0. 

Wenig bekannt ist, daß zwei Datei- 
en gleichzeitig geöffnet sein kön- 
nen, eine zum Lesen und eine zum 
Schreiben. Der Cassette Manager 
verwaltet Schreiben und Lesen 
von/zu Kassette/Diskette vollkom- 
men getrennt. Bei Verwendung von 
Kassetten zur Datenspeicherung 
muß man nur darauf achten, daß 
man je nach Aufforderung des Be- 
triebssystems (»Press Play then any 
key« oder »Press Record&Play then 
any key«) immer zwischen Schreib- 
und Lesekassette wechselt, Auf die- 
se Art und Weise lassen sich zum 
Beispiel Dateien führen, die um- 
fangreicher sind als der verfügbare 
Speicherplatz. 

Brauchbare Routinen des Casset- 
te Manager sind CAS START MO- 
TOR (BC6Ehex) und CASSTOP MO- 
TOR (BC7lhex), mit denen der Mo- 
tor des Kassetten-Recorders ein- 
und ausgeschaltet werden kann. 
Die Routinen sind sinnvoll, wenn 
man dem Benutzer von einem Pro- 
gramm aus die Möglichkeit geben 
will, mitder PLAY-Taste das Band ge- 
nau auf eine bestimmte Zählwerk- 
stelle zu positionieren. Ein anderer 
denkbarer Anwendungszweck ist 
das automatische Vorspulen zu ei- 
nem bestimmten Programm auf der 
Kassette. Dazu muß die Vorspulzeit 
bei schnellem Vorlauf bekannt seın, 
dann kann man das Band diese Zeit 
vorspulen. Natürlich ist das recht 
umständlich im Vergleich zum Kom- 
fort einer Diskettenstation. 

Das waren die Firmware-Routinen 
der Schneider-Computer, soweit sie 
sich durch CALL-Befehle von Basic 
aus nutzen lassen und nicht bereits 
direkt durch Basic-Befehle realisiert 
sind. Vielleicht haben Sıe hieraus eı- 
nige Anregungen zur efiektiveren 
Programmierung ziehen können. Ei- 
nes aber sollten Sie auf jeden Fall 
bedenken: Übertreiben Sie den Ge- 
brauch von CALL, PEEK und POKE 
nicht, denn er führt sehr schnell zu 
völlig unleserlichen Programmen. 
Wenn Sie jemals ein Listing etwa für 
den Commodore 64 gesehen ha- 
ben, dann wissen Sie, was gemeint 
ist... 


(Volker Everts) 
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n jedem Computer sind wichtige 

Maschinencode-Routinen, die 

immer wieder benötigt werden, 
im ROM fest eingebaut — Program- 
me, die beispielsweise eine Linie 
auf dem Bildschirm zeichnen, ein 
Zeichen an den Drucker ausgeben 
und so weiter. Wenn man die Adres- 
sen dieser Routinen kennt, kann 
man sich bei eigenen Programmen 
einen Haufen Arbeit sparen. 

Bei den drei Schneider-Compu- 

tern können die Betriebs-Routinen 
indirekt aufgerufen werden: Im 
RAM-Bereich zwischen B900 und 
BD39hex befinden sich Sprungbe- 
fehle zu verschiedenen Routinen. 
Möchte man solch eine Befehlstolge 
aufrufen, dann wird in der Regel nur 
der entsprechende Sprungbefehl in 
dıeser Tabelle aufgerufen. Erst die- 
ser Befehl leitet die Bearbeitung der 
eigentlichen Routine ein. Dieser 
Umweg hat mindestens zwei Vor- 
teile: 
— Das eigentliche Unterprogramm 
kann im Speicher an einer beliebi- 
gen Stelle stehen. Dadurch ist es 
möglich, daß sich der Einsprung auf 
eine bestimmte Adresse bezieht, 
die eigentliche Routine aber ganz 
woanders steht. 

Programme, die nur diese indi- 

rekten Sprungvektoren verwenden, 
sind damit vom Computertyp unab- 
hängig. 
— Durch die Lage der Sprungbeifeh- 
le im RAM kann die Tabelle leicht 
abgeändert werden. Durch denEin- 
bau einer »Umleitung« kann eine fest 
eingebaute Systemfunktion ergänzt 
oder sogar ganz durch eine andere 
ersetzt werden. 

In den Schneider-Computern aibt 
es ungefähr 200 auf diese Weise 
standardisierte Unterprogramm- 
funktionen. Die große Zahl macht es 
unmöglich, alle Routinen einzeln 
aufzuzählen. In der folgenden Ta- 
belle sind deshalb nur die wichtig- 
sten aufgeführt. Es fehlt beispiels- 
weise die Maschinencode-Sequenz 


Ein Computer kann viel mehr als 
sein Basic vermuten läßt. Im 
Betriebssystem findet man oft sehr 
| interessante Anweisungen. Hier 
a Sie die wichtigsten ROM-Routinen. 


| 001Bhex: 


BCDi4hex: 


B900hex: 
B903hex: 
B906hex: 
B909hex: 





Die RST-Befehle erlauben beim Z80 frei programmierbare Objektcodes. In den CPC- 
Computern werden diese als erweiterte CALL/JP-Befehle eingesetzt. Einem normalen 
CALL-Befehl folgen zwei Bytes, die die Adresse eines Unterprogramms im Speicher an- ! 
geben. Einem RST-Befehl folgen hierbei zwei Bytes, die eine Adresse enthalten. Damit ! 
kann eine beliebige Adresse im gesamten Speicher des Computers ausgewählt werden 
— sowohl im eingebauten RAM oder ROM als auch in beliebigen Erweiterungs-ROMs. ! 
RST 08hex: | 


RST lOhex: 


RST l8hex: 


RST 20hex: 
RST 28hex: 












































zum Löschen des Bildschirms (diese 

kann ja leicht durch Senden des 
Steuerzeichens mit dem Code 
OChex) ersetzt werden. Auch ande 
re Funktionen (hauptsächlich den 
Bildschirm betreffend) lassen sich 
so leicht aufrufen. 

Die Routinen stammen vom CPC 
464. Sie laufen aber ohne Änderung 
teilweise auch auf dem 664 ode 
6128. Hier hilft einfach ausprobie® 
ren. Starten Sie eine Entdeckungs- 
reise in das Betriebssystem Ihres 
Computers. 


(Helmut Tischer 


Diese Anweisung wirkt ähnlich einem JP-Befehl. Die beiden nachfol- 
genden Bytes enthalten nur in den niederwertigen 14 Bits eine Ädres- 
se. Deshalb kann auch nur eine Routine im Adreßbereich von 0000hex 
bis 3FFFhex aufgerufen werden. Dafür ist aber der Zustand der ROMs 
während der Ausführung des ausgewählten Programms frei wählbar: 
Hat Bit 15 den Wert 0, so kann während der Ausführung das obere 
ROM gelesen werden. Hat Bit 14 den Wert 0, so wird das untere ROM 
eingeschaltet. Nach Beenden der Routine wird der vorherige 
ROM/RAM-Zustand wiederhergestellt. 

Dieser RST-Befehl ist einem CALL-Befehl vergleichbar. Die unteren 14 
Bits der nachfolgenden zwei Bytes geben wieder eine Ädresse an, die | 
jedoch diesmal zu einem Sprung ins obere ROM führt. Die Bits 14 und 
15 werden vor dem Aufruf des Unterprogramms zur laufenden ROM- 
Nummer addiert. Steht der »RST lühex«-Befehl in einem ROM mit der 
Nummer x und haben die Bits 14 und 15 den Wert lObin(=2), so wird 
ein Unterprogramm im Erweiterungs-ROM Nummer x+2 aufgerufen. 
Das ist der effektivste CALL-Befehl bei den Schneider-Computern. Da- 
mit kann jede beliebige Adresse in jedem beliebigen ROM/RAM auf- 
gerufen werden. Dazu sind auch hier nur zwei nachfolgende Bytes 
nötig. Diese zwei Bytes sind ein Zeiger auf eine Tabelle im zentralen 
RAM. Diese Tabelle enthält drei Bytes mit der vollständigen Adresse: 
Die ersten beiden Bytes geben die 16-Bit-Adresse des Unterprogramms 
an und das dritte Byte die Nummer des während des Aufrufs selektier- 
ten Erweiterungs-ROMs. Ausnahmen bilden die ROM-Nummern FC 
bis FFhex: Bei diesen bleibt das schon vorher gewählte ROM unverän- 
dert. Die Bits 0 und | regeln analog zum »RST 08hex«, welches 
ROM/RAM ein- oder ausgeschaltet ist. 

Diesem RST-Befehl folgt kein dazugehöriges Byte. Er wirkt wie ein »LD 
A,(HL)«-Befehl, liest jedoch immer aus dem RAM. 

Dieser Befehl wirkt ähnlich einem »JP«-Befehl. Vor dem Ansprung des 
Unterprogramms wird aber das untere ROM eingeschaltet. Der Zu- 
stand des oberen bleibt unverändert. Wegen der zwei nachfolgenden 
Bytes, die als 16-Bit-Adresse interpretiert werden, kann ein Programm 
im gesamten Speicherbereich angesprungen werden. 


Diese Routine wirkt ähnlich wie der »RST l8&hex«-Befehl. Die ROM- 
Nummer befindet sich jedoch im Register C und die Adresse des Pro- 
gramms im Register HL. 

Diese Routine sucht einen RSX-Befehl im gesamten Speicher. Beim 
Aufruf muß HL auf den Namen des Befehls zeigen, wobei Bit 7 im letz- 
ten Namensbyte gesetzt ist. Als Ergebnis erhält man im C-Register die 
Nummer des ROMs, in dem sich der Befehl befindet und im HL- 
Register die Adresse des Befehls. 
Schaltet das obere ROM ein. 
Schaltet das obere ROM aus. 
Schaltet das untere ROM ein. 
Schaltet das untere ROM aus. 


Weitere Routinen 
zum Bankswitching 














Adresse 


BBO0 hex 





BB09 hex 


BBOC hex 


BBOF hex 


BBI5 hex 
BB27 hex 


BB2D hex 
BB33 hex 
BB39 hex 


BB3F hex 


Adresse 


BB5A hex 
BB60 hex 


BB37 hex 


BBAE hex 
BBBl hex 


Adresse 


BBC0 hex 
BBC3 hex 
BBC9 hex 
BBEA hex 
BBED hex 
BBFÜ hex 
BBF3 hex 
BBF6 hex 
BBF9 hex 
BBCF hex 


BBD2 hex 
BBDB hex 


BEDE hex 
BBEI hex 


Be ie San rt Die 


2 DE Aa a Co ri ut‘ ie 2 u! a WIEN Ei 


a:Code 
B:Stringnummer 


C:Länge 

HL:Adresse String 

DE: Adresse 

HL-Länge 

A:Tastennummer 

B:neuer Code 

wie BB27 hex 

wie BB27 hex 

A:Tastennummern 

B:FF=Repeat/ 

00=nicht 

H:Anfangsverzögerung 

L:Wiederholverzögerung 
(CY=carry flag) 


Grundlagen 


Bedeutung 


Original-Tastenbelegung 
wiederherstellen 
Ist eine Taste gedrückt? 


Nächstes Lesen von der Tastatur 
gibt diese Zeichen 
Funktionsstring setzen 


Speicher für Funktionsstrings 
Belegung einer Taste ändern 
Belegung Taste mit Shift ändern 


Belegung Taste mit Ctrl ändern 
Repeat-Status ändern 


Repeatgeschwindigkeit einstellen 


Wichtige Routinen zur Tastaturverwaltung 





Ergebnis 


CY:l, wenn ok. 
A:Code 

GY=1 

= >Korrigieren 
rollt Bildschirm bei 
B:FF nach oben und bei 
B:00 nach unten 
H:neue Spalte 
L:neue Zeile 

wie BBAB hex 
HL:Adresse 


Bedeutung 


_ (Steuer)zeichen ausgeben 
Zeichen an Cursorposition lesen 


Testen ob zu testende Stelle im 
Fenster ist: wenn nein, 
neue Position angeben 


Definiert Matrix vorhanden? 
Bestimmt die Adresse der 
Steuerzeichen Sprungtabelle. 
Für jedes Steuerzeichen von 
00 bis IF hex drei Byte: 

l.= Anzahl der Parameter, 
2.=Routineadresse 


Wichtige Routinen zur Zeichenausgabe 


Wichtige Grafik-Routinen 


Bedeutung 


MOVE-Befehl 

MOVER-Befehl 

ORIGIN-Befehl 

PLOT-Befehl 

PLOTR-Befehl 

TEST-Befehl 

TESTR-Befehl 

DRAW-Befehl 

DRAWPR-Befehl 

Breite des Grafikwindows setzen 


Höhe des Grafikwindows setzen 


Grafikwindow löschen 
Grafik-Farbstift setzen 


B. 
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Grundlagen 


Adresse 


BD19 hex 

BD2B hex 
BD2E hex 
BD34 hex 
BC68 hex 
BC6B hex 


BC6E hex 
BCTI hex 


A:Code 
A:Registernummer 
C:Daten 
HL:Geschwindigkeit 
A:Kompensation 
A:00 Meldungen da 

FF keine Meldungen 


Bedeutung 


auf Bildschirm- 

Strahlrücklauf warten 

Zeichen drucken 

Drucker frei? 

Sound-Chip mit Daten versorgen 


Aufzeichnungsgeschwindigkeit 
Baud-Rate =333333/HL 
Meldungen „Press Play« und so 
weiter Ein-/Ausschalten 


Kassetten-Motor starten 
Kassetten-Motor stoppen 


CHl=>ok. OPENING-Funktion 
Z:1= >Break 


0= >already open 


B:Länge Dateiname 
HL:Adresse Namen 


. BC77 hex 


BCTA hex 
BCTD hex 


BC80 hex 


BC89 hex 
:BC8C hex 
BCöEF hex 
BC92 hex 


BC35 hex 
BCIB hex 


BC05 hex 
BC08 hex 
BC20 hex 
BC23 hex 
BC26 hex 
BC29 hex 
BC3E hex 


BC4D hex 


BC50 hex 


DE: 2 KByte Puffer 


wie BC77 hex 
wie BC7TA hex 
wie BCTD hex 


A:Byte 


CY:0=> not open 


= 


A:Byte 
CY:.l=ok. 


Z:l= >Break 


CY=1:;nicht erreicht 
Z:l—>break 


wie BC80 hex 
CY:0= >Fehler 


ü=>EOF 


CLOSEIN-Funktion 

sofortiges Schließen der Eingabe 
(für Fehlerfall und so weiter) 
Zeichen von der Datei lesen 


EOF-Funktion 


OPENOUT-Befehl 
CLOSEOUT-Beifehl 

wie BC7D hex, ohne Zurück- 
zuschreiben des Puffers 
Zeichen an Kassette ausgeben 
CAT-Befehl 


Wichtige Routinen zur Ein-/Ausgabe 


Eingabe 


HL:Versatz 


A:Höherwertiges 
Byte 
HL: Adresse 


HL:Adresse 

HL:Adresse 

HL:Adresse 

H:Zeit 1. Farbe 

L:Zeit 2. Farbe 

B:00= >unten 
FF=>oben 

A:Farbe zum Löschen 

Hilinks (Byte) 

D:rechts 

L:oben (Rasterzeile) 

E:unten 

A:Farbe 

B:Wie BC4D hex 


Bedeutung 


Lage der linken oberen Ecke 
relativ zum Bildschirm 
Bildschirmanfangsadresse 
setzen 

Bildschirmadresse berechnen, 
die auf der Anzeige rechts neben 
der angegebenen liegt 

wie BC20 hex, jedoch links 
wie BC20 hex, jedoch unten 
wie BC20 hex, jedoch oben 
Blinkzeiten einstellen 


Bildschirm hardwaremäßig rollen 


Window softwaremäßig rollen 


Wichtige Routinen zur Bildschirmsteuerung 


(Wenn nichts anderes erwähnt, enthält DE die x-Koordinate und HL die y-Koordinate) 













Welcher Wert 
steht wo? 





In einem Programm alle benutzten 
Variablen zu kennen, ihre Position zu 
finden und bei Anderungen keine 
zu vergessen, das ist auch für ge- 
übte Programmierer ein risikoreiches Unter- 


fangen. Hilfe bietet dieses Cross-Reference- 





| ross-Reference-Routinen, die in 
Basic geschrieben sind, haben 
zwei erheblich störende Nach- 
zeile: Zum einen sınd sıe sehr lang- 
=am und zum zweiten muß das zu un- 
=rsuchende Programm in Form ei- 
zer ASCII-Datei vorliegen. Norma- 
 erweise werden Basic-Befehlswor- 
= als »IToken« verkürzt gespeichert. 
= einer ASCII-Datei würden die 
zer Werte 47, 4F, 54 und 4F (alle he- 
zadezimall dem GOTO _ entspre- 
Shen. Mitdem Schneider-Computer 
=t es zwar einfach aus einem Basic- 
rogramm eine ASCII-Datei zu ma- 
chen (einfach mit dem Zusatz »Ä« 
speichern). Der dazugehörige Spei- 
Ther- und Ladevorgang ist aber um- 
=@ndlich. Aus diesem Grunde ist 
#Oref« vollständig in Maschinenco- 
@e geschrieben. Auch 20 KByte lan- 
"Se Programme werden somit in Se- 
"=undenschnelle bearbeitet und 
Zusgewertet. 

Der Basic-Interpreter Ihres 
Schneiders stellt beim Bearbeiten 
eines Programms eine Tabelle der 
Senutzten Variablen auf, um beispä- 
-=z£ren Wertzuweisungen (oder Bild- 
Schirmausgaben) ohne langes Su- 
chen die richtige Variable mit ihrem 
zktuellen Wert zu finden. 

Grundidee von »Cref« ist es, diese 
Tabelle durch Aufruf geeigneter In- 
zerpreter-Routinen aufbauen zu las- 
sen ohne das Programm zu starten. 
Dadurch werden vorzeitige Wertzu- 
»eisungen verhindert. Für jeden 
einzelnen Namen aus der Tabelle 
ward das Programm nach entspre- 
chenden Referenzen durchsucht. 
"Somit spart man sich den Aufbau ei- 
Der speziellen sortierten Referenzli- 





Programm, das die Namen heraussucht und 
auf die dazugehörigen Zeilen verweist. 


ste, Der Speicherbedarf reduziert 
sich dadurch erheblich, so daß auch 
große Programme ohne Probleme 
bearbeitet werden können. 

»Cref« liegt im Speicherplatz A000 
hex und ist damit auch auf den Be- 
trieb des Diskettenlaufwerks von 
Schneider abgestimmt. Besitzer ei- 
nes anderen Laufwerks, eines CPC 
664 oder eines CPC 6128, müssen 
unbedingt die von »Cref« benutzten 
System-Routinen und -Vektoren an- 
passen. 


Token statt Befehle 


Zum besseren Verständnis der 
Routine sind einige Kenntnisse über 
die Ablage von Basic-Zeilen beim 
Schneider nötig. Betrachten wir 
hierzu Listing 1. In Bild 1 finden Sie 
das gleiche Programm so wieesder 
Computer nach dem Befehl LOAD 
gespeichert hat. Es fällt sofort auf, 
daß die Zeilen nicht im ASCII-Code 
vorliegen, sondern »mundgerecht« 
für den Interpreter aufbereitet sind. 
Anstelle der Basic-Befehle tauchen 
die sogenannten Tokens auf. Dabei 
handelt es sich um nichts anderes 
als eine (allerdings sehr trickreich) 
verkürzte Schreibweise für den Be- 
fehl. Da ein Token maximal zwei 
Byte langist, wird er vom Interpreter 
schneller erkannt und bearbeitet. 
Weiter sieht man sofort, daß Integer- 
Zahlen in eine zwei Byte lange hexa- 
dezimale Zahl umgewandelt wer- 
den und daß die Zeilennummer im 
3. und 4. Byte der Zeile (hexadezi- 
mal) vorliegt. Die ersten zwei Byteei- 


_ Grundlagen 


ner Zeile geben die Länge der vom 
Interpreter umgewandelten Zeile 
an. Diese ist meist nicht identisch mit 
der Länge der ursprünglichen Zei- 
le. Die Namen der Variablen ent- 
sprechen bis auf die letzte Stelle der 
normalen ASCII-Schreibweise. Zum 
Wert des letzten Zeichens wird im- 
mer 80 hex addiert, also das siebte 
Bit gesetzt. Die Schreibweise in 
Groß- und Kleinbuchstaben wird 
beibehalten, obwohl der Computer 
beim späteren Bearbeiten keinen 
Unterschied macht (svariable« ist für 
Ihn beispielsweise das gleiche wie 
»VARIABLE« oder »wvÄriaBlE«). 

Von der Syntax her ist es jetzt 
leicht verständlich, wie der Inter- 
preter eine Zeile bearbeitet. Nach 
der Zeilennummer steht ja entwe- 
der ein Befehl (also ein Token) oder 
aber eine Variable — von Blanks 
und Fehlern einmal abgesehen. Um 
den Varıablennamen zu bekommen, 
werden alle Zeichen gelesen, bis 
hin zu dem Wert bei dem Bit 7 in ei- 
nem Byte gesetzt ist, Ganz so einfach 
ist es dann aber doch nicht. Vor je- 
dem Variablennamen stehen näm- 
lıch noch drei weitere Bytes. Unter- 
suchen wir das erste. Bei»alpha« aus 
dem Beispiel hat es den Wert 
0Dhex, bei »index%« den Wert 
02hex, bei »mes$« den Wert 03hex 
und Sie vermuten richtig, daß hier- 
durch der Typ der Variablen festge- 
legt ist. Also bedeutet: 

— 0Dhex eine Variable ohne Typen- 
kennung 

— 0O4hex eine Real-Variable 

— O3hex eine String-Variable 

— 02hex eine Integer-Variable 

Die beiden Bytes vor dem Varla- 
blennamen haben so lange den 
Wert Null, bis das Programm gestar- 
tet wird. Nach »RUN« ändert sich 
hier nämlich etwas, wıe man in Bild 
2 sieht. Die Anderung hängtmitdem 
Aufbau der Variablentabelle durch 
den Interpreter zusammen. Für un- 
ser Beispiel ist diese in Bild 3 wie- 
dergegeben. Die Variablen werden 
also in einer Tabelle mit ihren ak- 
tuellen Werten — falls es hier Zahlen 
sind — abgelegt. Für Integerzahlen 
sind dabei 2 Byte, bei Realzahlen 5 
Byte reserviert. String-Variable be- 
legen in der Tabelle 3 Byte: das er- 
ste gibt dıe Länge des Strings an, die 
beiden nächsten die Adresse, wo 
die Zeichenkette zu finden ist. 
‚mes$« beispielsweise hat die Län- 
ge 4 und die Zeichenkette steht bei 
OlICA hex. Zu beachten ist ferner, 
daß ın der Variablentabelle auch 
die Typenkennung — jeweils um 
eins vermindert — mit abgelegt ist. 

In RAM des CPC steht bei 
AE85hex der Zeiger auf diese Varia- 
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Bild 1. So sieht das Beispiel aus Listing 1 aus der Sicht des Interpreters aus 


blentabelle (in unserem Fall ist dies 
0258hex). Die zwei Byte vor »alpha« 
in der ersten Zeile von Bild 2 als he- 
xadezimale Zahl interpretiert, erge- 
ben 09hex. Diesen Wert addıeren 
wir zum Tabellenanfang (0258hex) 
und erhalten die Zahl 0261hex. Zie- 
hen wir l ab, sohaben wirdie Adres- 
se, an der der aktuelle Wert der Va- 
riablen in der Variablentabelle steht 
(026lhex —|). Damit ist das Geheim- 
nis der zwei Byte vor einem Varia- 
blennamen gelöst: Hier steht die 
Zahl (Offset), die, zum Tabellenan- 
fang addiert, die Adresse für den 
aktuellen Wert einer Variablen er- 
gibt. Falls dieser Offset Null ist, 
»weiß« der Interpreter, daß die Va- 
riable noch nicht in der Tabelle an- 
gelegt ist. Damit ist auch die Wir- 
kung des »CLEAR«-Befehls beim 
CPC klar. Es wird nämlich einfach 
der Offset vor jeder Variablen inner- 
halb einer Interpreterzeile gelöscht. 
Diese Tatsache wollen wir für »Cref« 
ausnutzen. 

Untersuchen wir den Aufbau der 
Variablentabelle, so stellen wir fest, 
daß sie nicht sortiert abgelegt wird. 
Betrachten wir also wieder die zwei 
Byte vor dem Variablennamen in 
der Tabelle (Bild 3). Bei fast allen Va- 
riablen steht der Wert Null. OE hex 
(bei X) addiert zum Tabellenanfang 
0258hex ergibt 0266hex und bei 
0267hex steht Xl. Die Vermutung, 
daß OEhex als Offset zu verstehen 
ist, ist richtig. Mit den zwei Byte vor 
dem Variablennamen in der Tabelle 
baut der Interpreter für die Namen 
mit gleichem Anfangsbuchstaben 
eine verkettete Liste auf. In den 
Adressen ADDüOhex bis AE03hex 
legt er den Offset für den ersten Ein- 
trag eines Variablennamens ent- 


sprechend dem Anfangsbuchsta- 





ben ab. Taucht beim Bearbeiten ei- 
nes Programms nun eine andere Va- 
rıable mit dem gleichen Anfangs- 
buchstaben auf, so trägt er deren 
Namen am Ende der Variablenta- 
belle ein. Dann wırd anhand der 
Einträge ın den Adressen bei 
ADDöOhex bis AE03hex überprüft, 
ob es schon eine Variable mit die- 
sem Änfangsbuchstaben gibt. Falls 
nicht, wird der Offset des zuletzt ein- 
getragenen Namens entsprechend 
dem Anfangsbuchstaben in einer 
Adresse zwischen ADDOhex und 
AEO3hex abgelegt. Falls ja, trägt er 
den Offset des vorher eingetrage- 
nen Namens in den zwei Byte vor 
dem letzten Eintrag ein und legt den 
Offset der zuletzt eingetragenen Va- 
riablen zwischen ADDOhex und 
AEOShex neu ab. Inder Varlablenta- 
belle entsteht so eine Kette für Varia- 
ble mit gemeinsamen Anfangsbuch- 
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Bild 3. Die Variablentabelle 
zu dem Beispielprogramm 
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alpha=2. 755: X1=alpha 
gamma'=alpha/2 

=EXF (X1) 

mest="o.k." 
index#=index%+1 

array (index%)=gamma 
IF index%=18 THEN 108 
alpha=gamma'!#2 

GOTO 18 


188 PRINT"Alles Unsinn" 


Listing 1. 
Wo steht welche Variable? 
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Bild 2. Nach der Anweisung »RUN« verändern sich die Zeiger auf die Variablen 











staben. Deren erstes Element findet 
man über den Offset aus der dem 


Anfangsbuchstaben entsprechen- 


den Adresse zwischen ADDöOhex 
und AE0O3hex. Das letzte Element 
dieser Kette ist durch den Offset 
Null gekennzeichnet. 

Daß die Variablen »alpha« und »ar- 
ray« nicht verkettet sind (bei beiden 
sst der Öffsetin der Variablentabelle 
nach Bild 3 Null), legt daran, daß »al- 
oha« eine skalare Variable ist, »ar- 
zay« dagegen eine indizierte. Für 
skalare und indizierte Variablen 
werden nämlich zwei verschiedene 
Tabellen erstellt. Den Aufbau der 
Array-Tabelle (für indizierte Varia- 
Dlen) brauchen wir aber nicht näher 
üntersuchen, da bei »Cref« skalare 
ünd indizierte Variable gleich be- 
Sandelt werden. 


Wo stehen die 
Sprungadressen? 


= einer vernünftigen Cross-Refe- 


nz-Liste gehört auch die Ausgabe 
son Sprungadressen. Wie werden 
diese nun vom Interpreter des 
Schneiders abgelegt? Schauen wır 
ans dazu erst Bild 1 an. Bei »GOTO 
0% (Zeile 90) und »THEN 100« (Zeile 
9) werden die Zeilennummern he- 
zadezimal abgelegt. Zuvor wird 
"noch die Kennung lEhex eingetra- 
Sen. Nach »RUN« ändert sich diese 
Kennung zu 1Dhex (Bild 2) und die 
Zeilennummer ist verschwunden. 
=r Interpreter wandeltnämlich die 
Zeilennummern in Adressen der 
Zeile um (ein Grund für die OGe- 
schwindigkeit des CPC-Basics). Er- 
*ennt der Interpreter die Kennung 
lEhex, so sucht er die Änfangs- 
@dresse der entsprechenden Zeile, 
ersetzt die Nummer durch die ge- 
Zundene Adresse und ändert die 
| ennung in lDhex. Beim nächsten 
al hat er dann die Sprungadresse 
eh zur Verfügung. 
Wir haben nun genug »Interpre- 
"er-Rüstzeug« und können mit der 
Programmbeschreibung von »Cref« 
Deginnen. Der erste Programmteil 
=b A000hex) dient dem Einbinden 
son »Cref« als RSX-Befehlserweite- 
zung. Nach Laden des Binärfiles (ab 
#000hex) — vorher das zu untersu- 
chende Basic-Programm mit »ME- 
MORY &9FFF« schützen — und 
»CTALL &A000« kann die Routine mit 
MOREF« aufgerufen werden. 
Da wir mit »Cref« auf Routinen des 
Be Rreters zugreifen, muß zuerst 
gas entsprechende ROM freigege- 
Den werden. Der Ausgabekanal 
B. rd auf den Drucker gegeben be- 
wor in Ber Routine GVAR die Ausga- 


be der Referenzen für die Variablen 
vorbereitet wırd. Hierzu muß zu- 
nächst die Variablentabelle ge- 
löscht werden. Von PSTART 
(AE81hex) wird die Adresse des Pro- 
grammanfangs in das Register HL 
geladen. Die Routine NXTLNE liest 
die Zeilenlänge in das Register BC 
und speichert in ZNR die Zeilen- 
nummer. Ist dıe Länge einer Zeile 
Null, so ıst das Programmende er- 
reicht. Ansonsten wird die Interpre- 
ter-Routine NXTELM aufgerufen, 
dıe ın das Register A ein Token zu- 
rückgibt und HL entsprechend er- 
höht. Je nach Inhalt von A wird dann 
in der Zeile weiter nach einem To- 
ken gesucht, die nächste Zeile ge- 
holt oder überprüft ob eine Variable 
vorliegt. Letzteres erledigen die 
Routinen VARTST und TSTTYP Han- 
delt es sıch um eine Variable, so 
wird mit TABEXT durch Aufruf ent- 
sprechender Routinen deren Name 
in die Tabelle eingetragen. 

Auf einen wichtigen Punkt sei in 
diesem Zusammenhang noch hinge- 
wiesen. Wie schon erwähnt, verwal- 
tet der Interpreter des CPC für ska- 
lare und indizierte Variablen zwei 
verschiedene Tabellen. Um nicht 
beide hintereinander bearbeiten zu 
müssen und den Programmierauf- 
wand in Grenzen zu halten, werden 
durch den Aufruf von TABEXT die 
Variablennamen nur in die Tabelle 
für skalare Variablen eingetragen. 
Wir haben also keinen Unterschied 
zwischen skalaren und indizierten 
Variablen (vergleiche hierzu Bild 4, 
das die Variablentabelle für unser 
Beispiel nach Aufruf von »Cref« wie- 
dergibt). Im Gegensatz zu Bild 3sind 
hier die Variablen »array« und »al- 
pha« verkettet. Dies wirkt sich aber 
nur bei Programmen aus, in denen 
beispielsweise »a$«, »a%« und »al« 
gleichzeitig verwendet werden. 

Eine weitere Einschränkung ist 
bei der Bearbeitung von benutzerei- 
genen Funktionen zu machen. Die 
mit DEF FN definierten Funktionen 
werden mit dem Token E4hex ge- 
kennzeichnet, ansonsten aber wie 
Variablen behandelt. Da »Cref« das 


&' 
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Token E4hex nicht berücksichtigt, 
erscheinen die Funktionen in der 
Referenzliste als Variablennamen. 

Nachdem in GVAR das Pro- 
grammende erkannt wurde, folgt 
der Aufruf der Routine REFVAR. 
Diese besteht aus einer Schleife, in 
der für jeden Buchstaben des Al- 
phabets (der entsprechende ASCII- 
Wert steht in Register C) folgende 
Routinen aufgerufen werden: 

— BUFINI: setzt den Zeiger BUFPTR 
auf den Anfang des Buffers, 

— FINDVA: überprüft, ob für den je- 
weiligen Buchstaben in der Varia- 
blentabelle ein Eintrag vorliegt, 

— MRKEND: markiert das Ende des 
Buffers, 

— VAROUT: gibt die entsprechende 
Referenzliste aus. 

Um in der Variablentabelle einen 
Eintragzu überprüfen, wird die Rou- 
tine TABADR benutzt. Diese gibt in 
Register HL eine Adresse zurück, an 


00 00 AL AC 50 48 Ci 04 „„ALPHA. 
00 00 00 00 00 00 00 58 uunnunıh 
91 04 00 00 00 00 00 00 
00 47 41 MD AD Ci 04 00 „GAMMA.. 
00 00 00 00 0E 00 DE O4 zunusek. 
00 00 00 00 00 00 00 MD zunnenM 
45 03 02 00 00 00 00 00 ES 

' 49 4E 44 45 08 01 00 00 INDEX... 
01 © 41 3252 41 09 04 „ARRAY. 
00 00 00 00 00.00 00.67 uuunenrg 
02 00 00 01 OB 00.00.00 uuuneen 
00 00 00 BF CZ FS 30 81 „...Buö, 
SF C2 F5 3 Bi BF C2 FS „Bud. .Bu 
H 81 BF 2 F5 % 81 Bf 0..Bu0.. 
c2 F5 30 81 8F C2 F5 30 Bu0..BuO 
BIBFC2F5 0 81 BF C2 „.Bud..B 
FD BL BF C2 F5 % 81 wÖ..Bul. 
FC2F5 0 Bi X 1A „Bud.,.O 
75 00 19 00 AO 00 BF 22 u... +?" 
4 6F 61 64 69 bE 67 20 Loading 


Bild 4. Die »Cref«-Routine verändert 
auch die Variablentabelle 


Cross-Reference CPC 454 Vers. 2.B 


ALPHA! 
ARRAY! 
GAMMA! 
INDEX% 


18 28 
=” 
28 [=] 
30 68 
42 
>08 
18 30 





Bild 5. Die Cross-Referenz-Tabelle des Beispielprogramms 
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deren Stelle ein zur Berechnung der 
Variablenadresse notwendiger Off- 
set steht. Ist der Offset Null, so liegt 
kein Eintrag unter diesem Buchsta- 
ben vor. Sonst ergibt der Offset zum 
Inhalt von VARSTA addiert, gerade 
die Adresse der Variablen, die zu- 
letzt unter dem entsprechenden An- 
fangsbuchstaben in der Tabelle ein- 
getragen wurde. Vor dieser Ädres- 
se steht der Offset des vorherigen 
Eintrags. Die so erhaltene Adresse 
des Variablennamens wird dann 
sortiert in den Buffer eingetragen. 
Da hierbei indirekt sortiert wird, al- 
so nur die zwei Byte großen Zeiger 
auf die Variablen gespeichert wer- 
den, reicht selbst bei einem 30 KBy- 
te großen Basic-Programm der 
Speicher des CPC voll aus. 

Beim Ausdruck der Referenzen 
wird zuerst über die jetzt sortiert vor- 
lıegende Zeigertabelle der Varia- 
blenname ausgegeben. Für diesen 


Namen bereitet dann die Routine 
REFOUT alles vor, um das Pro- 
gramm Zeile für Zeile nach eben 
dieser Variablen zu durchsuchen. 
Hierbei wird die Routine INLINE 
aufgerufen, die überprüft, ob in ei- 
ner Zeile der gesuchte Name ausge- 
führt ist und gegebenenfalls die Zei- 
lennummer ausgibt. 

Nach Ausdruck der Referenzen 
wird durch die Routine GLNR die 
Referenzliste für die Zeilennum- 
mern erstellt. Hierbei hilft wieder 
die Interpreter-Routine NXTELM, 
nach deren Aufruf jetzt die Token 
lEhex und lDhex bearbeitet wer- 
den. Liegt eine Zeilennummer vor 
(|Ehex), so wird sie direkt durch 
ZNRSTO eingetragen. Bei einer Zei- 
lenadresse wird zuerst die entspre- 
chende Zeilennummer gesucht. 
Nachdem in ZNRSTO die Zeilen- 
nummer mit der entsprechenden 
Referenzzeile in den Buffer einge- 


tragen wurde, wird diese Nummer 
mit derjenigen der vorherigen Ein- 
tragung verglichen. Ist die Zeilen- 
nummer des letzten Eintrags klei- 
ner, so werden die Eintragungen 
vertauscht. Dies wird dann so lange 
durchgeführt, bis die Liste richtig 
sortiert ist. 

Vor Aufruf der »Cref«-Routine muß 
zuerst die Zeilenbreite des 
Druckers durch WIDTH gesetzt 
werden. Der Interpreter nimmt im- 
mer den Wert 132, der bei den mei- 
sten Druckern zu hoch ist. Nach Aus- 
gabe des Variablennamens werden 
ab Position 24 die Referenzzeilen 
ausgedruckt. Die Länge der Varia- 
blennamen sollte nicht größer als 20 
sein, dasonst das Bild unschön wird. 
Mit der Escape-Taste kann der Aus- 
druck jederzeit unterbrochen wer 
den. 


(Horst Udo Hanenberg 











iBa ° BASIC-Lader fuer IiREF — Cross-Refe nn 2 .DD. Pi ac" 2 ca’ Bun a FE ER: CAFCAI 
’ ’ ’ ’ 
an oe Be kn a el Sin 448 DATA DD,23,DD,23,DD,E5,86,08,7E,E6,7 
ae . RE F,F5,FE,20,30,02.C6,20,CD,56,09F9 E28B41 
a: | =, OEM en 458 DATA C3,F1,804,BE,23,38,ED,7E,ES,21,0 
a S1B Berohein 122 gie B,A3,85,6F ,7E,CD,56,C3,E1,2B,BAAC [48D4) 
un re 460 DATA 22,14,A3,798,32,16,A3,CD,62,A1,D 
ER a ae D,E1,18,BE,2A,81,AE,CD,65,A2,@96D LESACI 
m Ä scan 478 DATA C8,@B,2B,0B,2B,29,E5,EB,CD,76, A 
ı5@ ' BEER | ung AAELrISVER sEhn1d AS SA ERS. BOSD _ TEFBES 
LE TERANFAUNBBBE RT B,78,B9,CB,18,F3,2B,@B,1B,1A,8756 “ CAD72] 
ee N 32,17,A3.78,B1.C8.18,E9.1B.BEDE — LFAYAI 
an ee un sa@ DATA’ 1B,1B,1A,CD,£C,A@,28,CA.CD,C3,A 
een rip 2,CD,DD,A2,2A,12,A3,CD,79,EE,DAA4 [88621 
218 READ MErERTEUhN (Nur) + POKE: 3-NERT 518 DATA C9,CD,8C,A2,2A,81,AE,CD,65,A2,2 
FU ann ‚ eier 8,27,CD,43,E9,FE,01,38,F4, 28, BA8C L72FCI 
RE rg ee 528 DATA F7,FE,1E,28,87,E5,CD,F4,Al,Ei,1 
Be Er reae ensanaeis une B,EC,FE,1D,28,E8,E5,56,2B,5E,@BAD  LDA381 
2 D_W3 | _t" RS: 538 DATA EB,23,23,23,23,CD,F4,A1,E1,18,D 
248 a 2 N EITERT FEHLER IN 9,CD,E8,A2,CD,27,A2,C3,A8,C3,@BC& L93ECI 
u er 1 a ıEN en. 548 DATA 7E,32,11.A3,2B.7E,32,18,A43,CD,9 
ee eg A,A2,E5,EB,21,10,A3,01,04,08.07A4 [2DE4] 
=: ER 55@ DATA ED,B®,EB,22,19,A3,E1.7E,23,B6,2 
ni a _  B,C8,E5,D1,2B,2B,2B,2B,CD,77,8A37 LOIEAI 
FR cas 568 DATA A2,D8,E5,86,84.CD,81.A2,E1, 18,E 
280 [OcC2] 70 DATA” 25° 23° GE! 23’ = Be E93, DE,EBi> 20,1 Br 
3 7 
278 B.c3, 17° Ao’as” Bas aa Bears namen __ 9,7E,BA,2@,15,23,D5,CD,C3,A2,0BAF [94641 
en | 580 DATA CD,DD,A2,7E.,23,E5,66.,6F ,CD,79,E 
2,21,AC,CD,27,A@,C3,B9,A1,CD,0756 “ LF8281 E,E1,D1,23,18,DE,E5,56,2B,5E,@B&A _ [70561 
| ‚AD, ‚ 570 DATA D5,CD,B4,A2,EB,CD,79, ‚ee 'D1,E1,2 
318 DATA 8C,C1,2A,81,AE,CD,65,A2, ‚28,12, N rg 3,18,DB.23.7E.AF'23'Ba.CH' 46" BBbs a 
Rs ee, 9, FE, ‚BE,38,F9,FE,01,38,2417 [47C2] &0@ DATA 23,7E,32,12,A3,23,7E 32°15, AZ,C 
‚28,F3,CD,5@,AB,18,EE, ‚21 00,0 9,23,13,1A,96,2B,1B,C0,1A,76,08676 —  LBB9EI 
a 610 DATA C9,7E,FS,1A,77,F1,12,23,13,18,F 
EA tr or 6,09,2A,89,AE,22,19,A3,CD,AC.B98D “ L5D98) 
za DATA EI Ca CD ae De CR BR De FEB. 62@ DATA A2,23,22,19,43,C9,2A4,19,A3,E5,2 
 8,82,06.F7.FE,04.28.06.D@.FE.@BAS '  LBFiAI 3,23,ED,5B,8D,B@,CD,Bö,FF,E1,0A57 _ L61BB] 
, 638 DATA D2,3E,F7,C9,CD,9A,A2,AF,77,23,7 
35@ DÄTA @2,30,03,C9,3E,05,32,C1,BQ,BF,C 7,C9,CD,A8,C3,3A,1B,A3,3C,32,0b00 CD8081 
7,01, 41,18, C5,CD,8C,A2,77,CD,@8CE [477C1 648 DATA 1B.AS,FE.38,30,26.09.3€, ‚28, ,cD,S | 
= Es, DD" E1,C5,CD,2®,A1,C1,0C,0BBB  LF&iC] 450 DATA 'D6.87 BB 78.C1!DA!Ba! ee 97. m | 
370 DATA 1@,E4,C3,B4.A2,CD,DB.DS.SE,23,5 2 ,E7.09.3A\23.AC/ FE. 14 DB CD.0B73 Enoe>3 
6,7A,B3,C8,2A,85,AE,19,23,EB, BADA LBEBEI a DATA 'Es’A2 10 Fs SE ac CD'S6 C3 68.2 
38@ DATA CD,BC,AB,EB,2B,2B,18,EC,D5,CD,? | 10,A3,23,22,1C,AS,21,1E.A3,0056  tasssı | 
A,A2,D1,E5,E5,73,23,72,23,22,0B34 C3DE4] u le cD’41'C3' 2A 10 AS'CD'79EE.SE,O. zz 
39@ DATA 19,AS,FD,E1,DD,E1,DD,2B,DD,2B,D | 1,32,1B,A3,E1,CD,B4,A2,18,AB, ’ L4FE2I 
am DaTa DD „DD me al CB DD,eeBa,oBen t2aaC2 | „em DATA’25,24,00.21,28,08.00,00,a0,20,0 
‚66, ' 0,28,20,00,00,200,00,00,43,72,B011F tseceı | 
5,CD,83,A1,D1,E1,F@,DD,73,80,0B1@ A984] 698 DATA 6F73'73'2D52'65 66.55. 72,65,6 i 
418 BATR en N SB” DD" a Ber ‚FD,74, ae re E,63,65,20,43.50,43,20, 34, 36,0691 car241 | 
42@ DATA 08.1A.46.13.23, BE 28.04,CB,B 708 DATA 34,20,56,65,72,73,2E,20,32,2E,3 cas 
| ’ DE En D) ’ r ’ D) 
| F,BE,FF,CB,78,28,04,CB,B8,0E,07A3 [D6AB] Jı@ DATA'20 00.0030 ne a 


Listing 2. Der Basic-Lader zu »Cref« 








10 &H #= ICREF - Cross-Asference CPC 444 
PR 2 TeSE STE SE 2 SI ES Er SE. 7 DZSESST LTE S2 STE SE SI SE SZ SE EZ STE SEEN SZ TE U SEE ZZ 


20 
30 
ac 
so 
u 
Ei 
Bu 
0 
1a 
110 


139 


1&0 


190 
170 
cd 


Fri] 
230 
za 
20 
Zu) 


File) 
309 
1.6 
320 
330 
340 
35) 


yes 
gen 
gu 
ger 
1#+ 


ie} 1993 


Befshlserweiterung ICREF fuer den CPC 444 


Dipi .-Hath. Horst Udo Hansnberg 
Am Mushlenteich 20. 010 Bergheim 12 - Glessen 
Tai. O0 22 38 ’ # 14.85 


“ 
or] 
“ 
. 
Lo 


PR EL en IE Eu I Sg OD 52 SE BIETE ITCSE BIETE IS BE ET STE SEE BZ SEES SE SIE ZZ SZ DZ SIE SE STE SE ST. SE SZ a7 En ZZ 2 2 2 2 


4% MEMIRY KOFFF 
ste CALL Bade 
= ICHEF 


Code schuetren Er 
Einbinden in BASIC +* 
Aufruf won BASIC +. 


Po TE 3 Ir ST Tr IT SET SI C2 ST Sr 22 Sr SE 3 SL 00 SISSL SS 27. ELS3 EI” Bu0 23 SE EEL SE NET SL U SJ EI au C7 CZ CT LI EZ LI SE SE] „el 20 a1 0 


ı Eysten-Rauftinen und Vektoren 


BILFENDi 
BUFSTAr 
CLEARI 
INTMIT: 
HLEHDE* 
LFEEOD# 
LIGEXTI 
HEMFIUL: 
NXTELHI 
FFOS: 
FRTCHRI 
PSTAATI 
SELROFM: 
STREAÄH: 
STRoWyTE 
TABADFA: 
HARD: 
WARSTA: 
WARTYFi 
MIDTHa 


Eau 
Eon 
E@ 
Ecil 
El) 
Eu 
Edi) 


“Bad 
WAEET 
WEB 
sEE?T 
BFFBS 
“cas 
“Bchı 
#F73E 
wEr43 
“a3 
35h 
WAEBL 
HErOr 


EoU 
EBU 
Eau 
Es 
Eos, 
En 
Eu 
Eci) 
Ei WBocz 
#453 
"Bocı 
“u 


Eco 


|. Ed nn nn nn a m 


ORG An 


ı Einbinden In BASIC 
LO 
Lb 
‚Jr 


BC.BEFTAB 
HL. KERHAL 
LOGEXT 
BEFTAB: DEFW 
Je 


TABLE 
PALH 
TABLE: DEFMH "CHE" 
DEFB "F"+R3 
DEFB 5 


KERHMAL: DEFS # 


> ı Hauptrouftine 


MAInNı 


20 
930 
Far 
730 
Fe 
770 
BO 
770 
Hua) 
1010 
1620 
1030 
Lo 
1950 
1040 
1970 
1980 
1090 
1100 
1110 
1120 


1130 ° 


1140 
1150 
‘1140 
1170 
1189 
1170 
1200 


ale 1210 


er 


SilalıA 


LD Crö 

CcALL SELROM 

Lo -Pr-} 

LO iSTREAMI A 

CALL EYAR 

„Ir SLR 

ı Wariablen - Referenzen 

Gar CALL CLEAR 
HL» IPSTARTI 
NATLME 
2. GWARZ 
NATELM 
köE 
HC + GAR 
“ch 
Cr aNARL 
I GAR 
WARTST 
GWARZ 
HL. EI 
IPASE) HL 
FFEED? 
REFWAR 


GWARL: 


GWARZ 


== ee me 


: Test auf Warlable 
YARTSTı PUSH HL 
SATSTir DEE OÄ HL 
cr HL) 
at HZ-WATSTI 
Lo WARADRI «HL 
CALL TSTITYP 
FOR. HL 
RET HZ 
PUSH HL 
L5 HL.» IVARADR 
ALL TABEXT 
FÜP HL 
RET 


ı Wariable in Tabelle eintragen 


TABEXTı CALL Ebd 
JF *D4BE 


; Wariablentyp prusfen I = OD#T7FH 


TSTTYPF1 CP 

JA 

ADD 
cp 

‚Ir 

RET 
cp 

‚IR 

RET 
LD A 

LO IMERTYFI HA 
cr ö 

RET 


Li] =] 

C« TSTTPL 
At 

ern 
2.-T5TTP2 
NE 

Lie e4 

HC. TSTTP3 


TSTTPlı 


: Referenzen fuer Wariable ausgeben 


REFYAR: LE Br. BiA4ı ! 


Beginn Siringbereich 
Ende Wariablen 
Wariablen iosschen 
Susgabe Integer 

{HL) = IDEI 7 
Zeilenworschub 
Einbinden RS\ 
"MEMORY FULL" 
naschstes TEN lesen 
ÖOruckerpositien 
Zeichen an Drucker 
Frograsmstar!t 
Freischalten Röm 
Ausgabe-Kanal 

Teıt ausgeben 

Ädr. Var. beraschnen 
Warisablenadresse 
Wariablenstart 
Typenkennung 
Isilenbreite Drucker 


Adresss neuer Befehl 
4 Bytes füer!'s System 
Rautfine einbinden 


ge 
B 


Befshlawort "CREF" 


SET 


Ende Bafehl 


fusr den Kern 


BASIC-RöM 
einblenden 
Orucker ale 
Susgabekanal 


Wariablen loeschen 
Frogrammstart nach HL 
naschste Zeile holen 
Hull -> Programmende 
nasechstes TOKEN lesen 
interessant sind nur 
TOKEN kleiner S0E 


un 


Mall = Zeilenende 


Warliable 7 


Seitenzahl 

auf Hull 

1. Zeile drucken 
Referenzen ausgeben 


bis zum 
TOKEN 
lesen 
YWariable 7 


nein =-> zurueck 


Wariable in 
Tabelle eintragen 


EFE-ROM 3 


kleiner öB ? 


"FT + SD = 
FKReal-Wariable 7 


keine Variable 
Intseger- oder 
String-Wariabla 7 


Typ merken 


ZERÜO-Flag setzen 


1A=2s,. di=AsciT "A" 


Listing 3. Das Assembler-Listing für die Cross-Reference 


r >! 


5, 
ji 


. f Ö 1077 rn 
i Ü BR 1 ren en Anl ET; Rn 
r \ E . ni 
? | 1 
nie 


y oT 


i + k, 


“7 


ir 


BC 
BUFINI 
dc 
FINDWA 
EB; 
ARKEND 


HL. tBUFSTAI 


Fi 

HL 

HL 

IX 

BC 
WERT 
BC 

= 
RFYARL 
ERLF 


1405 : Warliablen-Tabelle 
1410 

1420 FINDWAI CALL TABAbR 
14390 FHoWiı LO Es iHLI 
1420 ING HL 
1480 LD D+tHLi 
Las Lo AD 
1470 E 
14080 RE Z 

1470 
1954 
1510 
1926: 
1539 
1549 
19509 
1940 
13970 
1980 


® 


HL«DE 
HL 
DE. HL 
CALL STORE 
DE-HL 
HL 
Hi 
FHoHL 


durchsuchen 


HL.+ IWARSTAI 


ı.- 
Te 


Buchstabe nach A 


Ende Buffer markieren 
Warliablenande 

plus zwei 

gleich | 

Anfang Buffer 

nach IE 


Ausdruck der Warlablen 


naschster Buchstabe 
falls (Bi=0. fertig 


Adress#s berechnen 
Tabellen-Offast 
steht in 

DE 

falls Offset=hull: 
kein Eintrag 


Anfang War.bareich 
gpius Offset = (DE) 
elus 1 = Air. War. 
alles nach DE 

und abspeichern 


Var .adresse minus zuwe| 
argibt neuen Offset 
naschster Eintrag 


1570 ı Adresse einer Variablen sortiert eintragen 


1600 


1410 STOREı PUSH DE 


(BUFPTRI «HL 


1720 ı Sortier-Routine 
1735 

1749 SORTı 
1759 

1740 

1770 

ıire0 SORTLI 
1770 

1850 

1810 

1820 

1830 

1240 

1850 

1840 

1870 

1830 

1870 

1FOO 

1F10 

1720 

1930 

1740 

1750 

1940 

1i#70 

ir 

1970 

Son r 


tIX#L) 
z 
L+ £Ik) 


E- ti 


iIXl:E 
kIX+11r 
Ideal 
iiY+ll. 
IH 

Ir 

Ix 

IX 
SORTI 


JESEEERZFSSFEGEEASCHNIZ 


'® 


Hr tIK#i) 


Dr tive 


H 


nach Platz 7 


Adresse der 
Yarlablen 
aintragen 


; Zeiger merken 


j 
L 
Ä 
# 
[| 
F 
| 
L 
Li 
Li 
7 


IvY zeigt auf 
isatzten Eintrag 

IX zeigt auf 
verletzten Eintrag 
falls (IX 

und KIK#L 

Null -> fertig 
fuer den Wergleich 
Adressen nach HL 
und 

DE holen 


vergleichen 


alles richtig wortiert 
Adressen vertauschen 


die naschsien beiden 
Eintraege 
vergleichen 


2010 + Speicherbereiche (DEI und (HL) vergleichen 
2020 : bie In einem Byte Bit 7 gesetzt Ist 


2930 

2040) Cops 
2059 Core 
Fin] 

zoro 

zen 

29970 

2100 

2110 

2120 

z2135 CosPzı 
21%) 

2150 

210 

2170 COMF3i 
z185 

2190 

Fre) 

=210 

2220 

z230 

2240 ı Ausdruck der Waria 
2250 

224.0 WAROUTı LO 
2270 LO Hıiid-i 
228) L0 AH 
2290 MM % 

2300 RET ı 

2310 CALL ECRUF 
2320 Inc 
2330 IMG 
2340 Pi 
2330 

2340 YRoumia 
2370 

Z380 

2370 

2400 JR 
2410 Abo 
2420 WVROUTZI CALL 


LD 
LO 
LD 


Cl 
4. (DEI 
B+ IHLI 
DE 

HL 

Fıl 

2. COMP2 
Th 
Cı#FF 
7:B 


LO 


RET 
Kor 
Or 
JA 
RET 


Lr £IK 


1x 
LD 4 B.#a0c 
AND 
PUSH 
£P 


WIF 
Ar 
#20 


A: an 


blen 


} 


u dient als Flag 


Ende der neuen War.? 


Bit 7 zurueck 
tauschen 
Ende der alten Var.” 


Bit 7 zurueck 

nicht tauschen 

alles ungleich, 
Ruscksprung 

ist C noch 

Null 7 

ia -> naschste Zeichen 
nein => Ruscksprung 


Adresse der YWariablen 
mach HL 
Falls Ädresss = Null» 


ı => Ende der Tabelle 


Zeiger fuer. 
Tabelle erhoehen 
und sichern 
(Bi=Laenge Var .name 
Zeichen holen 

BIT 7 losschen 


| au CPl=-Ziffer 


wird 
ASC1Ii-Ziffer 
Zeichen drucken 








B, 
vr 


Ze 


& 


Grundlagen 


ala 
ALAC 
ALAF 
AlBZ 
ALBS 
ALBE 


A1BF 
ALBC 
AlBr 
AlCz 
Aıca 
A1c7 
AlcH 
ALCH 
AlCD 
ALCF 
Aıbı 
ALDz 
ALDS 
AiDs 
Ads 
arda 
Albt 
A1DO 
ALDE 
ALDF 
AlEO 
AlEL 
AiEZ 
ALE3 
Alta 
‚AIES 
ALES 
ALES 
ALEE 
ALFı 


Ara 
Ars 
AaiFre 
ALF® 
AIFA 
ALFoO 
Acc 


! 


ELELESFIERTEIZ 
a 


x 


asnsg 
Be 


BHUUURUNDT 


mo 
La: 
E 


TE 


=B 
TE 


11A3 


21003 


coFAAz 
ES 


POP AF 


Int 
Er 
Inc 
IR 
LE 
PUSH 
LE 


LO 
LD 
CALL 
Pur 
DEC 
LD 
ID 
LD 
CALL 
FOR 
IR 


13] Laenge alus i 
IHLI leiztes Zeichen 7 
HL 

NE. WROUTL nasechstes Zeichen 
HL Wariablentvp 

HL drucken 

HL. TYPE-1 

Al 

Liä 

Ar HL 

FRTCHR 

FL 

HL 

VURARAKTI HL aktuelle Warlabie 
A.B und 

(WARLENI «A Laerge merken 
REFOLT Referenzen ausgeben 
IX nraschste Wariable 
WARRROHT drucken 


: Programm nach Warliablennamen durchsu 


REFOLTI LO 
RFOLTIE CALL 


RET 
DET 


DEC 
DEZ 
DEC 
ADD 
PUSH 
Ex 
EALL 
POP 
‚JR 


i Zeile nach 


INLINE: LD 


IMLMi: 


Lo 
LH 
LD 
AND 
cp 
‚IR 
DEE 
DEC 
Lo 
Er 
BET 
JA 
DEC 
DEC 
DEC 
LO 
And 
cP 
IR 
LD 
DEC 
IR 
LD 
Lo 
or 
RET 

„JR 
DEC 
DEC 
Dec 
Lo 
CALL 
JR 
CALL 
cALL 
LD 
CALL 


RET 


HL» IFSTART) 

HETLME 

| Null => Prg.ende 
Laonge minus 4 


Ende Zeile 


MEFBABR"T 
Pa 


nach DE 
INE Zeile durchsuchen 


; 


RFOUTI 
Yarlablennamnen durchsuchen 


HL.« CWARMMET 
Ar IWARLENI 
(WET merken 

Ar DE} Zeichen aus Zelle 

“or Klein- in Grossbuchst . 
‘HL Zeichen gleich ? 

Zr IMLMZ 

BG 

DE 

A:B ı Zeile 

c fertig 7 

Z 
IHLMi 
HL 

BC 

DE 

A: (DEI 
kDr 
HL auch gleich 7 

HZ. IMLINE nein =——> neu anfangen 
A: IWSTI Wariable 

A fertig ? 

2» IMLM# 

INSTIeÄ 

A:B Zeile 

c i fertig ? 

zZ 

INLME 

DE | (DEI zeigt auf 

DE ı den Typ 

DE der Wariablen 

ist's eine 

Wariable 7? 


Adrssse akt. War. 
Laenge 


nasechstes Zeichen 


TSTTYP 


naschster Tabulator 
Tabulator 0.k.” 

Is ilennummer 
drucken 


ı Zeilen - Referenzen 


GLMRI 
GLNR1I 


ELNFI4 


5 
VERRIRERRRTORGEHISASIHTHSTEHEER 


. ZNRSTO 


REFZNR 


BUFIMI 

HL.+ (PSTARTI 
NYLTLNE 
Z.GLNR& 
HATELM 

“ol 

Cs GLNRi 

Zr GLNRZ 
#lE 

MHZ: GLMR3 
HL 

ZINFSTO 

HL 

SLNRZ 

“iD | Zeilenadresse 7 
NZ-GLNRS 


Programmstart mach HL 
nsachste Frg,.zeile 
Hull=Prograsmende 
naschstes TOKEN 

ng 

neue Zelle 

neues TOHEN 
Zeilennummer 7 


wu E mE DE N m um Ma 


eintragen 


' ML 


Ds iHLr Zeilennummer 
HL holen 

Er {HL} 

DE.HL 

HL 

HL 

HL. 

HL 

eintragen 

HL 
GLNREE 
FFEED Seitenvorschub 
Refsrenzen ausgeben 


LFEEO 


ı Zeilennummer mit Referenz-Zeile sortiert eintragen 


INRSTOs LE 


EB 
DEC 
LO 
Lo 
CALL 
PUSH 


Ar äHLı ı Zeillennummen 
SHINF+LI «Mi 

HL 1 eintragen 

Ar HL) 
IHENRi A 
MNITPTA 
HL 


‘u nach Platz ? 


Listing 3. Assembler-Listing für die Cross-Reference (Forts.) 


Ar 


01 

=2B 

=B 

zB 

=B 
ch77ä2 
Dad 

E3 
InT-Tu 
CoSiA2 
Ei 
iBEB 


erg 
B 


ni 


PPEFIE 





DE+ Hl 
HL+HZMR 
Ei re 


DE. HL 
tBUIFPTR} «HL 
HL 


ZINRSTI® As CHLI 


Pr 


HL 


a 


Bo 
STHLDE 
HL 
ZNRETI 


- .- a nn rn ni ni wi 


AKeaferenz und 
Zeilennummer 
in den Buffer 
eintragen 


Zeiger merken 


schon letzter 
Eintrag 7 


DE auf letzten 
Einirag und 

HL auf 
vorletzten 
Eintrag 

setzen 
vergleichen 
kann so bleiben 


Eintragungen 
vertauschen 


ı Referenzen fuer Ieilennummern ausdrucken 


REFZIMR: CALL MRREND 
or 4 
LD Dr 
Lo E:A 
LUD HL. t(BUFSTAI 
INC HL 
IMt HL 
Lo Ar tHLi 
INNE HL 
ID BA 
or iHLI 
RET 1 
ED AB 
CP E 
„IR NI-RFZNRZ 
LO As IHLI 
cr 0 
IR NZ«RFZINRZ 
Inc HL 
DE 
TAB 
TABOkK 
Ar iHL3 
HL 
HL 
Hs tHLI 
Le 
IMTOUT 
HL 
DE 
HL 


Hi 
HL 


DE 
ERLF 


DE 
HL 
INC Hi 
JR RFEINRZ 


ı Naschste Programmzeile 


NATLNES INC HL 
ID ArtHlı 

ıD A 
INC HL 
OR HL) 
RET 2 
LD B+iHl) 
INC HL 
LD Ar iHlı 
LD tzURI.A 
INC HL 
ID AriHL) 
ID tZMRHI),A 
RET 


“rn nn Em 


wo Ti 


Buffer-Ende markieren 
iDE)I = 0 


HL zeigt 

auf den ersten 
Eintrag 

falls 
Zeilennummer 
gleich 

Hull. 

-+ fertig 


noch 
dieselbe 
Zeilennummer 7 


nascheter Tabulator 
Tabulator o.k. 7 
naschate 

Referenz 

drucken 


neue 
Zeilennummer 
nach 

DE 

kur 

ausgeben 


Zeilenlaenge 
gisich 
Hull ? 


=> Programmende 


iBljeLleilenlaenge 


Zeilennummer 
im 


ZUM 


snsichern 


ı 2-Byta a6 (HL) sit IiDEI vergleichen 


NARCOMP:I ING HL 
INC DE 
Lo &. (DEI 
SUB HL 
DEE HL 
DEL- DE 
RET NZ 
LO Ar ADEI 
SU (Hi 
RET 


t IiBI Byta ab (HL) mit {DEI vertauschen 


STHLOE: LO Ar iHLI 
PUSH AF 
LE A+ DEI 
Lo (HLis A 
Für Ar 
Lo iDEI. Gi 
Int HL 
Inc DE 
DJINZ STHLDE 
RET 


t freien Speicherbereich holen 


BUFINTI: LO HL.» (BUFSTAI 
LD (BUFFTRI «HL 
ZALL MRKENE 
INC HL 
LE {BUFFTRI «HL 


Ende der Wariablan 
= Anfang Buffer 
nach Platz ? 


Fointer aarken 





ZALFA3 
ES 

=a 

RT! 
EDSBEDBO 
COBBFF 
Ei 
D23EF? 
2I 


SS 
SOLU 


SCHENT 
SoFn) 
510% 
5110 
512 
5130 
3140 
5130 
3140 
3170 
5180 
S170 
3209 
3219 
220 
=230 
3240 
323% 
S240 
5270 
=za0 
bu re 
S300 
=310 
5320 
S320 
5340 
#33 
30 
s470 
5330 
370 
54h 
Zac 
5420 
54230 
544 
be ie] 
54a 
3470 
Saclı 
340 


NATPFTR: Co 


ERLFI 


i Naschater Zeiger fuer Buffer 0.6.7 


HL: kBIIFPTRI 
PUSH HL 

INC Fi 

INC HL 

LE DE» (EUFENDI 
EALL HLEODE 

FÜF HL 

‚IP HC» HEMFUL 
RET 


t Ende Buffer markieren 


FREENDI CALL METFTR 


ıon 4 

LE (HLi+ A 
INC HL 

6b {HLI «A 
RET 


i Zeilaenvorschub 


CALL LFEED 
Ar (LINEI 
&i 
LINE) «A 
Sb 
HC. FFEEO 


ı naschster Tabulator 


TAB: LE > Palin 
CALL FATCHR 
LE As tPPOSI 
PUSH BC 
LE A 
LE : IMIDTHI 
SUB 
GP 
Lo 
FOR 
Jr 
At 
Ja 
RET 


t Druckerposltion auf 24 setzen. 


TABOK: LUD A, IFPOSI 
cP “ls 
RET NE 
CALL TAB 
JR TABOK 


t Seitenworschub 


FFEED: LO A. Mil 
EALL PRTCHR 


Foilnter halen 
plus 2 


Anfang Stringber. 
„ergleichen 


"MERDRT FULL" 


nach Platz ? 
zweimal 

Hull 
sintragen 


Zeilenzashler erhoehen 


mehr als 54 Zellen ? 
Seitenworschub 


Druckerposition 
grossser 

als 
Zailenbreite 
ninum 7? 


ja —> Zellenwvorschub 
TAB-Fosition 7? 


falle kleiner 


t Druckerposition 
: grossser 20 7 


ASCII Seltenvworschub 


A30G 
A31ld 
A312 
A3ia 
Als 
A317 
A31® 
A31B 
All 
Ale 
4245 


BEFTAB 
EUFPTR 
comr 
CORP 3 
FFEEDI 
SLaF 
GLMR3 
GWARI 
HLEODE 
Im. IME 
IMLM3 
IMNTHUT 
LINE 
HEHFUL 
MLTELM 
FAbGE 
FSTART 
REFINFR 
RFINRi 
SELRIFM 
STHLOE 
STROJT 
TÄABEXELT 
TSETTPF1 
TIETTYPF 
YarBkT 
YaARSTA 


Es 
ZALCch3 
23 
Z21cH3 
Z11EA3 
CDs CH 
2Aa1cAh3 
COFFEE 
3Eh1 
321B43 
Ei 
ECDBARZ 
18A8 


Pe une 


AIFZLFT3 


duch 


ACH 
Asir 
ALcıE 
Ali? 
SzED 
ALB? 
Abe 
AuzZD 
FFBS 
ALTE 
ALFS 
EE?7? 
A31B 
F/3E 
EF743 
AF1C 
AEBL 
AzZr 
A232 
Bor 
ABl 
234 
Al&a 
[u [a Ir gr 
Ab 
A314 
ESS 
A134 
Aal? 





s=00 FFEEDI: PUSH HL 
3310 
So 
nt. 2] 
334Al 
330 
334,0 
370 
= tel 22) 
je be a) 
San) 
Sa10 
5420 
= ha] 
Ss440 ; Datenberelch 
be hi] 


| 
3470 
Lad 
Sau90 
Sroc 
s7ıo 
Ssrz20 
3730 
3740 
3730 


S7E0 


BUFEND 
BUFSTA 
comp 
ERLF 
FINDWA 
GLMAL 
GLNR4 
GR 
HLINE 
IMLHNi 
INLN“ 
EERNAL 
LOGELT 
MRKEND 


BSeH 
AEEF 
Ads 
AzBd 
Aa 
ALBF 
AiEB 
A32 
A3lE 


HKTLNE 


PPOSs 
REFOUT 
RFOUTL 
RFzhRZ 
SORT 
STORE 
TAB 
TABLE 
TETTF2 
TYrFE 
WARLEN 
“ARTST 
ROUTE 
WIETH 
ZNASTO 


Bode 
AörTc 
A3oL 
Asld 
Aa 
ALSE 
Az 
Ara 


TYPEI 
HZNR: 
ZUR. 
MARIAKT 
WARLEM: 
YSTı 
BUFFTR: 
LINE: 
FAGE 
HLINE! 


LO 


Int 


LE 
LE 


HL: (FAGE) 
HL 

(PAGE «HL 
HL» HLIME 


EALL STROUT 


Lo 


HL: PAGE] 


EALL INTOUT 


Lo 
Lb 


FOr 


Art 
{LINEI.A 
FL 


CALL ECRLF 


JA 


DEFB 
DEFS 
DEFS 

JEr® 
DEFS 
DEFS 
DEFS 
DEFS 
DEFS 
DEFM 


CRALF 


[2 


berklibbenb 


DEFB #0 


BUFTIMI 
CLEAR 
COMP2 
FFEED 
FNEW1 
GLNRZ 
GWER 
GWARZ 
HZNF 
INLNZ 
INLHS 
LFEED 
FlATN 
NRLCHIF 
MITFTR 
PRTCHR 
REFWAR 
RFWARL 
RFEMR3 
SOoRTi 
STREAM 
TABACR 
TABOK 
TSTTF3 
YARADF 
WMAROLT 
WARTYP 
YATSTI 
IMR 


Azei- 
Li8Bt 
Alil 
AzEE 
Are 
Eich 
Au 
ae 
A310 
AlSE 
Alan 
Las 
ALT 
MET 


Grundlagen 


#25. za ll 


- E:j.: En nn mw 


"Cröss-Referenze CFC 444 Were. 2.0 


Seltenzashler erhoshen 


Kopfzelle drucken 
Seltenzahl drucken 


Zeilenzaehler 
auf eins 


u A "00%. “im 
Zeilenreferenz 
Zeilennummer 

Adresse Wariablenname 
Laenge Varlablenname 
Hilfsspeicher 

Pointer Tuer Buffer 
Druckerzeile 
Druckarseite 

Page " 
lsberschritt 


Assembler-Listing für die Cross-Reference (Schluß) 








ee 


u He en 


EWG“ 793 mw 
2..:% ne betr ?— je SW nn! 
Bla — a 


D 


aa wo Ta Aare 2 rn 


| 
nn mm 
u di 


z — ET EERT 
er 


ei) 
I 
l 
> 4 
I 
I 





Maschinensprache-Monitor 


»Supermon 
CPC-1002« 

— Der Maschi- 
nensprache- 
Monitor 


| Jeder, der das ROM 
seines Schneiders oder 
Maschinencode-Routinen 
untersuchen will, findet 
hier ein professionelles Werkzeug 
zum Abtippen. Kleine Routinen in 
Z80-Assembler können natürlich 
auch programmiert werden. 





»Supermon CPC-1002« ist ein Monitor, der neben allgemein 
üblichen Funktionen (Speicherbereiche auflisten, Inhalte än- 
dern und Maschinenprogramme starten) über einige lei- 
stungsstarke Anweisungen zum Laden, Speichern und Kopie- 
ren bestimmter Programm- und Datendateien verfügt. Viel 
Wert wurde auf möglichst einfache und schnelle Handhabung 
gelegt. Zahlreiche Befehle dienen deshalb ausschließlich der 
Fehlersuche in selbsterstellten Programmen. Breakpoints 
können gesetzt und gelöscht werden, die Inhalte der Z80-Re- 
gister werden auf Tastendruck sichtbar und können gegebe- 
nenfalls vom Anwender verändert werden. Natürlich ist auch 
ein schneller Disassembler integriert, des weiteren lassen sich 
Speicherbereiche beliebig verschieben oder mit Daten bele- 
gen. 

Eine Reihe von Befehlen sind an spezielle Eigenschaften der 
Schneider-Computer angepaßt. So kann mittels eines einzi- 
gen Kommandos zwischen verschiedenen Speicherbänken 
umgeschaltet werden. Auf diese Art und Weise kann man sehr 


einfach einen Blick ins Betriebssystem- oder Basic-ROM wer- 


fen. Auch die Analyse beliebiger Erweiterungsmodule ist mög- 
lich. Andere Befehle schalten zwischen 40- und 80-Zei- 
chen-Darstellung um oder wählen die Aufzeichnungsge- 
schwindigkeit bei Kassettenbetrieb. In Erweiterungs-ROMs 
enthaltene externe Kommandos lassen sich ebenfalls aufru- 
fen, was besonders bei Verwendung eines Disketten-Lauf- 
werks von Vorteil ist. Alle DOS-Kommandos können nämlich di- 
rekt vom Monitor aus aufgerufen werden. 

Der Supermon CPC-1002 ist sowohl bei reinem Kassetten- 
betrieb (CPC 464) als auch bei Verwendung eines Disketten- 
laufwerks voll funktionsfähig. Allerdings ist der Bildaufbau spe- 
ziell an den 464 angepaßt. Alle Routinen zum Laden, Spei- 
chern oder Kopieren von Dateien sowie die »CAT«-Funktion ar- 
beiten wahlweise mit Kassetten- oder Diskettenlaufwerk zu- 
sammen. 

Weitere Leistungsmerkmale des Supermon CPC-1002 sind: 
— Aufruf von Maschinenprogrammen mit vorherigem Laden 
der Z80-Register 








— Laden von Programmen in beliebige Speicherbereiche 
— Anzeige aller relevanten Header-Informationen beim Laden 
— Erweiterbar durch beliebig belegbaren »User Jump« 
— Hexadezimale Addition und Subtraktion möglich 

— Berechnung relativer Sprungdistanzen 

— 7/8-Bit-ASCII-Modus wählbar 

— Alle Monitor-Funktionen wahlweise auch über Drucker aus- 
zugeben. 


Bevor Sie ans Ausprobieren dieses Monitors gehen, sollten 
Sie die folgende Einführung in das Arbeiten mit dem Super- 
mon gelesen haben. Bitte denken Sie immer daran, daß Sie mit 
diesem Monitor ohne Einschränkung Ihr gesamtes Schneider- 
System auf einer sehr Hardware-nahen Ebene in der Hand ha- 
ben. Fehlbedienungen oder Irrtümer bei der Dateneingabe’ 
können daher leicht zum »Absturz« des Systems und damit 
zum vollständigen Datenverlust führen. 

Listing 2 ist der Basic-Lader für »Supermon CPC-1002«. Das 
Binärfeld wird ab Speicherzelle 8000 hex erzeugt und auto- 
matisch unter dem Namen »5SMON.BIN« gespeichert. Listing 
1 ist das Startprogramm und muß auf der Kassette direkt vor 
»SMON.BIN« stehen. Nach dem Programmstart (ohne Listing 
1 mit »CALL&8000«) meldet sich der Monitor mit 

** SUPERMON CPC-1002 ** 
Copyright © 1985 by Happy Computer 

Links unter den beiden Titelzeilen erscheint das Zeichen 
»>«, gefolgt von einem Cursor als sogenanntes »Prompt«- 
Symbol, also als Zeichen, daß der Supermon bereit ist, Befeh- 
le anzunehmen. Diese Befehle bestehen durchweg aus einem 
Zeichen, das bei den meisten Kommandos eine leicht zu mer- 
kende Abkürzung für die volle Befehlsbezeichnung ist (zum 
Beispiel »L« für »Load«). Bei einigen Befehlen genügt schon 
die Eingabe dieses Zeichens, um eine Aktion auszulösen (die 
Enter-Taste ist also nicht notwendig). Die meisten Monitor- 
Kommandos benötigen aber zumindest eine Adresse oder 
weitere Parameter. Dann wird nach dem Befehlssymbol ein 
Leerzeichen ausgegeben, und der Cursor erscheint wieder, 
um anzuzeigen, daß jetzt zusätzliche Eingaben erwartet wer- 
den. Alle Zahlenangaben müssen grundsätzlich hexadezimal 
(ohne vorangestelltes »&«) eingegeben werden — in der Regel 
vierstellig, da es sich zumeist um Adressen handelt. In einigen 
Fällen (beim Laden und Speichern von Programmen) muß 
auch ein Programmname angegeben werden, der vom Moni- 
tor mit »FILENAME ?« erfragt wird. Derartige Namenseinga- 
ben müssen immer mit der Enter-Taste abgeschlossen wer- 
den, da der Computer ja nicht voraussehen kann, wie lang der 
Name werden wird. Im übrigen stehen bei Namenseingaben 
alle vom Basic her bekannten Editiermöglichkeiten zur Verfü- 
gung. 

Anders verhält es sich bei den (hexadezimalen) Adressen- 
und Dateneingaben. Bei diesen braucht die Enter-Taste nicht 
extra betätigt werden, sondern der gewählte Befehl wird nach 
Eingabe der letzten Ziffer sofort ausgeführt. Es werden dabei 
nur hexadezimale Zahlen angenommen und alle anderen Ein- 
gaben ignoriert. 

Falls Sie sich bei der Dateneingabe einmal vertippt haben 
sollten, können Sie den gewählten Befehl entweder durch 
Drücken von Esc oder Enter abbrechen. Der Monitor meldet 
in einem solchen Fall »NOT OK«, zum Zeichen, daß die Funk- 
tion nicht ordnungsgemäß durchgeführt wurde. Die gleiche 
Meldung erscheint, wenn ein Befehl zwar ordnungsgemäß er- 
kannt und ausgeführt worden ist, sich aber während der Aus- 
führung eine Fehlerbedingung ergab (beispielsweise, wenn 
Sie während des Ladens einer Programmdatei die Esc-Taste ° 
gedrückt haben oder wenn ein Lesefehler auftrat). 

Wurde eine Funktion ordnungsgemäß zu Ende geführt, 
dann meldet sich der Monitor mit »OK« zurück. In beiden Fällen 
— also auch nach der »NOT OK«-Meldung — ist der Monitor 
sofort wieder bereit zur Ausführung weiterer Befehle. 


1/86 Sonderheft Schneider 
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Befehlsübersicht Supermon CPC-1002 


A ASCII-Dump ! Bye (Monitor verlassen) 

B _Breakpoint setzen RAM/ROM-Bank wählen 

GC Copy (Datei kopieren) | Externes Kdo. aufrufen 

D Disassembler @ CATalog-Funktion 

F Find (Bytefolgen suchen) # Drucker ein 

G Go (Routine ausführen) & 40/80 Zeichen umschalten 
H Header anzeigen ( User Jump definieren 

J Jump (Programm aufrufen) |) User Jump anzeigen 

K _ Kill (Breakpoint löschen) 0 SPEED O0 wählen (Kassette) 
L Load (Programm laden) 1 SPEED 1 wählen (Kassette) 
M Memory Dump 7/8-Bit-Modus umschalten 

O _On/Off (Kass.Motoreiniaus) + Hexadezimal addieren 

R Register anzeigen ° - Hexadezimal subtrahieren 

S _ Save (Programm speichern) | Sprungdistanz berechnen 

T Text eingeben X  Speicherbereich verschieben 
U User Jump ausführen Y  Yank (Progr. verschob. laden) 
W Write (Bytes schreiben) zZ  Fil(Speicherber. belegen) 
Esc Funktion abbrechen IBASIC Basic-Kaltstart 

Enter Monitor-\Warmstart CtriC Monitor-Kaltstart 


Externe DOS-Kommandos (nur bei angeschlossenem Floppy-Laufwerk) 


IA Aktuelles Laufwerk ist Laufwerk A 

IB Aktuelles Laufwerk ist Laufwerk B 

IDRIVE Aktuelles Laufwerk wählen 

IDIR Directory auflisten 

IERA Datei löschen 

IREN Datei umbenennen 

IDISC LOAD/SAVE von/auf Diskette 

IDISC.IN LOAD von Diskette 

IDISC.OUT SAVE auf Diskette 

ITAPE LOAD/SAVE von/auf Kassette 

[TAPE.IN LOAD von Kassette 

MAPE.OUT SAVE auf Kassette 

ICPM CP/M aufrufen (danach kann mit S-MON nicht mehr 
gearbeitet werden) 

USER (Von S-MON aus nicht verwendbar) 


Die Supermon-Kommandos 


- Befehlsgruppe 1: Allgemeine Monitor-Kommandos 

Die Befehlsgruppe 1 umfaßt Kommandos zum Auflisten, 
Verändern und Verschieben von Speicherbereichen sowie 
zum Aufruf von Maschinencode-Programmen. Ferner ist die 
Umschaltung zwischen verschiedenen ROM/RAM-Bänken 
- vorgesehen. 


ASCII-Dump (Speicherbereich als ASCII-Zeichen listen): 

A < Anfangsadresse > — Nach Eingabe einer Adresse wird 
der Speicher-Inhalt von der gewünschten Stelle an als ASCII- 
Zeichenfolge aufgelistet. Die Inhalte der Speicherstellen wer- 
den dabei als ASCIl-Zeichen interpretiert und am Bildschirm 
dargestellt. In einem Maschinenprogramm enthaltene Text- 
passagen lassen sich damit mühelos und schnell auffinden 
und identifizieren. 


Memory-Dump (Speicherbereich hexadezimal listen): 

M < Anfangsadresse > — Nach Eingabe einer Adresse wird 
der Speicher-Inhalt von der gewünschten Stelle an in hexade- 
zimaler Schreibweise (Hex-Dump) aufgelistet. Um Text- und 
Tabellen-Bereiche leichter identifizieren zu können, erschei- 
nen am rechten Rand jeder Zeile die dargestellten Speicher- 
zellen-Inhalte nochmals als ASCII-Zeichenfolge. 


Disassembler (Speicherbereich als Z30-Mnemonics listen): 

D < Anfangsadresse > — Nach Eingabe einer Adresse wird 
der Speicherinhalt von der gewünschten Stelle an als Maschi- 
nencode-Programm interpretiert und in Form von Z80- 
Mnemonics (Assemblerbefehlen) aufgelistet. Um einen mög- 
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lichst umfassenden Überblick zu gewährleisten, werden zu- 
sätzlich die entsprechenden Bytes in hexadezimaler Form und 
als ASCII-Zeichen ausgegeben. 

Da Z80-Befehle einschließlich Operand bis zu 4 Byte lang 
sein können, kann es beim D-Befehl passieren, daß die von Ih- 
nen eingegebene Anfangsadresse nicht mit dem ersten Byte 
eines Z80-Befehls übereinstimmt. In diesem Falle werden er- 
fahrungsgemäß die ersten zwei bis drei Befehle falsch disas- 
sembliert; danach hat sich der Disassembler eingependelt und 
übersetzt wieder korrekt. Wenn Sie also nicht genau sagen 
können, ob die von Ihnen angegebene Adresse genau der An- 
fang eines Z80-Befehls war, dann sollten Sie die ersten paar 
ausgegebenen Zeilen mit Vorsicht genießen. Oft empfiehlt es 
sich in solchen Fällen, mit der Disassemblierung mehrere By- 
tes vor der eigentlich interessierenden Stelle zu beginnen, um 
ein verläßliches Ergebnis zu erhalten. 

Besondere Aufmerksamkeit sollten Sie Datenfeldern, Tabel- 
len und Texten innerhalb von Maschinenprogrammen widmen, 
da der Disassembler in derartigen Programmteilen natürlich 
keine brauchbaren Ergebnisse liefern kann. Der vom Disas- 
sembler erzeugte Z80-Assembler-Code ist weitgehend kom- 
patibel zu den meisten Z80-Assemblern. Zwei Unterschiede 
sind jedoch anzumerken: Alle Zahlenausgaben des Disassem- 
blers sind hexadezimal, jedoch nicht weiter gekennzeichnet. 
Die meisten Assembler verlangen ein nachgestelltes »H« als 
Kennzeichnung für hexadezimale Zahlenwerte, vereinzelt 
auch ein vorangestelltes »$«, »&« oder »#«. Aus Gründen der 
verbesserten Übersicht werden bei relativen Sprüngen nicht 
die Sprungdistanzen, sondern direkt das Sprungziel ausgege- 
ben. 


Write Bytes (Speicherinhalte ändern): 

W <Anfangsadresse> — Mit diesem Kommando können 
Speicherinhalte geändert werden. Nach Eingabe einer Adres- 
se können beliebig viele Bytes in hexadezimaler Form einge- 
geben werden, die von der angegebenen Speicherstelle an 
abgelegt werden. Jedes Byte wird als ein Paar von Hexadezi- 
malziffern eingegeben. Nach einem eingegebenen Byte wird 
automatisch ein Leerzeichen am Bildschirm ausgegeben, um 
die Übersichtlichkeit zu wahren. 

Nach Eingabe der zweiten Ziffer eines Bytes wird dieses so- 
fortan der entsprechenden Adresse im Speicher abgelegt und 
überschreibt dabei den vorherigen Speicherinhalt. Bei Ab- 
bruch der Eingabe nach dem Tippen der ersten Ziffer bleibt 
der Speicher unverändert. Der W-Befehl wird in erster Linie zur 
Änderung einzelner Bytes im Speicher oder zur Eingabe kom- 
pletter Maschinenprogramme benutzt. 


Text (Text in Speicher schreiben): 

T <Anfangsadresse> — Mit diesem Kommando können 
Sie beliebige Texte direkt in den Speicher schreiben. Auch 
Control-Zeichen (mit Ausnahme von Ctrl-M (= CHR$(13) = 
Enter) sind erlaubt. Nach Eingabe einer Adresse können Sie 
den Text sofort direkt eintippen. 

Beachten Sie aber bitte unbedingt, daß Sie dabei direkt in 
den Speicher schreiben, das heißt jedes eingetippte Zeichen 
wird sofort im Speicher abgelegt und überschreibt die vorher 
dort stehenden Informationen. Es bestehen daher auch keine 
Editier-Möglichkeiten außer Neuschreiben fehlerhafter Passa- 
gen. Dieses Kommando ist als Hilfe zum einfachen Einfügen 
und Ändern von Texten in Maschinenprogrammen gedacht. 


Find (Bytefolgen suchen): 

F <Anfang> <Ende> <Bytei> <Byte2> <Byte3> 
<Byte 4> — Dieses Kommando sucht in einem anzugeben- 
den Speicherbereich nach Bytefolgen mit einer Länge von ma- 
ximal vier Bytes. Dazu müssen Anfang und Ende des Suchbe- 
reichs angegeben werden sowie die bis zu vier zu suchenden 
Bytes. Das age vier zu suchenden Bytes muß naturge- 
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mäß in jedem Falle angegeben werden, für jedes einzelne der 
drei folgenden Bytes kann auf eine Spezifizierung des Wertes 
verzichtet werden, indem die Enter-Taste betätigt wird. Statt ei- 
nes Wertes erscheint am Bildschirm für das betreffende Byte 
nur »XX«. Ein so gekennzeichnetes Byte spielt während des 


_Suchvorganges die Rolle eines Jokers, das heißt es kann je- 


den beliebigen Ein-Byte-Wert repräsentieren. 

Ein Beispiel soll das verdeutlichen: Nehmen wir an, Sie woll- 
ten wissen, an welchen Stellen ein Maschinenprogramm, das 
im Speicher von 2000 bis 4000 hex steht, andere Routinen 
im Bereich ADOO bis AOFF hex aufruft. Das heißt also, Sie su- 
chen zwischen 2000 und 4000 hex alle CALL-Befehle (Z80- 
Code »CDe«), bei denen das High-Byte der Adresse AO hex ist. 
Diese Befehle findet der Supermon für Sie in Sekundenbruch- 
teilen durch Eingabe von »F 2000 4000 CD XX AO XX«, wobei 
Sie natürlich statt »XX« jeweils die Enter-Taste drücken. Diese 
Eingabe findet alle Folgen aus 4 Byte zwischen 2000 und 
4000 hex, die mit »CD« beginnen und deren drittes Byte »A0« 
ist. Nach Eingabe des vierten zu suchenden Bytes wird der 
angegebene Speicherbereich nach passenden Bytefolgen 
durchsucht. Wird eine Übereinstimmung gefunden, so wird 
die gefundene Bytefolge samt Adresse ausgegeben und die 
Suche fortgesetzt. 


Jump (Maschinenprogramm aufrufen): 

J < Startadresse> — Dieses Kommando dient zum Aufruf 
von Maschinencode-Programmen. Nach Eingabe einer Start- 
adresse wird die an dieser Adresse stehende Routine wie ein 
Unterprogramm gestartet. Wenn das Programm keine Stack- 
Manipulation vornimmt, bewirkt ein »RE T«-Befehl die Rückkehr 
zum Supermon CPC. 

Da der J-Befehl die Kontrolle vollständig an das aufgerufene 
Maschinenprogramm übergibt, ist bei der Anwendung dieses 
Befehls besondere Sorgfalt geboten. Durch fehlerhafte oder 
unüberlegte Anwendung kann es leicht zum vollständigen 
»Absturz« des Computersystems kommen. 

Im Gegensatz zum G-Befehl (GO, siehe Befehlsgruppe 2) 
wird der Monitor-Registerbereich durch das J-Kommando 
nicht verändert. 


Transfer (Speicherbereich verschieben): 

X <Blockanfang> <Blockende> <Zieladresse> — Die- 
ses Kommando dient zum Verschieben von Speicherblöcken. 
Dazu müssen drei Adressen angegeben werden. Die ersten 
beiden Adressen bezeichnen dabei Anfang und Ende des zu 
verschiebenden Speicherbereichs, die dritte Adresse be- 
zeichnet das Verschiebeziel, also die Adresse, zu der der 
Speicherbereich verschoben werden soll. 

Beispiel 1: X 3000 3100 2000 

Dieser Befehl kopiert den Speicherbereich von 3000 bis 
3100 hex (einschließlich) in den Bereich 2000 bis 2100 hex. 

Beispiel 2: X 3000 3FFF 3001 

Dieser Befehl verschiebt den Speicherbereich von 3000 
bis 3FFF hex (einschließlich) um ein Byte nach oben. Das X- 
Kommando arbeitet »intelligent«, das heißt abhängig von der 
Wahl der Zieladresse wird die Verschiebung stets so vorge- 
nommen, daß der gewählte Speicherblock unverändert über- 
tragen wird (vergleiche Beispiel 2). 


Fill (Speicherbereich mit Konstante füllen): 

Z <Anfang> <Ende> <Byte> — Der Speicherbereich 
von <Änfang> bis <Ende> wird mit einem konstanten 
<Byte> aufgefüllt. Besondere Vorsicht ist bei Anwendung 
dieses Kommandos geboten, um nicht versehentlich wichtige 
Speicherbereiche zu überschreiben. 

Beispiel: Z C000 FFFF 00 

Dieser Befehl löscht den Bildschirm, indem der gesamte 
Video-Speicher mit Null-Bytes gefüllt wird. 


Kun Pe d ee bzo > En EEE a + DI 2% is PA FE ‚e 


Switch Bank (Speicherbank schalten): 

: <Bank-Auswahl-Adresse > — Mit diesem Kommando gib! 
es keine unzugänglichen Ecken mehr in Ihrem Schneider 
Computer. Sie können jedes eingesetzte ROM- oder RAM 
Modul anwählen, insgesamt bis zu 252 Speicherbänke. Weil 
terhin können Sie mit diesem Kommando bestimmen, ob das 
Betriebssystem-ROM (Adreßbereich 0000 bis 3FFF hex) ei 
oder ausgeblendet ist, desgleichen für das obere RO 
(Adreßbereich CO00 bis FFFF hex). Im oberen ROM-Bereic 
wird je nach gewählter ROM-Auswahl-Adresse das Basic 
ROM oder ein externes ROM oder auch ein RAM-Bereich ein 
geblendet. 

Die ROM-Auswahl-Adresse ist ein Ein-Byte-Wert, der für 
Werte von O bis 252 (00 bis FB hex) eine ROM-Bank aus- 
wählt. Das eingebaute Basic hat die ROM-Auswahl-Adresse Q 
das Amsdos- und CP/M-ROM im Floppy-Controller die ROM- 
Auswahl-Adresse 7. Da die Adreßleitungen in der Normalkonfi 
guration nicht vollständig decodiert sind, werden beide ROMs 
auch unter anderen Adressen eingeblendet. Die ROM-Aus- 
wahl-Adresse kann vier Werte mit speziellen Bedeutungen ar 
nehmen, die aber die eingestellte ROM-Auswahl nicht verär 
dern: 


FC hex Oberes ROM ein, unteres ROM ein 
FD hex Oberes ROM ein, unteres ROM aus 
FE hex Oberes ROM aus, unteres ROM ein 






FF hex Oberes ROM aus, unteres ROM aus 


Mit ROM-Auswahl-Adresse »FF« stellen Sie den normalen’ 
Zustand Ihres Schneiders wieder her. 

Alle Routinen können mit Enter, Esc oder der Leertaste un- 
terbrochen werden. Ein nachfolgender Druck auf Esc bricht 
das Kommando ab, jede andere Taste läßt das Programm fort- 
fahren. 


Befehlsgruppe 2: Debug-Kommando | 


Die Befehle der zweiten Gruppe dienen in erster Linie der 
Fehlersuche und dem Austesten von Maschinencode-Routi- 
nen. Zum besseren Verständnis dieser Befehle sollen zuvor 
zwei mit dem »Debugging« (Fehlersuche) zusammenhängen- 
de Begriffe geklärt werden: 


Breakpoint: 

Ein Breakpoint (Unterbrechungspunkt) kann auf jeden Z80- 
Maschinenbefehl gesetzt werden. Erreicht das Maschinen-° 
programm während des Probelaufs diesen Punkt, dann wird’ 
es unterbrochen und es erscheint eine »Break«-Meldung, ge- 
folgt von der Adresse, an der die Unterbrechung erfolgte. Au- 
Berdem werden die Inhalte aller Z80-Register angezeigt, so 
daß der Programmierer sofort einen Überblick über den inter- 
nen Zustand des Prozessors bei Erreichen des Breakpoints 
hat. Der Breakpoint ist beim Supermon durch den vom Be- 
triebssystem nicht verwendeten »RST 6«-Befehl realisiert. 
Nach Eingabe der gewünschten Breakpoint-Adresse mit dem 
B-Kommando wird der ursprüngliche Inhalt dieser Adresse ge- 
rettet und anschließend der Code für den »RST 6«-Befehl ein- 
geschrieben. Der Z80-Prozessor verzweigt bei Ausführung 
des »RST 6« zur Adresse 0030 hex, wo bei der Initialisierung 
des Monitors ein Sprung zur Breakpoint-Routine abgelegt 
wurde. 

Verwenden Sie daher den »RST 6«-Befehl nicht in eigenen 
Programmen, wenn diese mit dem Supermon CPC ausgete- 
stet werden sollen. 


Registerspeicher: 
Die Breakpoint-Routine des Supermon rettet alle Primärregi- 
ster des Z80 sowie die beiden Indexregister in einem speziel- 









len Speicherbereich innerhalb des Monitors, den Register- 
speicher. Dieser belegt die Adressen 7110 bis 711D hex. Der 
Registerspeicher wird bei Auftreten eines Breakpoints mit den 
CPU-Registern geladen, desgleichen bei der Rückkehr von 
einem G-Befehl. Bei Aufruf eines Maschinencode-Programms 
mittels G-Befehl werden vor dem eigentlichen Programmstart 
die Z80-Register aus dem Registerbereich geladen. Der Regi- 
sterspeicher kann mittels R-Kommando aufgelistet werden 
oder per M-Kommando (zum Beispiel »M 8110«). Um den Re- 
gisterspeicher mit bestimmten Startwerten zu füllen, benutzen 
Sie bitte das W-Kommando (zum Beispiel »W 8110«). Die Regi- 
ster sind 16-Bit-weise in der Reihenfolge AF, BC, DE, HL, IX, 
IY im Registerspeicher abgelegt. 


Breakpoint setzen: 

B <Adresse> — Mit diesem Befehl kann in ein Maschinen- 
Drogramm ein Unterbrechungspunkt (Breakpoint) gesetzt 
werden. Der Breakpoint muß immer auf das erste Byte eines 
Z80-Befehls gesetzt werden, da er sonst nicht die gewünsch- 
te Wirkung erzielt, sondern im Gegenteil zu unvorhersehbaren 
Ergebnissen bei der Programmausführung führen kann. Es 
kann jeweils nur ein Breakpoint gesetzt sein. Beim Versuch, 
weitere Breakpoints mittels B-Kommando zu setzen, er- 
scheint die Meldung »NOT Ok«. 


Kill Breakpoint (Breakpoint löschen): 
K - Das K-Kommando dient zum Löschen eines gesetzten 
Breakpoints. | 


Go (startet Maschinenprogramm): 

G <Startadresse> — Mit dem G-Kommando wird ein Ma- 
schinenprogramm an der gewählten Adresse gestartet, wobei 
zuvor die Prozessor-Register aus dem Registerspeicher (sie- 
he oben) geladen werden. Damit ist es möglich, Routinen zu 
starten, die bestimmte Registerinhalte erwarten. Der Befehl ist 
ebenfalls nützlich zum »wieder-starten«e eines Programms 
nach Unterbrechung durch einen Breakpoint. Es muß dazu 
nur der Breakpoint mit dem K-Befehl gelöscht werden; ein an- 
schließender G-Befehl auf die Break-Adresse setzt das Ma- 
schinenprogramm dann ab der Unterbrechungsstelle mit der 
richtigen Registerbelegung wieder fort. Die gestartete Ma- 
schinencode-Routine kehrt nach einem »RET«-Befehl wieder 
zum Monitor zurück, wobei die Z80-Register im Registerspei- 
cher abgelegt werden. Eine eventuelle Meldung »BREAK«, 
gefolgt von einer Adresse und einer Auflistung der Z80-Regi- 
ster-Inhalte bedeutet, daß das gestartete Maschinenpro- 
gramm auf einen Breakpoint gestoßen ist. 


Register anzeigen: 

R — dieser Befehl listet die Inhalte der im Registerspeicher 
festgehaltenen Z80-Register auf, wie sie vom G-Befehl ver- 
wendet werden. Eine Änderung der Registerinhalte ist über 
den W-Befehl möglich (siehe auch unter »Registerspeichere). 


User-Jump ausführen: 

U — diese Funktion führt ein vom Anwender per (-Komman- 
do definiertes Unterprogramm aus. Das U-Kommando ist ins- 
besondere nützlich, um den Befehlssatz des Supermon zu er- 
weitern, oder um häufig gebrauchte, selbstgeschriebene Rou- 
tinen schnell und sicher aufrufen zu können. Die User-Routine 
wird sofort ausgeführt. 


User-Jump definieren: 

( <Startadresse> — dieses Kommando legt die Start- 
adresse einer Anwender-Routine zur Erweiterung des Super- 
mon-Befehlssatzes fest. Nach diesem Kommando wird beim 
U-Befehl stets die hier angegebene Startadresse angesprun- 
gen. Die User-Routine muß mit »RE T« abgeschlossen sein und 
darf den Stack nicht manipulieren. Ist beim Verlassen der 
User-Routine das Carry-Flag gesetzt, dann wird nach dem U- 
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Befehl die Meldung »Ok« ausgegeben, andernfalls die Mel- 
dung »NOT Ok«. Um den User-Jump abzuschalten, geben Sie 
die Startadresse 0000 ein; es wird dann kein User-Jump mehr 
ausgeführt. 


User-Jump anzeigen: 

) — der augenblicklich definierte User-Jump kann mit die- 
sem Kommando angezeigt werden. 0000 bedeutet, daß kein 
User-Jump definiert ist. 





Befehlsgruppe 3: 2 
Laden und Speichern 


Die Befehle dieser Gruppe dienen dem Datenverkehr zwi- 
schen Computer und Disketten-Kassettenlaufwerk. Bei Kas- 
settenbetrieb muß beachtet werden, daß die Namenskonven- 
tion für Kassetten- und Diskettendateien unterschiedlich ist: 
Kassettendateien dürfen beliebige Namen mit einer Länge von 
maximal 16 Zeichen haben, Namen für Diskettendateien be- 
stehen dagegen aus maximal 8 Zeichen plus 3 Zeichen Na- 
menserweiterung (Extension). Dateiname und Extension müs- 
sen durch einen Punkt ».« getrennt sein. Gültige Disketten- 
Dateinamen sind also zum Beispiel »TEST.BAS« oder »PRO- 
GRAMM.BIN«. Die Konvention für Diskettendateinamen ist mit 
der Namenskonvention unter CP/M weitgehend identisch. 

Um Probleme bei der Übertragung speziell von Kassette zu 
Diskette zu vermeiden, werden alle Namen von Kassettenpro- 
grammen vom Supermon CPC automatisch an das Namens- 
format für Diskettendateien angepaßt. Aus »sTESTPRO- 
GRAMMe« wird damit sTESTPROG.RAM«. 

Dem Kassettenbenutzer sei im Hinblick auf die spätere An- 
schaffung eines Diskettenlaufwerks empfohlen, von vorne- 
herein nur Namen entsprechend der Disketten-Konvention zu 
verwenden. 

Folgende Dateitypen weraen von den Schneider-Compu- 
tern unterstützt: 


Basic-Programm 
Basic-Programm (protected) 
Maschinensprache-Programm 


Maschinensprache-Programm (protected) 
Bildschirmdatei 

Bildschirmdatei (protected) 

Seauentielle Datei (mit OPENOUT erzeugt, kann nicht als 
Programm geladen werden) 





Load (Programm laden): 

L <Filename> — dieses Kommando dient zum Laden ei- 
nes Programmes von Kassette oder Diskette. Es wird automa- 
tisch in den gleichen Speicherplatz geladen, aus dem es abge- 
speichert wurde. Während des Ladevorganges werden allere- . 
levanten Informationen aus dem File-Header (Vorspann) ange- 
zeigt. Wenn Sie nicht sicher sind, ob das zu ladende Pro- 
gramm eventuell wichtige Daten (oder sogar den Supermon) 
überschreibt, sollten Sie das Y-Kommando verwenden. 


Yank (Programm verschoben laden): 

Y <Filename> — das Y-Kommando funktioniert weitge- 
hend analog zum L-Befehl. Allerdings wird hier das Programm 
nicht unbedingt an den Original-Speicherplatz geladen, son- 
dern kann an eine beliebige Adresse geladen werden. Dazu 
werden wiederum alle Header-Informationen ausgegeben. 
Anschließend erfragt das System mit »LOAD:« die Speicher- 
adresse, an die das Programm geladen werden soll. Das Y- 
Kommando ist besonders nützlich, wenn das zu ladende Pro- 
gramm sich normalerweise in einem ungünstigen Speicherbe- 
reich befindet, sich also beispielsweise mit dem Supermon 
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CPC speichermäßig überschneiden würde. Mit dem \Y-Befehl 
kann das Programm in einem solchen Falle in einen »ungefähr- 
lichen« Speicherbereich geladen und dort analysiert werden. 
In der Regel ist es dort aber nicht lauffähig. 


Header-Informationen ausgeben: 
H — dieses Kommando listet die wichtigen Header-Informa- 
tionen zu dem zuletzt geladenen Programm auf. 


Copy (Programm kopieren): 
C — das C-Kommando kopiert das zuletzt geladene File mit 
den Parametern, wie sie im H-Kommando aufgelistet werden. 


Save (Programm speichern): 

S  <Filename> <fFietypp> _<Anfangsadresse> 
<Endadresse> <Startadresse> — dieses Kommando 
dient zum Speichern von Programmen oder beliebigen Spei- 
cherbereichen auf Kassette oder Diskette. Angegeben wer- 
den müssen hierzu der gewünschte Filename, der Filetyp 
(vergleiche L-Befehl), der Speicherbereich, der aufgezeichnet 
werden soll (< Anfangsadresse> bis <Endadresse>) und 
schließlich noch die Startadresse. Die Startadresse ist die 
Adresse, ab der ein Maschinenprogramm gestartet werden 
muß (falls die zu speichernde Datei kein Maschinensprache- 
Programm darstellt, ist die Startadresse 0000). 


Catalog (Inhalt einer Kassette oder Diskette anzeigen): 

@ — das @-Kommando entspricht der CAT-Funktion in Ba- 
sic. Der Inhalt der eingelegten Kassette/Diskette wird am Bild- 
schirm aufgelistet. 


Speed 0 (Aufzeichnungsgeschwindigkeit O wählen): 

O0 — das Kommando wählt eine Aufzeichnungsgeschwindig- 
keit von 1000 Baud für Kassetten-Operationen (entspricht 
»SPEED WRITE Ok in Basic). 


Speed 1 (Aufzeichnungsgeschwindigkeit 1 wählen): 

1 — das Kommando wählt eine Aufzeichnungsgeschwindig- 
keit von 2000 Baud für Kassettenoperationen (entspricht 
»SPEED WRITE 1« in Basic). 


On/Oftf (Kassettenmotor ein/aus): 

O — dieses Kommando schaltet den Kassettenmotor wech- 
selweise ein/aus. Es dient zur Feinjustierung der Kassette auf 
eine bestimmte Bandstelle. 

Externe Kommandos (DOS-Kommandos) 

1 <Kommandoname>, <Parameter 1>, <Parameter 2> 
Mit »1« können (wie von Basic aus) externe Kommandos, in er- 
ster Linie natürlich die DOS-Kommandos, aufgerufen werden. 

Ohne Diskettenlaufwerk (CPC 464) wird nur das Komman- 
do »IBASIC« unterstützt, das die Kontrolle wieder an das ein- 
gebaute Schneider-Basic abgibt. Nach diesem Kommando 
kann nicht mehr mit dem Monitor gearbeitet werden. Strings 
können übrigens direkt übergeben werden — nicht umständ- 
lich mittels Variablen, wie normalerweise bei Erweiterungsbe- 
fehlen. 

Beispiele: 

»ı ERA, NAME.BIN« löscht das File »NAME BIN« von der Dis- 
kette. 

»!REN,NEUNAME,ALTNAME« benennt das File »ALTNAME« in 
»NEUNAME«e um. 





Befehlsgruppe 4: Verschiedenes 


Bye (Verlassen des Monitors): 

| — der !-Befehl bewirkt ein »weiches« Verlassen des Super- 
mon GPC durch einen Sprung zum Basic-Warmstart (Ready- 
Routine). Alle Programme und ‚Speicherinhalte bleiben dabei 
erhalten. 





Drucker einschalten: 

# — Das #-Kommando bewirkt, daß der Drucker während 
der Ausführung des nächsten Monitor-Befehls zugeschalte: 
wird. Hierzu muß der Drucker angeschlossen und eingeschal- 
tet sein. Das gewünschte, mit dem Drucker zu protokollieren- 
de Monitor-Kommando kann direkt im Anschluß an den #-Be- 
fehl gegeben werden. Falls die Meldung »NOT OK« erscheint, 
ist der Drucker nicht richtig angeschlossen. 












40/80-Zeichen-Umschaltung: 
& — der &-Befehl schaltet zwischen 40- und 80-Zeichen- 
Modus hin und her. 


718-Bit-ASCIl-Umschaltung: 

.— der —Befehl bewirkt eine Umschaltung der Anzeige von 
7- auf 8-Bit-ASCII-Modus und umgekehrt. Im 8-Bit-Modus 
werden alle in Auflistung vorkommenden Zeichen vom Monitor 
als vollständige 8-Bit-Zeichen gelistet. Im 7-Bit-Modus wird Bit 
7 jedes Zeichens auf Null gesetzt; es ergibt sich ein 7-Bit- 
ASCII-Code. 

Der 7-Bit-Modus ist insbesondere zur Suche von Befehlsli- 
sten in Maschinenprogrammen zu verwenden, bei denen Bit 
7 einzelner Zeichen gesetzt ist, wodurch die Zeichenfolgen im 
8-Bit-Modus unleserlich werden. 

Bei Druckerausgabe wird ausschließlich der 7-Bit-Modus 
verwendet. 


Hex Addition: 

+ <Wert 1> <Wert2> — dieses Kommando ermöglicht 
die Addition zweier vierstelliger Hexadezimal-Zahlen. Es ist bei 
Adressenberechnungen häufig nützlich. 


Hex Subtraktion: 
— <Wert 1> <Wert 2> — dieses Kommando ermöglicht 
die Subtraktion zweier vierstelliger Hexadezimal-Zahlen. 


Relative Sprungdistanz berechnen: 

I <Sprungadresse> <Sprungziel> — Dieses Komman- 
do berechnet das »Distanz-Byte« bei relativen Sprunganwei- 
sungen aus der Adresse, an der der Sprungbefehl steht und 
der Adresse, zu der gesprungen werden soll. Das Kommando 
ist bei der Eingabe kleiner Maschinenprogramme eine häufig 
benutzte Arbeitserleichterung. Falls die Meldung »NOT OKe 








auftritt, liegt das Sprungziel außerhalb des beim Z80 mit relati- 
ven Sprüngen zu erreichenden Bereichs. | 


Monitor-Warmstart: 
Enter — die Enter-Taste ohne Befehlseingabe bewirkt einen 
Monitor-Warmstart. 


Monitor-Kaltstart 
Ctrl-C — die Tastenkombination Ctrl und C bewirkt einen 
Monitor-Kaltstart, also eine neue Initialisierung des Monitors. 
Ein solcher Kaltstart hilft in vielen Fällen, wo die Bildschirman- 
zeige durch nicht einwandfrei laufende Maschinenprogramme 
durcheinander geraten ist. 
(Volker Everts) 


[D154] 
L747A] 
[4BB4] 
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Listing 1. Kurz aber effektvoll: Das Startprogramm zu 
»Supermonitor CPC-1002« 





1/86 Sonderheft Schneider 
Ten 0a 1 a we äntalaun N a nz id 2 


; CD,74, 


31,.8.C0,CD,@,BB,CD,4E,BB,CD 
FF.BB,CD,65,BC,CD 
CD,15,B9,7C.32,2B,81,3A,1D,81 
3D,E6.1,5C,32,FD,88,CD,E,BC 

AF.32.FC,88,3A,1E,81,47,4F,AF 
A CD,32,BC,3A,1F,81,47,4F,3E,1 

CD,32,BC,3A,28,81,47,4F,CD,38 
BC,11,2E,81,C0D,2D,82,31,8,C8 
CD,EQ,81,AF,32,FC,88,3E,3E,CD 


‚A7, BC,E, 1] 


FE,81,CD,44,82,CD,74,82,21,8A 


 80,4F „23,23, 7E,B7,28,F3,23,B7 


28,F&,CD,FE,81,11,7C,88,D5,7E 
23,66,6F ,E9,11,8F,81,30,3,11 
94,81,CD,E8,81,CD,2D,82,18,C1 
21,20,83,3A,5C,83,41,F@,83,4D 
E,84,57,39,84,48,5A,84,4C, 9A 
84,7C,88,83,408,36,85,53,F0,84 
43,3E,85,59,DC,84,23,49,83,47 
9D,85,26,39,83,54,D4,85,44, FD 
87,58,B3,85,42,F8,95,52,65,86 
4B,A9,86,46,BB,86,2B, 78 „87,2D 
89,87,5E,93,87,55,.B5,87,4A,B® 
87,28,C8,87,29,C9,87,38,.D4,87 
31,DB,87,5A,E5,87,D,4D,88,3 
2,90,4F,74,BC ,2E,2F ,83,3F,8@ 
98,2,0,2,0,2,7,B8,0,0 


2.0,0,0.0,0,0,8,8, 
2.0.0.0.0,0,0,0.0,0 
2.0.0.0,02,.1.1.18,1,8 
2,0,0,0,0.0.0,0.0.0 
8.AD,20.20,20.20,20,20,20,2A 


2A,20,53,55,508,45,52,4D,4F ,4E 
20.43,50,43,2D,31,30,30,32,2@ 
2A,2A,A,A,D,20,20,43,6F,70 
79.72,69,67,68,74,20,28,63,29 
28,31,39,38,35,20,62,79,20,48 
61,70,70,79,28,43,6F ,6D,70,75 
74,65,72,4,A,D,@,25,25,25 
20.56,4F ,66,6B,65,72,28,45,76 
65,72, 74,73,20,25,25,25,@,4E 
4F ,54,20.7,4F „4B,0,40,6F „61 
64,34,0,53,5A,2D,48,2D,58,4E 
43,20,28,41,20,20,42,43,28,20 
20,44,45,20,20,20,48,4C,20,20 
20,49,58,298,29,20,49,59,0,42 
52,45,41,4B,20,7,0,20,45,69 
60 ,65,6E,61,6D0,65,28,3F ,20,8 
3A.2B,81.B7,CA,3A,BD,C3,5E,BD 
F5.3A.86.B2.B7,20,3,F1,69,P5 
3E,A,CD,FE,91,3E,D,CD,FE,Bi 
F1.C9,Eö,FF,FE,20,30,2,3E,2E 
F5,3A4,FC,80,B7,28,23,F1,F5,FE 


, D,28,C,FE,A,28,8,CB,BF,FE 


28,30,2,3E,2E,05,6,28,4F,79 
CD.2B,BD,38,5,18,F8,AF,32,FC 
88,C1,F1,CD,5A,EB,C9,F5,D5,1A 
B7,28,6,.CD,FE,81,13,18,F6,Di 
F1,C09,F5,3E,28,CD,FE,81,F1,C9 
F5.3E,7,CD,5A,BB,Fi, 69, 7C,CD 
51.82. 7D,F5,F.F,F,F.CD.5A" 

a2 Fi G6.F .PE.A,30.2, Eh 7 
C6.30.CD,FE,81,09,CD,8A,BB,CD 
6,BB,F5,CD,8D,BB,F1,C9,CD,68 
82,FE, ei, Da,FE,7B,DO,D5,20,C9 
‚FE,FC.CO,FE,D, ‚CB, D& 
30,38, rs! FE,A,38,B,D&,7,FE 
10.30.E9,FE.A,3SF,30,E4 ’es-co 
5A.82,F1,C9,CD,30,82,0D,88,82 
D@,C5,7,7,7,7,4F,CD,B®, 
38,2,B1,37,C1,C09,CD,BD,82,D® 
EB,CD,A2,82,D8,67,CD,A5,82,&F 
C9,21,A4,AC,3A,2B,81,B7,28,3 
21,8A,AC, 256; 2,C0,D6,81,D0,E5 
AF,6,FF,A,BE,23,20,FB,E1,37 
C9.3A,FC, "32. TE B7, ce, A, FD 
80,F,D8,,98,09,CD,9 

DB,FE,D re. 26.28 air 
FC,28, "Be ch,b8,82,FE Ser CB, 37 
C9.CD.E®.81.CD.4C.82.CD.3C,82 
CD,3C,82,C9,7C,BA,C®,7D,BB,C9 
3E,FD,CD,68,83,AF,CD,60,83,CD 
EB,81,03,64,C80,3A,F7,81,EE,8® 
32,F7, „al, 37,C9,3A,FD,80,3D,2@ 
2.3E,2,32,FD,80,CD,E,BC,37 
C9,3E,1,32,FC,8@,CD,2E,BD,3F 
DO,3E,D,CD,2B,BD,E1,C3,5F,8@ 
CD,A2,82,D@,FE,FC,30,6,4F,CD 
F,B9,37,C09,F,F5,DC,9,B9,Fi 
F5,D4,6,B9,Fi,F,F5,DC,3,B? 
F1,D4,80,B9,37,C9,CD,3C,82,3E 
FF.32.E8,B4,0D,C7,82,D0, 78, ‚B7 
C8,E5,48,6,0,3E,2C,ED,Bi, 
9B,83.2B,2B,CB,FE,iE,®,DD, 2 
A,81,23,BE,20,15,23,FD,21,2 
81,CD,CA,83,30,B,DD,2B,DD,2B 
FD.21,5,81,C00,CA,83,E1,D5,CD 
D4.BC,D1,D0,7B,CD,1B,8,37,C9 
FD,36,8,FF,FD,75,1,FD,74,2 
IC,FD.ES,E3,DD,75,0,DD,74,1 


A 
1OBB DATA E1,2B,23,FD,34,0,7E,B7,CB,FE 
iBi® DATA 2C.20,F5,34,80,23,.37,C9,CD,BD 





L4C28] 
LAAFB] 
L277E] 
LE116] 
LE&SCE] 
LESS3E] 
[E7AB] 
[C186] 
[DF18] 
[D7’F8] 


ECSEA]I 
[3B6E) 
LFFAB] 
[0572] 
[4445] 
CBA4AE] 
[9770] 
[7868] 
CAB46] 
[2650] 
[SE6@] 
[63FC] 
C4DD®] 
C3D2E] 
[56491] 
19594) 
CASA] 
L3C7C) 
LAFA2I 
[BC68] 
C8FCB] 
[9898] 
[7CQE] 
[B7A&] 
[1B6CI 
[F198] 
L6D7E] 
[BBFA] 
C7BE2] 
[F6EB] 
[7’3F6] 
[5D88] 
[2A16] 
[4B40] 
CE13@] 
CCABCI 
CFS56] 
[4758] 
[DAE2) 
[&s5CA] 
[B300] 
[C9DF8] 
[CCEA]I 
LCF82 
[0480] 
[C824]) 
[A9D6] 





1758 
1968 
1978 
1788 


Listing 2. »Supermonitor CPC-1002« erlaubt Einblicke in 


Maschinensprache-Monitor 


82,D@,CD,E5,82,CB,28,CB,29,C5 
CD,D,83,7E,CD,F6,81,23,1@,F9 


ı C1,CD,F4,82,58,EF,3F,C7,CD,BD 


82,D@,CD,E5,82.C5,CD,D,83,E5 

C5,7E,CD,51,82,CD,30,82,23,18 
F&.C1,E1,CD,3C,82,7E,CD,F&.81 
23,1@,F9,C1,CD,F4,82,38,DE,3F 


‘ C9,CD,BD,82,D@,CD,E®,81,CD,E5 


82,C5,CD,D,83,3E,8,CD,FE,81 
CD,A2,82,38,4,77,23,10,F7,C1 
38,EB,3F,C9,2A,8,81,CD,E8,81 


' E5S,DD,E1,CD,57,85,CD,2D,82,DD 


7E,12,CD,E@,81,CD,51,92,CD,3C 
82,DD,&E,15,DD,65,16&,CD,4C,82 
DD,SE,18,DD,56,19,19,2B,CD,3C 
82,CD,4C,82,DD,5E,1A,DD,564,1B 
CD,3C,82,CD,4C,82,37,09,CD,A® 
84,D0D8,18,25,11,6C97,81,CD,2D,82 
CD,C7,82,D@,AF,CD,&sB,BC,11,® 
8,CD,77,BC,30,21,22,8,81,CD 
5A,84,DD,6E,15,DD,668,15,C7,CD 
Eß,61i ‚E5,CD,83,BC,Ei „>0,A ‚DD 
75,15,DD,74,1&,CD,7A,BC,D8,CD 


, 7D,BC,B7,C9,CD,AB,84,D8,CD,E® 


81,11,77,81,CD,2D,82,CD,BD,82 
30,E9,.18.D3.11.09. ‚81,CD,2D,82 
CD,C7,82,D0,11,0,8,CD,8C,Be 
30. 2F .AF.,CD.&B.BC,CD,E8,81,CD 
AS,82,38,23,ED,47,CD,B8,82,30 
1C,B7,ED,52,3F ‚30,16, 23,EB,E5 
CD,BD,82,44,4D,E1,3@0,B,ED,57 
CD.78,BC,30,4,CD,SF,„BC,D8,CD 
92,BC,B7,C09,11,80,8,CD,9B,BC 
37.C9.CD.67.85.EB,11,8,8,CD 
8C.BC,38,E7.DD.2A,0,81,DD,66 
16,DD,6E,15,DD,56,19,DD,5E,18 
DD,4&.1B,DD,4E£,1A,DD,7E,12,CB 
87.18.C1,C5,E5.2N,0,81,7E, „FE 
20,30,1,23,11,A4,AC,DS,6, 
CD,8F ,‚85,30,9,3E,2E,12,13, zn 
3,CD,8F ,85,AF,12,.7B,D1,93,E1 
C1,47,C9,7E,B7,C8,FE,20,28,2 
12,13,23,10,F4,37,C9,CD,BD,82 
DB.CD.EB,81,11,AD,85,05,E5,CD 
1C,86,09,F5,CD,35,86,F1,C9,CD 
B8.82.D0.B7,ED,52,3F,D®,44,4D 
CD,BD,82,D8,CD,1A,83,38,8,? 
EB.9,3,.ED,B8,37,C9,EB,3,ED 
B8,C9,CD,BD,82,D8,CD,E5,82,CB 
20,CB.29.48,.CD,D,83,CD,68,92 
FE.FC.3F,C8,FE,D.3F,CB,77,CD 
F6.81.23.10,EE.41,18,E8,CD,BD 
872.D0,7C,B5,C8,ED.5B,D,81,7A 
B3.C0.E7.32,0,81,36,F7,22,D 
81,3E,C3,.21.4E,85,32,30,0,22 
31.82,37,C9,ED,4B,11,81,ED,5B 
13,81 ,2A,F,81,E5,F1,2A,15,81 
DD.2A.17.81,FD,24,19,81,C9,ED 
43,11,81,ED,53,13,81,22,15,81 
FS,E1,22,F,81,DD,22,17,81, FD 
22,19,81,09,CD,35,8&4,E1,2B,CD 
E9.81,11,C1,81.CD.2D,82,CD,AC 
82.CD,65,86,C3,7C,8@,CD,E®,81 
CD,E9,81.11,9D,81,CD,2D,82,CD 
EB,81,3A,F,81,6,8,4F ,3E,30 
CB,21,CE,8,CD,FE,81,18,F5,CD 
3C,82,34,12,81,CD,51,82,21,11 
81,6,5,5E, 23,56, 23,CD,3C,82 
EB,CD,4C,82,EB,18,F2,CD,E@,81 
CD.E9,81,37,C09,2A,D, „8; 7C,B5 
C8,3A,C,81,77,21,8 
81,37,C9,CD,B8,82, a'n7’ ‚ED,52 
3F,DB,23,44,4D,21,.21,81,C5, CD 
37.87.C1.D8,DD,21,21,.81,EB, 


‚, EB,81,DD,7E,0,B7,C8, u 


ED,B1,37,E®,E5S,FD,E1,CD,F4,82 
3F.D8,DD,7E,2,B7,28,8,DD,7E 
3,FD,BE,0,28,£3,DD,7E,4,B7 
28,8,DD.7E,5,FD,BE,1,20,D5 
DD,7E,6,B7,28,8,DD,7E,7,FD 
BE,2,20,C7,2B,CD,46,82,CD,3C 
82,7E,CD,51,82,23,7E,CD,51,82 
FD,7E,1,60,51,82,FD,7E,2,CD 
51.82,CD,E0,81,19,46,6,4,36 
FF.23,.CD,3C,82,CD.88,82,30,1B 
7.7,7,.7,66,F0,77,CD,88,82 
30,7,B6,77,23,18,E4,37,C9,FE 
FC,CB.3E,8,CD,FE,B1,FE,FC,C8 
3E,58,CD,FE,81,CD,FE,81,2B,36 
0.23,18,E2,CD,B8,82,D@,197,CD 
7D,87,CD,4C,82,37,C09,CD,3C0,82 
3E,3D,CD,FE,81,CD,3C,82,C9,CD 
B8,82,EB,D@,B7,ED,52,18,E2,CD 
B8.82,D0,B7,ED.52,2B,2B,7C,FE 
FF,28.2,B7,C0,AD,E6,88,60,CD 
7D.87,70,CD,51,82,37,C9,CD,BD 
82,D8,E9,CD,EB,81,24,29,81,7C 


jede Maschinencode-Routine 





[9C7@) 
[CBC1A] 
CDF@4]) 
[1434] 
[CBF4A] 
[Asa] 
[3188] 
C4EFA] 
LE7D&] 
[C4F92] 
[E6B4] 
[F1iE&] 
[9288] 
[FF?B&] 
L6öFA2] 
[55BA]J 
[2FBA] 
[CaF1A] 
LE64A] 
[1840] 
[73AB] 


CSEEE] 
C1AACI 
CDDACI 
[69ADI 
[BBF2] 
[3668] 
[5176] 
[8778] 
[SBACI 
L9EEE] 
[ED64] 
CCFDEI 
[C240] 
[4FC4] 
[D628] 
[6148] 
[9698] 
[D324] 
[4572] 
C2BDE] 
[ACEA] 
[9BOB] 
[2460] 
[424E] 
[F594] 
[573E] 
CB14E] 
[@BOD] 
[2F38] 
[3178] 
CD@94] 
CABCEI 
CFBECI 
[FBD@] 


[D574] 


vr 


— 


[X7 





' 


TEEN 


AT. Aa BE 








Maschinensprache-Monitor 


2968 
2978 
2788 
29778 





BS,C8,37,E7,CD,BD,82,D8,22,29 
81, 37, C7,C0D,3C,82,2A,29,81,CD 
a 82,37,C9, ‚SE, 19,21,4D,i, „18 
SE, 32, 21, Ar, 2, CD,68, BC, 
23, CD,BB.92 DB. B7.ED,52,3F n@ 
ED,A2,82,EB,13,4F,71,23,1B,7A 
B3,28,F9,37,C9,CD,BD,82,D®,CD 
F4,82,3F,D8.CD,D,83,11,8,AD 
ED,53,2C,81,E,@8,CD,3,89, FD 
21,A4,AC,FE,DD,20,4,CB,C1.18 
Fi, FE! FD,20,4,. CB ‚L9.18,E9,FE 
ED,28,648,FE, CB, CA, BA,SS,CB,„?7F 
20.30, CB,77.20, 8.11,E5,BA,CD 
1B,89,18,BF,i1, A2, BA, 47,CD,.62 
BA,FD,36,80, 20, FD, 23, EB, 78, F 
F,F,CD,79,BA,FD,36,8,2C,FD 
25 ‚78, CD, 78, BA, CD, AC, 89, 18,7B 
CB, 77, ‚20,20, il, AD, BA, 47, F, F 
Fr. E&. ‚CD,Br, BA, ER,78,CD, 78 
aA, CD ÄC, 39, ie, 81, 11.797, Bi, ED 
EB,Bi, ‚CD, 2D,B2, ‚Eq, 11, ‚SC, ‚SC, ‚E& 
SF ‚CD, 1B,89, Cc3, 1, 88, CD, z, 89 
D&,48,.38,18,11, C3, SD, FE, 3C, >B 
RB, De, &0, 38, D, 11, E; BF, ‚FE,IO 
30, &4,CD,iB, 89, 63, ge 38, ED,57 
BA, c3, 1,88,CD,3, 39, 47, Eö4,CD 
20,17, 78, ti, c5, BA, F; Fr, PB, E& 
7; CD, SF, BA, 78, CD, 78, BA, EB,CD 
AC,89,C3,1.88.11,DD,BA,17.17 
17,E6,3,3D,CD,8F ,8A,78,F,F 
F,E6,7,06,38,FD,77,8,FD,23 
FD,35.,8,2ZC,FD, ae 79, CD,78,8A 
EB,CD,AC,89,C3,1,88,7E,23,F5 
ES,2A,ZC,Bi,FE, 20, 3b, 2E, 38, 1 
77, 2%. 272. 2C, ‚81, Er, ‚Ch, 1, ‚82, ‚Fi 
CF, EB, 47, B7, 2B, 8, 53,7E,FE, 1) 
38, FA.1B,F8,7E,FE,7B,28,5,CD 
REN area 
FE, 26,20, F0.60.77,.0,FD,23,1 
F9,FD,2B,FD,77,8,FD,23,23, SE 
FE,60,30,52,FE.5E,28.44, FE, 21 
28,45,FE.2A.28.12,FE.2B,28,1A 
FE,40,28,E1i „EB,FD, 77,8,FD.23 
CD,3,89,EB,FD,77.8,FD,23,EB 
CD,3.89,EB.18,CB,FD,35,0.,40 
FD,2S3, EB, CD,3,89, EB,ES, 6F, 26 
Q, 7, 30, 2,26,FF, 19, FD. 75, 1 
FD, 23 ‚7C,E1,18, "AD, ECD,11,8A,18 
ABS,CD,2C,8A.18,.A3,FD.36.0.0 
FD,21,A4 ,AC,CD.3C,82,3A,86,B2 
FE,18,38,F6,FD.7E,8,FD,23,B7 
28,2C,FE,40,28,F,FE,2A.28,1A 
FE,20,30,2,3E,25,CD,FE,81.18 
ES,FD,6E,8,FD,66,1,CD,4C,82 
FD,23,FD,23,18,Dö4,FD,7E,B,CD 
51,82,FD,25,18,CC,ES,2A,2C,8i1 
1,8,Ab,B7,ED,42,EB,CD,3C,B2 
3A,86,B2,FE,23,38,F6,A,CD,F6 
81,5,1D,28,F8,D1,C9,E5, 25,58 
2E,47,CB,41,28,A,26,57,CB,47 
20,4,26,4C,2E,48,FD,.75,8.FD 
23,7C,E1,C9,FD,35,8,28,FD,23 
CD,11,8A,FD,77,8,FD,23,FE,4C 
28,16,FD,36,8,2B,FD,23,EB,CD 
5,89,EB,FD, 36,8, 2A,FD,25,FD 


| 77,8,FD,23,3E,29,0C9,6,.4,.FD 


36,8,3F,FD.23,18,F8,C9,F5.C05 
6,.3,1A,FD,77,8,13,FD,23,18 
F7,FD,36,0,28,FD,23,C1,F1.C9 
E&,7,DD,21,45,8A,32,83,8A,DD 
7E,B,FE,21,CC,2C,8A,FD,77,8 
FD.23.C9,B7,28,6,13,13,13,3D 
28,FA,CD,62,8A,FD,36,8,28.FD 
23,09,40,44,20,42,43,44,45,48 
4C,21,41,41,44,44,41,44,43,53 
55,42,53,42,43,41,4E,44,58,4F 
52,4F,52,20,43,50,20.52,40.43 
52,52,43,52,40,20,.52,.52,28,53 
46 ,41,53,52,41,53,4C0,40,53,52 
40 ,42.49,54,52,45,53,53,45,54 
&E,4F ,50,60,44,20,42,43,2C0,40 
6C,44,20,28,42,43,29,2C,41,69 
4E,43,20,42,43,69,4E,43,28,42 
64.45.43.20,42.60.44.20,42.2C 
24,72,4C0,43,41,65,58,20,41.46 
2C.41.46.27,61.44,44.20.5E. 2 
42,43,60,44,20,41,20,28,42, 
29.64,.45,43,20.42,43,69,4E, "23 
20,43,64,45,43,20,43,60,44.20 
43.20.24,72.52.43.41,64.4A.4E 
5A,20,2B,6C0,44,20,44,45,20,4@ 
6C,44,20,28,44,45,29,2C0,41,69 
4E,43,20,44,45,69,4E,43,20,44 
64.45.43,20,.44.60,44.20.44.2C 
2A,72,4C0,41,6A,52,20,2B,61,44 
44 ,.20,5E.2C.44,45,.60,44,20,41 
2C,28,44,45,29,64,45,43,20,44 
45,69,4E,43,20,45,64,45,43,20 


 45,60,44,20,45,2C,2A,72,52,41 


6A.,92,20,4E,SA, 20, ‚2B, ‚BE. ‚44, ‚20 


[ES#FA] 
[2058] 
LEöBE] 
[4056] 
[BBBE] 
[Aar5SA] 
[CöBö] 
[28B8] 
[7558] 
LE7ZE] 
[DSSC]1 
[8F26] 
[DBB2] 
[4E58] 
E17AA] 
[8374] 
[FöA2] 
[AS?7A] 
[EA24] 
[5274] 
[4285] 
[DAAB] 
[573A] 
[8042] 
L2C7&6] 
CB584] 
[5518] 
EFZAZ] 
[SCEB] 
EAD?7B]I 
[823C] 
[89728] 
[4744] 
EBDC2]I 
[F7BOE)]I 
EF714] 
L4r3E] 
LACäC]I 
[DBö4] 
LZAEB] 
[5052] 
EFFSB] 
ECö54C] 
[(ASZ&ö] 
[SAFE] 
LACAE]I 
[F7&E] 
[FAS4) 
L190975] 
[SAA4]I 
[EDEd] 
c7535C1 
[BADCI 
[?SE8] 
[SBODC]I 
E275E] 
[5555] 
[Z21EE] 
E454A] 
L2ECCI 
[F4DE] 
LE26C] 
[835F8] 
[50856] 
[842C] 
[SFDB] 
[4825] 
[CöB4] 
[2808] 
[551C] 
[&C28] 
[8aCA] 
[FSZAEI 
[AD22] 
[BBBC]I 
[4386] 
[CECCI 
[7&6RA4] 
[F3B6] 
[B2D8] 
CBDBA] 
[DFE&] 
[SCBE] 
ED&BB] 
[DAA&] 
[DCBB] 
[CECD4] 
LESAE] 
[21E4] 
LE73E] 
[LSCF8B] 
[28D4] 
[53C8] 
[4DBE] 
CAFBO]I 
[464E8] 
[A408] 
EFSACI 
[AFAEI 
[7&Dö] 
[BEZA] 


[L i 4 
ed ae” Zu tu 2 Amt Bu u Ed ee 





DATA 





SE „2C,40,6C0,44,20,28,40,29,2C 
SE,69,4E,43,20,5E,69,4E,43,20 
48,64,45,43,20,48,60,44,20,48 
2C,2A,64,41,41,64,52,28,5A,2C 
2B,61,44,44,20,5E ,20,5E,6C0,44 


ı 28,.5E,2C,28,40,29, ‚64, 45,43,28 


SE,59,4E,43,20,4C,54,45,43,20 
40 ,6C,44,.20,40,20,2A,63,50,4C 
6A,52,20,4E,43,2C,2B,60,44,20 
53,50,2C,40,6C,44,20,28,40,29 
2C,41,59,4E,43,20,53,50,59,4E 
43,20,21,64,45,43,20,21,60,44 
20,21,20,2N,73,43,46,6A,52,20 
43.2C,2B,51.44,44,20,5E,2C0,.53 
50,60,44,20,5E,2C,28,.40,29,64 
45,43,20,53,50,69,4E,43, 20,41 
654.45,43,20,41,60,44,20,41,2C 
2A,63,43,.46,72,45,54,20,4E,5A 
70,4F ,50,20,42,43,6A,50,20,4E 
5A,2C.48,6A.50.20,40,63,41,4C 
4C,20,4E,5A,2C,40,70,55,53,48 
20,42,43,61,44,44,28,24,72,53 
54,20,30,72,45,54,20,54,72,45 
54,6N,50.20,54,20.4@,78,63,41 
4C,40,20,54,20,48,63,41,40,4C 
20.40,61.44,43.20,2A,72,53,54 
20,31,72,45,54,2@,4E,43,70,4F 
50,20,44,45,6A,50,290,4E,43,2C 
40,6F ‚55,54, 20, 2A, 2C,41,63,41 
40 ,4C,20,4E,43,2C,40,70,55,53 
48,20,44.45,73,55,42,20,2A,72 
53,54.20,32,72,45,54,20,43,65 
58,58,64,50,20,43,2C,40,67,4E 
20.41,2C.24,63.41.40,4C0,20,43 
2C,40,78,73,42,43,20,2A,72,53 
54,20,.33,72,45,54,20,50,4F ,78 
4F ‚50,20,5E ,54,50,290,50,4F ,2C 
49,65,58,20,28,53,58,29,2C,5E 
63,41,4C0,4C0,20,50,4F ,„2C,48,7® 
55,53,48,20,5E,61,4E,44,20,2A 
72,53,54,20,34,72,45,54,20,50 
45,64,50,20,28,5E,29,6A,50,28 
5g,45,20,40,65,58,20,44,45,2C 
48, ac, ‚63,41,4C,4C0,20,50,45,2C 
48,78,78,4F „52,20, 24,72,53,54 
20:5. ‚72,45,54,20,50,7@,4F ,50 
20,41,46,6A,50,20,50,2C,40,64 
49,63,41,4C,40,20,58,2C,48,70 
55,53,48,20,41,46,6F „52,28.2A 
72,53,54,208,36,72,45,54,2@,4D 
60 ,44,28,53,58,2C,5E,64,50,208 
4D,2C,48,65,49,63,41,40,4C,20 
4D,2C,40,78,63,50,20,24,72,53 
54,20,37,69,4E,20,42,20,28,43 
29 ,6F ,55,54,20,28,43,29,2C0,42 
73,42,43,20,48,4C,2C0,42,43,6C 
44,20,28,408,29,2C,42,43,6E,45 
47,72,45,54,4E,69,4D,20,30,6C 
44,20,49,2C,41,69,4E,20,43,2C 
28,43,29,6F ,55,54,20,28,43,29 
2C,43,61,44,43,20,42,43,60,44 
20,42,43,2C,28,48,29,7B,72,45 
54,49,7B,60,44,20,52,20,41,69 
4E,20,44,20,28,43,29,6F ,55,54 
20,28,43,29,20,44,73,42,43,20 
48,4C,2C,44,45,60,44.20,28,48 
29,2C,44,45,7B,7B,69,4D,20,31 
&6C,44,20.41,20,.49,69,4E,20,45 
2C,28,43,29,6F ,55,54,2@, 28,43 
29.20,45,61,44,43.20,.48,4C.2C 
44,45,60,44,20,44,45,2C0,28,40 
29.7B,7B.69,.4D,20,32.60.44.20 
41,20,52,69,4E,20,48,20,28,43 
29,6F ,55,54,20,28,43,29,20,48 
73,42,43,20,48,4C,20,48,40.6C 
44,20,28.40.29.2C.48,4C,7B.7B 
7B,72,52,44,69,4E,28,40,2C.28 
43,29,6F ,55,54,20,28,43,29,2C 
4C,61,44,43,20,48,4C,2C,48,4C 
6C,44.20,48,4C.2C,28,40,29,7B 
7B,7B,72,40,44,7B,7B,73,42,43 
20,48,4C0,2C,53,50,6C,44,20,28 
408,29,2C,53,5@0,7B,7B,7B,7B,69 


| 4+E,208,41,20C,28,43,29,4F ,55,54 


20,28,43,29,20,41,61,44,43,20 
48,4C.2C,53,50,60,44,20,53,50 
2C,28,40,29,6C0,44,49,63,50,49 
69,4E,49,6F ,55,54,49,7B,7B,7B 
7B,6C,44,44,63,50,44,69,4E,44 
6F ,55,54,44,7B,7B,7B,7B,6C,44 
49,52,63,50,49,52,69,4E,49,52 
6F ,54,49,52,7B,7B,7B,7B,6C,44 
44,52,63,50,44,52,69,4E,44,52 
6F ,54,44,52,7B,7B,7B,7B,7B,8 


MEMORY 379797 

FOR i= 32768 TO SE OENB as: POKE 
i,VAL("ER"+as):NEXT i 

SAVE"smon.bin",„b "LBOOD ,EFSF 


Listing 2. »Supermonitor CPC-1002« (Schluß) 


ET ee ET m 


CBBDA] 
[B788] 
[FBFCI 


C&DE2] 
[3SF7®1 
[5188] 
LEEC2] 
[A914] 
LED76] 
LC7AAI 
[6BBA] 
[DSC6] 
[F4ECI 
[9686] 
[6E681 
CD1DC] 
CA4FCö] 
CCFAAI 
[8084] 
LS7FE)] 
CiFC4] 
[72E2] 
[74D8] 
[CAs4]) 
LF4C4] 
LESAC] 
CSBES] 


LA7EZ] 


[C9745] 
[Bö5E] 








Tips & Tricks 








Backup muß 
nicht teuer 
sein 
Eine Sicherheitskopie auf 

Diskette ist teuer. Speichern 


Sie Ihr Backup doch einfach 
auf Kassette! 











Mit den Befehlen »TAPE« und »DISC« ist es einfach, Daten 
zwischen Recorder und Diskettenstation auszutauschen. Um- 
ständlich ist es allerdings, eine ganze Diskettenseite auf Band 

u speichern. Mit dem Befehl »CSAVE« (unter CP/M) kann man 


Er ee ne en ee een ee 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 CFFCC]I 
28 '*tc) Thomas Ärnold/Andreas Lohrum * L[43C2] 
sa '* Am Graben 25. 77BB Singen * [87880] 
20 een 7° [EFDZ] 
oa MODE 2 {F7FB] 
&8 LOCATE 35,18 [LFBAS] 
7a FRINT "BACKUP- DISC" [Ba4FCc] 
88 LOCATE 13,12 [BS5A&4] 
278 PRINT CHR$ (164) +" August 1785 by Andr 

eas Lohrum und Thomas Arnold" [BEBA] 


ı00 ’ [DEB®] 


i11@® REM INITIALISIERUNG [854C) 
128 MEMORY 1859977 £E727C] 
138 DPENOUT "dum":MEMORY HIMEM-1:CLOSEDU 

4 [6862] 
1480 DIM dir$(53) ,sdir#(&3) EF718] 
150 DEFSTR a [SSFE] 
158 DEFINT i-n [C32A] 
170 br=3&08 [F724] 


188 ' [BsC0] 


zwar jedes Programm auf Kassette überspielen, aber um eine 
Diskette mit 20 (oder mehr) Files zu überspielen, muß man 
sehr viel »Tipparbeit« machen. Hier finden Sie eine Routine, die 
eine ganze Diskette direkt auf Kassette überspielt. 


3-Zoll-Disketten kosten immer noch weit über zehn Mark. Si- 
cherheitskopien auf Kassette sind deshalb bedeutend preis- 
günstiger als Backups auf Diskette. Das hier vorgestellte Pro- 
gramm erlaubt Speichergeschwindigkeiten zwischen 1200 
und 4000 Baud. Je besser die Qualität der Kassetten ist, de- 
sto höher können Sie die Aufzeichnungsgeschwindigkeit wäh- 
len. Voreingestellt sind 3600 Baud. Um damit lesesicher Ko- 
pien zu erstellen, muß die Bandqualität allerdings sehr gut sein. 
Über eins sollte man sich allerdings im klaren sein. Der Zeitbe- 
darf für ein Backup auf Kassette istbedeutend höher als der für 
eine Sicherheitskopie auf Diskette. 


So dauert das Sichern einer ganzen Diskettenseite auch mit 
3600 Baud mehr als 10 Minuten. Doch da der Computer allein 
agiert und die Kostenersparnis sehr groß ist, wird das Pro- 
gramm viele Anhänger finden. 


(Thomas Arnold/Andreas Lohrum) 


198 REM Maschinenroutinen laden CE4D8] 
288 REM Sektor lesen’schreiben [BBBE] 
218 FOR i=1 TO 27 [BEBE] 
228 READ a LBAA2] 
238 FOKE 48959+i ,„VAL("&"+a) ESBF2] 
248 NEXT i [2EFC] 
258 REM Speichertransfer C7DAs] 
258 FOR i=1 TO 12 [C&64B8] 
278 READ a [BSAACI 
288 FOKE 408499+i „VAL("R"+a) LF3FE] 
290 NEXT i CAS5Bs&] 

>28 gen Satz von/auf Band lesen/schreibe 
L4DCA] 
318 FOR i=1 TO 12 [6&5B0] 
3528 READ a [BF7A4] 
338 2: 49499+i ,VAL(Ü"%"+a) [3BF2] 
348 NEXT LEBFE] 
358 REM Schreibgeschwindigkeit [8165A] 
ssB FOR i=1 TO ? [BEö&] 
>78 READ a CDI1AE]I 
>88 POKE 48599+i „VAL("R"+a) CBAFE] 
398 NEXT i [34988] 
“88 CALL 48408 [15D4] 
210 [4?BB] 
4728 REM Menue [E?5B] 
4308 CLS [7A32] 
440 LOCATE Beet PRINT "BACKUP-DISC" [CBAQ4] 

458 LOCATE 1,4:PRINT "Bitte waehlen Sie: 
[EBBB8] 

458 LOCATE 28,5:PRINT "Diskette auf Band 
sichern{11SFACE +1)" [F23A] 

478 LOCATE 28,8:PRINT "Band auf Diskette 
zurueckschreiben {2SPACE }(2)" [BBA2] 

488 LOCATE 28,12:PRINT "Programm beenden 
{2BSPACE 314)" CASD&ö] 

298 LOCATE 28,18:PRINT "Baudrate aendern 
{2BSPACE }Y13)" C4BEB] 

5a8 LOCATE 28,14:PRINT "Eingestellte Bau 
drate ":br" Baud" [BECE] 
518 a=INKEY# L71FB] 





528 IF a="4" THEN CLS: !DISC:END CBC4E] 
5358 IF a<>"1" AND a<>"2" AND a<>"3" THEN 

51 [CBBA] 
548 IF a="3" THEN 22978 [F672] 
5s5@ LOCATE 11,18:PRINT "Bitte legen Sie 

Band und Diskette ein." [74F&] 
54B IF a="1" THEN 598 ELSE 818 [DD18] 
s7’0 LCE3C&] 
58B REM auf Band sichern L[483C] 
598 !TAPE.OUT: !DISC.IN [B158] 
588 LOCATE 11,28: PRINT"Druecken Sie PLAY 

und RECORD, dann [ENTER]" [3AB4] 
&18 WHILE INKEY#+< >CHR# (13) : WEND [AEiB] 
628 CLS [FB34] 
538 GOSUB 1858 [244E] 
5480 REM Adressen poken [2258] 
5580 FOKE 4997868 ,%84 CbBAA]I 
44B POKE 48783,&11 LCıiF?7A] 
478 POKE 40704 ,%21 [5484] 
4808 FOKE 48509,%9E LiBBE] 
5980 FOR i=B TO 7 [47&C] 
788 FOR i=B TOD 4 LE458] 
718 FOR k=-1 TO 7 [BB&öB] 
7208 GOSUB 1558: REM Sektor le 

sen [5D25] 
738 GOSUB 1778:REM Sektor ko 

pieren CASBB] 
7a8 NEXT k [CBABA] 
758 NEXT j [DF@OA] 
7608 CALL 49508 :REM Satz auf 

Band schreiben C592C] 
770 NEXT i [328C)3 
’88a GOTO 438 [FDSE] 
7978 C7ICE] 
BBG REM Band auf Diskette zurueckschreib 

en [7B&aCc] 
818 :TAPE. IN: !:DISC.OUT [81456] 
828 LOCATE 11,282: I SE I AUEREN Sie PLAY 

;„ dann CENTER [DF32] 
830 WHILE sie [Ba28] 
848 GOTO 2128 [42B4] 
850 REM Adressen poken [5264] 
848 FOKE 407868,%85 [C2CB2] 
870 FOKE 49703,.%21 [1482] 
B88 FOKE 49705,%11 [8188] 
878 FOKE 44507, Al C77ACI 
900 FOR i=B TO 7? [3858] 
910 CALL 495008 :REM Satz vom 

Band lesen T4E1A] 
920 FÜR i=-B TO [CAB&8] 
930 FOR k=1 "To Ir [aD?7®] 


Listing. Preiswerte FREE 
mit »BACKDISC« 





. 
. 
u pn nen. . a a a a — 


En a A ud = 


ar B- > Rulzaiıt 








GOSUB 177B8:REM Sektor ko 


GOSUB 1558: REM Sektor sc 


990 SOTO 430 


1228 


1258 
1248 


1258 
1258 


1278 
1289 


12978 
1308 
1318 
1328 
13358 
1540 


1368 
1370 


1388 


13978 
1488 
1410 
1428 
1438 
1440 
1458 
14650 
1470 
1488 
14970 


1518 
1528 
1538 
1540 
1558 


1568 
1578 
1588 
15978 
1520 


1618 
1628 
1538 
1540 
1658 
1560 
1578 


1698 


1780 
1718 
1728 
1730 
1748 
17580 


REM Data fuer Sektor lesen 
DATA 21,1c,aßd 

DATA cd,d4,bc 

DATA 22,1d,ad 

DATA 79 

DATA 32,1f,a® 

DATA 21,20,a0 

DATA Se 

DATA 23 

DATA 55 

DATA 23 

DATA 4e 

DATA 21,3B0,ad 
DATA df 

DATA 1d,2398,c09,84 
REM 1d hl ,%kaßlic 
mmandos) 

REM call %bcd4 (Vektor &%bcd4) 
rg ld (kaßlid),hl (Adresse sicher 
[g) 


REM 1d a,c 
a) 
REM 1d (kaBif),a 
REM 1d hl ,&a028 
Sektornummern usw. 


REM 1d e,„t{hl) 
nach e) 

REM inc hl 

REM 1d d,thl) 

h d) 

REM inc hl 

REM 1d c,„{hl) 

it Offset nach c) 
REM 1d h1 ,&ad38 

REM rst &18 

uf) 

REM 4 DATEN-BYTES 


(Adresse des Ko 


(Romselect nach 


(Adresse ab der 
gepoked werden) 


{Laufwerknummer 
{(Spurnummer nac 


(Sektornummer m 


(Bufferanfang) 
(ruft Routine a 


REM Data fuer Ldir 
DATA 81,200,02 
DATA 11,658,42 
DATA 21,38,a0 
DATA ed,ba 

DATA c? 

REM 1d bc,512 


REM 
ird 
REM 
REM 
REM 


REM Data fuer 
DATA Z3e.i1öd 
DATA 11,20,5a 
DATA 21,58.42 
DATA cd,Fe,bc 
DATA c#? 

REM 1d a,&1& 
| ld de .%5a0d8 
ld h1,17B208 
call &bc9e 

I ret 


(Bufferlaenge) 


ld de,17808 (Zieladresse w 
jeweils neu gepoked) 

Id hl1,Bufferanfang 

idir 

ret 


Satz Schreiben 


(Satzkennzeichen) 
(Laenge) 

(Anfang) 

(Satz schreiben) 


Data fuer Schreiboeschwindiokei 


DATA 21,5d,88 

DATA Fe,Qa 
DATA cd,58,bc 

DATA c# 

REM 1d hl „BQ5Sd 
Nullbits) 

REM 1d a,%ka 

REM call %bcöB 
REM ret 


(Laenge des halben 


(Vorprueflaenge) 
(Set Speed CAS) 


REM Sektor lesen/schreiben 

FOKE 48772,8 :REM Drive 2 
FOEKE 48995.1#5#j :REM Track 
FOEE 4989974, k+64 :REM Sektor 
CALL 4099758 :REM Sektor le 
sen/schreiben 

LOCATE 11,24 

FRINT "Track ": 

PRINT USING "##":1i1#5+j: 

FRINT "{i2SPACE wird kopiert !" 
RETURN 


ine: “lc 


\ Tr VRR Is De Dee 














[7588] 
C&DBö] 


[COFE] 


L4B92] 
[ABDBS]I 


L77A4] 


[öFAB] 
C8F38] 


[647A] 
[C4B34] 


L78F8] 
[A7SC]I 
[C116] 
[D2C8] 
[7516] 
CD5CBE] 
[FB36] 
L445E] 
[2BA2] 


LFES4] 
[8C88] 


CBCFE] 


[5752] 
CE14C] 
[7828] 
[DF&A] 
L771C] 
[425A] 
[BBFCI 
ESFAB] 
[DB58] 
[7758] 
[2485] 
[C742] 
[DEF] 
cC55E] 
ES4AE] 
[1378] 
[7322] 


[12AB] 
LECB4] 
[S8FB] 
[A4F4]) 
[ar8A]I 


[SDD4] 


CAEBCI 
CADs8] 
[3354] 
[4534] 
C2B62] 
[8098] 
[9628] 





REM Sektor kopieren 

zs=17BB0+ j#45B8+(k-1) #512 
zs#=HEXF (zs) 

FOKE 49704 „VAL("&"+MID$(zs#,3,2)) 
FOKE 48785,VAL("&"+MID$ (zs#,1,2)) 
CALL 487008 

RETURN 


REM Directory auslesen und als Date 
i auf Band schreiben 
m=PEEK (&BBSA) :POKE &BB5A,&CF: CAT:FO 
KE &BB5A,m 
num=PEEK (43282) 
b=14753 
FOR i=@ TO 43 
dir#Fti)=STRING#F(11," ") 
NEXT i 
FOR i=8 TO num 
POKE ®edir#(i)+1,b-{INT (b/256) #2 
56) 


FOKE ®@edir#(i)+2,INT(b/256) 
b=b+14 
NEXT i 
REM ner N eagisnich dun 
FOR i=8 TO 
IF ASC(LEFTS(dirs(i), i)}=8 THEN 
2038 
dir#(ti)=LEFT#(dir#(i),B)+". 
GHT#Fidir#(i),3) 
PRINT dir#(i), 
sdir#ti)l=dir#li) 
NEXT 
DPENOUT "!dir" 
FOR j=B TOD i-i 
FRINT#7,sdir#(j) 


ELOSEOUT 
RETURN 
END 


"+RI 


d NEXT 


REM Directory einlesen und auf Bild 
schirm ausgeben 
ECLS 
OPENIN"'!dir" 
z=B 
WHILE NOT EOF 
z=z+1 
INPUT#F ,df 
PRINT #08,USING"\{12SPACE }’\":d# 
IF z=5 THEN z=d:FRINT 
WEND 
CLOSEIN 
FRINT:FRINT:FRINT"Wirklich zuruecks 
chreiben auf Diskette J/N ”7" 
a=INKEYf: IF a="" THEN 2238 
a=UPPER# (a) 
IF a<>"J" AND a<>"N" THEN 22398 
- a="J]" THEN GOTOD 848 ELSE GOTO 43 


REM Baudrate aendern 
ECLS 
FRINT "Folgende Baudraten sind moeg 
lich:" 
PRINT 
FOR i=-i TO B 
PRINT "t12SPACE 3":i"." 
20:" Baud" 


‚„lirz)e=4 


NEXT i 

PRINT:FRINT"Bitte druecken Sie die 
Ziffer, die vor der gemuenschten Ba 
udrate steht." 
a=INKEY#: IF a="" THEN 27568 

n=ASC (a) 

IF n{49 OR n>56 THEN 23558 

nb1l2=INT (1280088 / ( (n-46) #12088) +9.5) 


=INT (nb12/25&) 
lb=nbl2-hb#255 
POEKE 40601,1b:FOKE 485482,hb 
CALL 406008 
br=in-45) #408 
GOTO 438 
END 


Listing. Preiswerte Sicherheitskopien 


mit »BACKDISC« (Schluß) 








LFBCE]I 


[C926] 
[8878] 


ESAF2] 
L?7FEA] 
[AB2A] 
[854534] 


[BEF&] 


[BB&ö2] 
[CC18] 
C7BFE] 
CB46E] 
[CE434] 
(43021 


[2C08] 


[E&s4A] 
[6AB@] 
LAB9A]I 
[FD45] 
[14A6] 
C93DCI 
CBS1A] 
LAS&2] 
[C4FAE] 
[0194] 
[0584] 
CBC14] 


[ABC] 
LiABE] 
[8BA&ö] 
[2D9C] 
[15D8] 
[FDEC] 
[FB14] 


[BEZE] 
[8948] 
[5E24] 
[77E4] 


[A&BA]I 
[&C54] 
[4108] 
EFB&SE] 


[7288] 
[7724] 
[362A] 
[719E] 


[2848] 
[C7E&] 
Li9C8] 
[4216] 
[Böö2] 


[8884] 
[ECö4] 
£C1D48] 
CEECA]I 


[FD4E] 


[4286] 
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Versteckte 
Bytes 


Ein Speicherbereich, der 
auch bei Reset nicht ge- 

! löscht wird, ist ideal für 

_ 7 | Hilfsroutinen. Im Parameter- 

bereich des Basic-Interpreters 

findet sich dafür ein freier Platz. 





Beim Schneider CPC 464 sind 512 Byte ab der Adresse 
AE8B hex für Parameter des Basic-Interpreters reserviert. Die- 
se Parameter (für GOSUB-Aufrufe, FOR...NEXT... - und WHI- 
LE...WEND-Schleifen, Adressen von AFTER- und EVERY-Be- 
fehlen und so weiter) liegen auf einem Stapel, der mit einem 
Zeiger (an den Adressen BO8B und BOSC hex) verwaltet wird. 

Dieser Bereich zählt zum Betriebssystem und wird deshalb 
auch bei einem Reset nicht gelöscht. Probieren Sie einmal fol- 
gende Befehlsfolge aus: Mit »PRINT PEEK(&AF10)« (direkt 
nach dem Einschalten) bekommen Sie auf dem Bildschirm den 
Wert »O« ausgegeben. Mit »POKE &AF10,10« steht an dieser 
Stelle eine »10« (testen mit »PRINT PEEK(&AF10)«). Setzen 
Sie jetzt den Computer durch gleichzeitiges Drücken der drei 
Tasten Ctrl, Shift und Esc zurück. Mit »PRINT PEEK(&AF10)« 
bekommen Sie wieder die »10« auf den Bildschirm und nicht ei- 
ne »0«, wie nach dem Einschalten. 

Normalerweise sollte man in diesen Bereich des Betriebssy- 
stems nichts schreiben, da das zum System-Absturz führen 
kann. Der Basic-Interpreter des Schneider CPC 464 belegt 
aber nur 119 der 512 reservierten Bytes tatsächlich und so 
kann man ab der Adresse AFOO hex (bis BO89 hex) eigene 
Maschinencode-Programme ablegen. 393 Bytes sindalso frei 
für Hilfsroutinen, die erst mit Ausschalten des Computers ge- 
öscht werden. Da der Interpreter seine Parameter von unten 
her (das heißt ab Adresse AE8B hex) ablegt, ist es sinnvoll, die 
Programme möglichst weit oben in den geschützten Bereich 
zu stellen. Die letzte Adresse sollte zwischen BO80 und BO89 
hex liegen. 


(Oliver Harms) 





Gläserne 
Firmware 


Ein RSX-Befehl — und schon 
kann jede Routine im Spei- 
cher des Schneiders pro- 
blemlos untersucht werden. 


Wer kennt das Problem nicht? Man will eine Firmware-Routi- 
ne kurz ausprobieren, muß aber verschiedene Register mit be- 
stimmten Werten laden. Dies geht nur mit einem kleinen Ma- 
chinencode-Programm — oder mit dem RSX-Befehl »USR«. 











". F FR k 
A EL + 


| 28 + 





Tips & Tricks 


Als Parameter muß die Start-Adresse übergeben werden, da- 
mit die betreffende Routine ausgeführt wird. Dies kann man 
zwar auch mit dem Basic-Befehl »CALL Adresse« erreichen, 
aber dieser erlaubt es nicht, die Register des Z80 zu laden. Die 
meisten Firmware-Programme arbeiten aber in Abhängigkeit 
dieser Register, so daß es zum Ausprobieren (und Kennenler- 
nen) der Routinen wichtig ist, die Register zu manipulieren. 

Den »USR«-Befehl gibt es in zwei verschiedenen Formaten. 
Mit »IUSR,Adresse« wird eine Routine ohne vorheriges Setzen 
der Register abgearbeitet. Befindet sich die Adresse zwischen 
4000 und BFFF hex, so liegt das Maschinenprogramm im 
RAM, in allen anderen Fällen (0000 bis 3FFF hex und CO0O 
bis FFFF hex) im ROM. Nach Ende der Routine befindet sich 
der Computer wieder im normalen Eingabemodus. 

Mit »IUSR,Adresse,A,B,DE, HL,x« werden die Register A, B, 
DE und HL zuerst mit den übergebenen Werten geladen, bevor 
die Startadresse aufgerufen wird. In Abhängigkeit von der Va- 
riablen x werden die Registerwerte nach dem Bearbeiten der 
Routine ausgegeben (x=1) oder nicht (x=0O). Ein Beispiel: 
»|USR,&BB18« wartet auf einen Tastendruck. »IUSR,&BB18,0, 
0,0,0,1« wartet auf einen Tastendruck und gibt im Register A 
den ASCIl-Wert der gedrückten Taste aus. Was für Wertein den 
Registern sinnvoll sind und welche Informationen zurückgege- 
ben werden, das entnehmen Sie dem Firmware-Buch für den 
Schneider. Das Programm wird mit dem Basic-Lader installiert 
und beginnt bei Adresse A4CA hex. 


(Erik Pfeiffer) 


12. HH [LIFCC]I 
(c) Erik Pfeiffer * [BS45] 
3a '# Spreenweg 5, 2888 Noderstedt 1 * L[LiBFC] 
42 CEFD2] 
sa FOR i=1 TO 4354:READ a:b=b+a:NEXT: IF b 
247747 THEN PRINT "Fehler '!":END 
ö8 FRINT"OK":RESTORE 
’/B8 b=&.A4CA: MEMORY b-1:FOR i=b TO &AA7B:R 
EAD a:FOKE i,azNEXT:CÄLL b:NEW 
| 88 DATA 1,211,1654,33,119,156,195,207,188 
‚215,164,24,4,85,83,218,0,254,6,48,59 
‚254,1,32, 15,221,119,0,221,102,1,34, 
117,1684,62,8,58,123,1568,24,72,33,8,16 
5,6,26,126,205,90,187,35,18,249,201,8 
a LE al a EL 0 unse nu ul si 


DATA 114,32,111,1@2,32,112,97,114,97, 
189,101,116,1@1,114,115,221,1264,8,50, 
123,166, 221,11@,10,221,1@2,11,34,117, 
166,221,110,2,221,1@2,3,221,94,4,221. 
86,5,221,70,6,221,126,8,223.117,166,5 
0,117,166,58,123,166,254,0,200,58,117 

‚166,229,213 [BER] 
1808 DATA 197,245,62,4,58,105,166,62,13,2 
25,790,187,62,10,205,90,187,62,65,285 
‚7@,187,62,32,205,70,187,62,61,205,9 
8,187,241,111,38,0,245,285,112,166.2 


[525C] 
[&79E] 


[7B9A] 


[373E] 


41,111,39,0,205,47,166.62,10,205,90, 


187,62,13,205,90,187,62,66,205,90,18 
7,62,32,205 
DATA 90,187,62,61,2@5,90,187,193,1084 
‚38,8,197,2@5,112,166,193,184,38,0,2 
05,47,166,62,2,58,185,166.62,18,2085, 
90,187,62,13,205,90,197,62,68, 205,90 
‚187,62,69,205,70,187,62,61,205,70,1 
87,209,213,235,205,57,166,225,205,23 
8,165,225,62,18 

ı DATA 205,90,187,62,13,205,98,187,62, 
72,205,70,187,62,76,205,90,187,62,61 
‚205,90,187, 229,205,57,166,225,205, 
238,165,281,205,1@2,1664,62,38, 205,78 
‚187,17,0,15,205,15, 165,17,8,1,205, 
15,166,17,16,0,285,15,166,17,1,8,205 
‚15,166,201 
DATA 205,193,189,77,6,0,33,31,166,9, 
126,205,98,187,235,201,48,49,50,51,5 
2,53,54,55,56,57,65,66,67,68,69.70.2 
05,102,166,62,38,205,90,187,24,201,2 
25.1@2,166,17,16,39,205,91,166,17,23 
2,3,205,71,166,17,100,0,205,971,166,1 


7,18 
DATA 0,205,91,166,17,1,0,225,91,166, 
201 ,205,193,189,125,198,48,205,90,18 
7,235,201,62,32,6,2,205,90,187,16,25 
1,281,205,102,166,24,211,16,187,252, 
156,211,164,1 


Listing. Der Basic-Lader für »USR« 


[443E] 


[7D18] 


[8952] 


rw 


{ 
4 
F 
| 
| 
| 








188 
118 
129 
158 








ee 


nd Tee 
- er —. 





Listing 1. Ein Schritt in Richtung »Künstliche Intelligenz«: 





FRINT STRING$ (88, 
3 PRINT STRING#$ (28, 1 
985 by BERNISOFT {2SPACE +"; STRING#$ (27 


Tips & Tricks 


Basic-Zeilen 
automatisch 
erzeugt 


Eine Routine, die neue 
ı Basic-Zeilen automatisch 


in das laufende Pro- 
gramm einfügt, ist für 





ge 5 2 22 22 er me See 2 2 2 2 2 2 2 2 2 22 2 2 22 2 
‘# (ic) Bernhard Straub * 
"=An der Tagmess 13, 75688 Offenburg* 
Me 2 2 2 2 20202 2 2 2 2 2 2 2 2 2 2 2 2 2 27 2 2 2 2 2 2 2 2 2 2 2 2 2 2 
MODE 2 

| PRINT STRING$ (88, 
PRINT STRING$ (32, 


el ) = 

"gu)3"{2SPACE IP U T 
L I N E{2SPACE }"5STRING$(31,"*"); 
nyy I); 

"4");"{2SPACE }(c) 


gu) 
FRINT STRING$(89,"*") 

PRINT"RSX Basic-Befehl PUTLINE zur" 
PRINT" automatischen FProgrammzeilen" 
FRINT"Generierung. " 

PRINT 

PRINT"Basicloader erzeugt Maschinenc 


ode. ' 

PRINT"Startadresse: &A4BBTSSPACE 

dadresse: EA4F7B" 

PRIN 

PRINT*Befshisformatı“ 

PRINT" IPUTLINE,<Zeilennummer >, @7Stri 

ngvariable>" 

PRINT: PRINT 

PRINT "Bitte nicht stoeren, 
ncode wird gepokt'!!'" 

FOR ee TO &A48D 
READ mc# 

me=V AL ("&"+mc#) 
pruef=pruef+mc 

POKE adresse,mc 

NEXT 

IF pruef<>151354 THEN PRINT "Sie habe 
n leider einen Fehler beim Abtippen 

SRSEEHE bitte ueberpruefen'!":END 

INT "Alles okay!":PRINT 

INPUT "Wollen Sie den Maschinencode 
abSAVEn ? (j/n) "„frage* 

IF UPPER$ (frage$)<>"J" THEN END 
INPUT "Weiche Geschwindigkeit ? {8/1 
) "„geschw 

IF geschw“ >@ AND geschw“>1 THEN GOTO 
328 

SPEED WRITE geschw 

SAVE Ne Rn, &.A400,&70 


+En 


Maschine 


DATA 81,09,A4,21,165,A4,C3,D1,BC,BE,A 
4,03,1A,A4,50,55 

DATA 54,4C,49,4E,C5,00,20,20,20,200,D 
F,1D,A4,28,A4)FD 

DATA FE,@2,28,25,1E,02,C03,94,CA,2A,8 
B,B®,22,8E,A4,DD 

DATA 65,83,DD,6E,82,CD,@D,FF,CD,82,E 
E,E5,BE,80,7E,B7 

DATA’ 28,04, 23,0C,18,F8,E1,86,00,11,A 
4,AC,ED,BO,3E,20 

DATA 12,13,DD,66,81,DD,6E,80,E5,DD,E 
1,DD,4E,88,DD,66 

DATA 82,DD,4E,B1,ED,B@,AF,12,21,3A,B 
D,36,F1,23,36,09 

DATA 21,A4,AC,CD,B8,C0,21,3A,BD,36,C 
F,23,36,98,2A,BE 

DATA A4,22,8B, Be, ED,7B,77,AE,2A,75,A 

‚C3,8B,DD 


»PUTLINE« 








viele Zwecke praktisch und wichtig. 


EF?FCCI 
[cC4978] 
[Z2CAE] 
LE?D2] 
[F7FB] 
[CD78] 


LFE3E] 
CB17C] 


[Cö7B] 
CE258] 
LiC6E] 
[35CA] 
L1ESC]I 
(F184] 


[62BA] 
LCEFFCI 
[428A] 
[BEBC]I 


[84D8] 
[LA4BC] 


[CDAA4] 


[27B2] 


LAAFA] 
[?5Bö] 


[77CE] 
[BC58] 
[72E8] 
[BSB8] 
EDDIiC]I 
[AB22] 
CE71A] 
C47FA] 
[1774] 
C4BFA] 
L4AFA] 
[FCA2] 
[79778] 
[ECcAA] 
[CAFB] 





70 _® 2 20 Sue 


“= 


Der RSX-Befehl »PUTLINE« erzeugt aus einem String eine’ 
Programmzeile und fügt diese automatisch in die laufende’ 
Routine ein. Damit kann sich ein Programm selbst verändern. 
Die RSX-Anweisung braucht als Parameter nur die Zeilennum-? 
mer des neuen Befehls und in einem String, die zu kreierende° 
Anweisung. Die Syntax ist damit denkbar einfach: »IPUTLI- 
NE,Zeilennummer,String«. Zuvor muß die Routine für PUTLINE 
allerdings mit »CALL &A400« eingebunden werden. 

Der Basic-Lader aus Listing 1 installiert die RSX-Anweisung. 
Listing 2 zeigt ein Beispiel (anhand eines DATA-Generators), 
wie man den PUTLINE-Befehl sinnvollnutzen kann. Für alle, die 
diese Routine verschieben wollen: Die Maschinencode-Be- 
fehle liegen ab der Adresse A400 hex. 

Mit dem Befehl »PUTLINE« kann man Programme schreiben, 
die sich selbst verändern. Beispielsweise könnte ein Grafik- 
Programm für allgemeine mathematische Funktionen den zu 
bearbeitenden Graphen als »DEF FN«-Befehl in das Programm’ 
einfügen. Die Zeilen dazu müßten so aussehen: 


100 INPUT * Funktion f(x)= ",‚f$ 
110 Zeile$= "DEF FN fix)="+f$ 
120 IPUTLINE,200, Zeile$ 


Nach »RUN« steht die Funktion in Zeile 200. 
(Bernhard Straub) 


CDBE4] 
[BOFFE)] 
[SAFC]I 
[C48FB] 
[CASA] 
[8F&68] 

[Z25SfC] 5% 


L7@C8] 

[D1BB] 
= ", 

[5SCA2] 

[E28C] 


[DiB4] 
DATA-Zei lennummer {45P 
[BAF2] 


[E884] 
[2D45] 


[4115] 

DIM z$(laenge-1),x*(zeilenzahl) [B?74] 
ELS:LOCATE 32,12:PRINT"- bitte warte 

n —" [331E] 

' FOR i=8 TO laenge-i [BS88] 

z#ti)="&"+HEX$F(PEEK (von+i) 2) [CBBE2] 

[&CE4] 


[SCE&] 
[arFiA] 
[D888] 
[6456] 


"DATA maker 
"D 9/85 by Wolfoang A. Jaeger 
Fostfach 1731 
D-74088 Offenburg 1 
Tel. 8781/78258 
MEMORY «A4BB-1:MODE 2:LOCATE 1,8 
LOAD" 'putline":CALL #A4DB 
PRINT: INPUT"Anfangsadresse{f1iBSPACE }= 
"„.von 
 von=von-55535% (von<Bß) 
FRINT: INPUT"Endadresse {145PACE 
bis 
bis=bis-555364#(bis<B) 
IF bis<von THEN LOCATE 1,12:60T0 188 


118 
128 
138 ee 
ACE }= " 

IF ER THEN 
oOTO 138 


LOCATE 1,12:PRINT;:6G 


PRINT: INPUT"Abstand der DATA-IZeilen 
= "ab 
| laenge=bis-von+1:zeilenzahl=INT (laen 
ge/18)-(laenge/iß<>INT(laenge/1B)) 


k=1 TO zeilenzahl:x#{ik)="DATA ": 


k=B 
FOR i=@ TO laenge-1i 
IF i MOD 18=8 THEN k=k+1 
IF i MOD 18=7 OR i=laenge-i1 THEN 


x»#ik)=4#cCk)+tz$li):GOTO 288 
»Fik)extik)+zsti)+t"," 
NEXT i 
k=1 
IPUTLINE „ab#(k-1) +nr „&x$(k) 
IF k<zeilenzahl THEN k=k+1:60T0 308 
PEN 1:CLS5: CLEAR: END 


[FD48] 
[5888] 
E4FB4] 
LE328] 
[61A4] 
[BEB8] 
[B3S6E] 


Listing 2. Mit »PUTLINE« kann der Datengenerator 
»DATAGEN« sehr einfach realisiert werden 








| ENDLICH KANN Sch I — > 
MICH »HAPPY« 
NENNEN. 


seien 
a 


re ee ee 
VEZEEERE Er 


a a Er 





Mein ‚Sonderheft Schn ider 


= Bun re 


a Ai ; 








Vier statt zwei 


Um vier Farben in ein Zei- 
chen zu bekommen muß 
man den Aufbau des Bild 
speichers kennen. Die Rou- 
tine »Farbenpoke« macht es einfach, 
den Bildschirm farbig zu gestalten. 


Nach dem Befehl »MODE 1« kann man vier verschiedene 
Farben gleichzeitig auf den Bildschirm bringen, mit den Basic- 
Befehlen PEN und PAPER aber nur zwei pro Zeichenmatrix 
(8 x 8 Punkte). Der Befehl POKE erlaubt das direkte Beschrei- 
ben des Bildspeichers und das auch mit vier Farben in einem 
Zeichen. 

Den Zusammenhang zwischen dem Wert eines Bytes im 
Bildspeicher und der Farbe auf dem Monitor erkennen Sie am 
leichtesten mit dem Programm aus Listing 1. Wie Sie sehen, 
Segen Adressen untereinander liegender Pixelreihen genau 
2048 (800 hex) Bytes auseinander. Im Modus 1 werden zwei 
Adressen für eine Pixelreihe benötigt. 

Ändern Sie nun die Farbe (beispielsweise mit »PEN 3« oder 
»PAPER 2«) und lassen die zwei Zeilen noch einmal bearbei- 
ten, so ändern sich zwar die Werte, aber das »a« bleibt immer 
erkennbar. Am einfachsten erkennt man den Zusammenhang 
in Bild 1. Die niederwertigen Bits (O bis 3) werden unter die hö- 
herwertigen (4 bis 7) geschrieben. Eine »1« zeigt einen gesetz- 
ten Wert an, eine »0« einen ungesetzten. Die Wertigkeit eines 
Bits berechnet sich aus der Bitnummer zur Basis 2 potenziert 
(zum Beispiel hat Bit 6 die Wertigkeit 2° = 64). Bildet man nun 
die Spaltensummen (immer wenn ein Bit gesetzt ist, dessen 
Wert addiert) und zählt diese zusammen, so hat man den Wert, 
den der Computer zur Farbinterpretation braucht. In unserem 
Beispiel bekommt das Byte den Wert 83. Mit dem Befehl »MO- 
DE 1:POKE &C000,83:L0CATE 1,2« sehen Sie in der oberen 
inken Ecke des Bildschirms vier Punkte in den Farben 0, 1, 2 
und 3. In der Spalte a ist weder oben, noch unten ein Bit ge- 
setzt (ergibt Farbe O), in den Spalten b und c ist jeweils ein Bit 
(oben oder unten) gleich 1 (Farbe 1 oder 2), während in der 
Spalte d beide Bits gesetzt sind (Farbe 3). 

Mathematisch Kahr A man das ganze so ausdrücken: 





erscheint nur r.bei der Spaltensumme 0 
erscheint, wenn sich die Spaltensumme als ein 
Vielfaches von 16 darstellen läßt 


erscheint, wenn die Spaltensumme 1, 2, 4 

oder 8 beträgt 

erscheint, wenn die Spaltensumme ein Vielfaches 
von 17 beträgt 





Mit diesem Wissen können Sie sehr einfach vierfarbige Zei- 
chen darstellen. Damit Sie aber nicht sämtliche Adressen und 
Werte umständlich berechnen müssen, nimmt Ihnen Listing 2 
diese Arbeit ab. (Thomas Dröge) 





"Bitnummer z 
Wert 


' Bitnummer 


oulo=|» 
onl=-olo 
--lounlo 
-o/-»2la 


; Wert 


Bild 1. Die rechte und die linke Hälfte eines Bytes ergeben 
die Farbe für vier Bildpunkte 


iB MODE 1:LOCATE i, 


Tips & Tricks 


1:FRINT "a":PRINT 


28 FOR t=%CBod TO %FBRd STEF &8B0: PRINT 


BIN$(PEEK(t)},8) „BIN$(PEEK(t+1),B):NEX 
Tt 


C74D4] 


[8918] 


Listing 1. Im Bildspeicher sind die Farben codiert abgelegt 


98 


EREEHREHEEETER ER HERRRTENHTHTENENETNENENR 
'"# (c) Thomas Droege E 

+ Hohenzollernstr. 18 

"+ 4700 Hamm 1 

Er Sn 0 5 2 2 2 2 2 2 2 2 2 2 2 0 2 2 0 0 0 5 2 200 2 003000002020; 


@ DIM w(2,8):MODE 1:FOR i=1 TO 8:LDCATE 


1,1: PRINT i". Pixelreihe des Zeichen 
s":FOR t=1 TO 4:LOCATE 1,5 
FPRINT"Farbe fuer "t". Fixel ":;:INPUT 
farbe: IF farbeiß OR farbe>3 THEN 7BE 
LSE ON farbe+i1 GOTO 118,808,790,108 

s=2*(8-t):60TD 11® 
s=?*"(4-t):G6G0OTD 118 


180 s=2*(4-t) +2” (8-t) a 
11@ wiil,i)swtil,i)+s:s=Q:NEXT:s=8:FOR t=5 


d LOCATE i1,7:PRINT"welche 


TO 8:L0CATE 1,5 
PRINT"Farbe fuer "t". Fixel ";:INPUT 
farbe: IF farbeißd OR farbe>3 THEN 12 
a ELSE ON farbe+ti GOTO 15B,138,14®8,1i 


58 

s=2"(12-t):G6OT0O 158 

s=2*(8-t):GOTO 150 
s=2*"i(B8-t) +2” t12-t) 
wi2,i)=w(2,i)+s:s=d: NEXT: s=-B: NEXT 
Koordinaten 
soll Ihr Zeichen haben 7": INPUT"»x-Ko 
ordinate ":x:IF x<1 OR x>4B THEN 178 


INPUT"y-Koordinate ";y:IF y<i1 DR vy>2 
5 THEN 188 

MODE 1:FPRINT"das Zeichen : ":sp=49715 
i+(v-1)*88+x*#2-1:FOR i=1 TOD B:POKE & 
CB28+ti-1)*%:8008,w(1,i):POKE LC929+ti 


EFFCCI 
ECBö4] 
[B&46C] 
E33SFC] 
[87D4] 


[CBCA] 


[ZECE] 
[LAAZE] 
LFEZB] 
[L28F8] 


LF478] 


[6742] 
[BEE&ö] 
[85972] 
[ABB] 
[8DACI 


[F856] 
[F4DA] 


[7405] 


Programm? 





-1)#&820 ,w(2,i})=NEXT 
LOCATE 1,3:PRINT"die Werte:":FOR i>-1 
TO 8:LOCATE 1,4+i:PRINT"RX"BINF (WI 
‚i),8);3:PRINT"{2 SPACE}"w(1,i}):LOCAT 
E 28,4+i :PRINT"&X"BINS (W(2,1),8)"f2 
SPACE} ' 'wi2,i)=NEXT 
PRINT:PRINT"Die Speicherstellen : ": 
FPRINT:FOR i=1 TO 8:FRINT sp+tli- -1)*20 
48"i2 SPACE}"HEXF (sp+ (i— 1)#204B) "i{2 
SPACE}"sp+(i-1)*2048+1"{2 SPACE}"HEX 
#(sp+tii-1)#2B48B+1):NEXT 


[CBC7A] 


IFFD6] 


| Listing 2. Ohne viel zu berechnen, kann man mit »Farben- 





poke« vierfarbige Zeichen auf den Bildschirm bringen 


Wo ist das 











Auf irgendeiner Diskette ist 
x,» | das Programm, das man 
(0 sucht. Aber auf welcher? 


& | Mit einer sortierten Liste 
sämtlicher Dateien gehört diese 
Suche der Vergangenheit an. 


Der CAT-Befehl des Schneider wird bei diesem Listing für 
neue Aufgaben genutzt. Mit ihm lassen sich Inhaltsverzeich- 
nisse von verschiedenen Disketten lesen und sortiert aus- 
drucken. Die Programmnamen werden alphabetisch geordnet, 
können gespeichert und die Liste jederzeit aktualisiert werden. 
Im Ausdruck (auf dem Drucker oder dem Bildschirm) findet 
man zu jedem Namen die Diskette, auf der das Programm 
steht. (Werner Renziehausen) 





N 

f 
! 

’ 








_ Tips&Tricks 





iB ' Sortierte CAT-Liste aller Disketten 718 [BFBE] 

auf dem Drucker [97B98] 728 ' Unterprogramm — Sortieren LiF36] 
28 [052] 738 ° CE7C2] 
sd °‘ von Werner Renziehausen 748 CLS: PEN 2: PRINT"{CTRL J3"szz:" Fil 

I (Juni 1985) [DO7E]I es sind gespeichert" [79746] 
Ag 4a " Hauptstr.32, 3348 Osterode 1 [B1BE) 758 PRINT" £CTRL JItCTRL J} CFC sortiert 
B = [&158] Programme nach:" LAIE2] 
R &89 CLEAR: DPENOUT "Dummy" :MEMORY (HIMEM-i) 788 PRINT"{CTRL J}t2 SPACE}—- dem Namen [50780] 
„x :CLOSEOUT [CES5] 778 FOR i=8 TO 1 hi [285E] 
ü 78 MODE 1 [FDFA] 788 IF i=1 THEN PRINT"{tCTRL J}t2 SPACE} 

88 CALL &BCB2: PEN 1: FAPER B: BORDER i C[BBD4] - dem Zusatz" [BaA46] 
Be. BB PRINT"{2 SPÄACEFRHHmmHE 798 z=1:schleianz=® [BCöB] 
IM Een 2 m nn 2 m 2 2 2 [D7&C] BOB WHILE z{>B  13642A] 
' i0@ FPRINT"{2 SPACE}*{3S3 SPACE}* [F&28] 818 z=B: schleianz=schleianz+1: LOCATE 
are 118 PRINT"{2 SPACE}I*={3 SPACE}IFPrgm: Sorti 28,7+i#2: PRINT" (";schleianz;")" [ib65] 
n. | erte Liste aller{3 SPACE}* [496E)] 828 FOR i=1 TO zz-i E[F71C] 
1 | 128 PRINT"{Z2 SPACE}*{9F SPÄACE}Diskettenfi 8938 di=INT (zeiger (j,i}}: d2=INT(zeige 
K. | lesilß SPACE}* [CB828] r(j+1,i)) [B334] 
dar 158 FPRINT"{2 SPACE}#{33 SPACE}%# [BD2E] 848 pi=tzeiger (j,i)-di)*188: p?2=(zeig 
'& 1408 FRINT"{2 SPACE FH er (j+1,i1)-d2) #188 L77BBß] 
y WERHEREHEHTRR HR [2504] 858 IF file$(pi, di ‚i’>tiles(p2, d2,i) 

u 158 FRINT"{CTRL JItCTRL JIHtCcTRLl Jrt2 SPA THEN z=zeiger (j,i 
di CE}Auswahl: [CFA4] zeiger (j,i)=zeiger (j+1,i) 
1 158 PRINT"{CTRL J}YtCTRL Jrt2 N 1= ı zeiger(j+1l,i)=z E?DC4] 
| FACE}Neueingabe der Diskette [E88] B42 NEXT j LSCBE] 
hi) | 17B PRINT"{CTRL J}X2 SPACE}2{2 SPACE} AKt 878 WEND CA11A] 
ar | ualisierung der Diskettenliste [2Ds4] 888 IF i=B THEN FOR ıi=1 TO zz: zeiger(j 
7 188 PRINT"{CTRL J}{2 SPACE}3{2 SPACE}Abs ATS FRIGERN 3 E O): zeiger(j,2)=zeiger( 
I peicherung der Liste [CS5C2] 5,8) : NEXT [BDDB] 
I 198 FRINT"{CTRL Jıt2 SPACE}A4I2 SPACE}AUuS 878 NEXT i [45312] 
V- druck der Liste | CA2CAI 720 RETURN [4252] 
il: 288 PRINT" XCTRL ee: SPACE}S{Z SPACE}Anz 91B [80C2] 
| eige der Lis ECCCBE] 928 '‘ Ausgaberoutinen der sortierten Fi 
li | 218 PRINT" <CTRL ” {2 SPACE}&A{Z2 SPACE}Lis les -— Bildschirm und Drucker CB?EB] 
I te der Diskettenbezeichnungen [835C] 738 [OFC5] 
| 228 z#=INKEY$: IF z$="" THEN 228 CDFBC] 948 aus=98:CLS:GOSUB 1580: IF zz=B THEN 60 
6 | 230 z=ASCc(z#)-48 [C79&] SUB 1398:G0OTD 1888 ELSE GOTO 1808 [7B58] 
a | 240 IF z<ii OR z>&64 THEN 228 [SASC]I 958 aus=8:MODE 1:IF zz=@ THEN GOSUB 1598 
er: | 258 ON z GOSUB 300,2059,1170,7598,740,232 ELSE PRINT"{CTRL JItCTRL JrizZ SPACE 
| 14) [ACSE] +Datum: {2 SPACE}";: INPUT datm# [8F88] 
240 GOTO 78 EBSF@] 968 IF datm$<>"" THEN datums=datm* [FF56] 
270 [ESCH] 77B GOSUB 1588 tEBSC]I 
er 288 ' Neueingabe der Disketten [5974] 9858 PRINT"£{CTRL J3tCTRL J} Drucker einsc 
E- I 298 ' [CADC4] halten - Taste druecken":CALL &BBB& [D852] 
AR | 380 CLS: CLEAR: DOPENOUT" Dummy":MEMORY (HI 2998 FRINT#aus „CHR$ (27) 3 ; CHR$ (54) ; CHR$ (27 | 
R: MEM-1) :CLOSEOUT [7288] I); "E":SPACE$ (164) "Programmliste vom " 
Hr I 3128 FRINT" *#* NEUEINGABE DER DISKETTEN # , datum$; CHR$ (27); "F" [5AC4] 
* [D488] 1008 IF aus=8 THEN MODE 2:PEN 1:PAPER Bı 
| 328 FRINT"£CTRL JIt2 SPACE}Anzahl der zu BORDER 1:INK 1,8: INK 8,15 [1554] 
| erfassenden | [4848] ıi81@ IF wahl=2 THEN 2418 [53C4] 
| 332 INPUT "{i2 SPACE}Diskettenseiten: ":di 1828 FPRINT#aus „CHR$ (27): "N"; CHR# (18)  — E8SAFC] 
scseit [45D4] 1830 lbprnt=PEEK (%&B@BB): hbprnt=PEEK (&BQ 
348 discseit=INT(discseit)}: IF discseit“ SC) [52D2] 
| 1 THEN 328 [8564] 1848 FOR ji=1 TO zz [C136] 
358 INFUT "{CTRL J}t{2 SPACE}Datum: ":datu 1858 di= ee ee pi=INT{( (zei 
m& [C54A] "PRIR yahl) =91)#10050 3) z “ CFF4C] 
368 DIM file#(54,discseit,?): °„@-Name 1058 T#aus, CE$ (18) sÜSING" HR"; j 
„1-Zusatz „2-Laenge [2522] r CECBE] 
378 DIM zeiger (&4*discseit,?2) [EFFAA] 19078 "PRINT#aus,"£2 SPACE}":file$tpi,di, 
380 zz=®B [9738] B8);"."sfile#ipl,di,1);,"{2 SPACE}"; LCECEA] 
378 WHILE disc<discseit [73181 1088 PRINT#aus „USING"##"; VAL (file$(pi, d 
400 z=0: disc=disc#ti [S2E8] 1,2))35 [577A] 
418 PRINT"{CTRL J}Bezeichnung der einge 1898 PRINT#aus,"K":S5PACE# (B}) ; USING" ##"; 
legten": INPUT"Diskettenseite:"; file pi: [FBEB]I 
#(B,disc,B) C71F8] 1188 PRINT#aus,"{i2 SPACE}";files$(B,di1,® 
428 GOSUB 430: GOTO 588 LFFACI ) [40970] 
438 PEN 3: CAT: PEN 1: bloecke=8 (82D2] i111@ IF aus=B AND j/25-INT (j/25)=B THEN 
440 FOR i=&I9E7C TO %Ad7A STEF 14 [SOFA] CALL %&BBB& £[7D18] 
4508 IF FEEKii+1)<32 THEN 568 [CZEI1E] 1128 NEXT:IF aus=8 THEN RETURN [A?32] 
450 z=z+1 [2FBE] 1138 PRINT"{CTRL J’Ende der Liste - Weit 
4708 FOR k=i1 TO 8: i=-jtk EiEEC]I er, Taste druecken":CALL &BBB&4: RETU 
4902 file$(z,disc,dö)=file#*(iz,disc,d)+C RN [35E5] 
HR#(PEEK(i})) EABSZ] 1148 [B31A] 
478 NEXT k [B28E] 1158 ° Programmliste auf Diskette speich 
sau FOR k=7 TO 11: Areit $ 54: [8444] ern 
s18 $ disc,1)=file#*i(iz,disc,1)+ 1158 [CBS1E] 
HRSCPEEK (13) LCAAA] 1178 MODE 1:LOCATE 1,18:PRINT"{7 SPACE}D 
5208 NEXT k [6182] aten-Diskette einlegen - [LIAR4I 
530 file$(z „disc ,„2)=STR#(PEEK (j+12)) LESFA] 1188 PRINT"{CTRL JI{CTRL JIt12 SPACE}YTas 
548 bloecke=bloecke+FEEK (1j+12) [C5äF2] te druecken [BORSE] 
55a NEXT j [1045] 1198 CALL &BRB& EFB&4E]I 
5480 maxblocks=PEEK (kABFS+(FEERK (KA7TBBI Sb 1288 OPENOUT"disclist.dat" [B7ZE] 
4)) - 1 | (CABZI 1218 WRITE#F,discseit ,zz ,‚datum$s CC7B4] 
578 file$s(d,disc,1)=-STR#imaxblocks-bloe | 1228 FOR k=8 TO discseit CZ21FE] 
cke) [C17C] 1258 FOR i=8 TO VAL(files#(QB,k,„2)) CB?58] 
588 zz=2zz+z: file#(Bd,disc,2)=STR#tz) [2438] 12408 FOR 1=8 TO 2 [9C38] 
578 RETURN [3A7C]I 1258 WRITE#F,file#(i,k,l) [5518] 
&B0 WEND [49C8] 1258 NEXT: NEXT: NEXT C1B34] 
61 GOSUB 548: GOSUB 728: GOTO 78 [873C] 1278 FOR i=8 TO zz [B23C] 
628 " [BEBE] 1288 FOR k=B TO 2 CöBFE] 
#358 ' Zeiger-Grundsetzung fuer die Ädres 1270 WRITE#7,zeiger (i,k) [152C] 
sierung der files [ösi1C2] 13808 NEXT:NEXT [C338] 
548 p=d: dei C[DBB5] 1318 CLOSEOUT [4AAS] 
58 FOR i=1 TO zz CAFEB] 1328 LOCATE 5,28: a$="n": INPUT" 'BAK’-Fil 
50 p=p+i: IF. p>VAL(files(B,d,2)) THEN e loeschen (j/n): ";af$ [8552] 
p=1: d=d+1 [CBF&ö] 1358 IF a$="j" THEN b#= "disclist. bak": ıi 
&78 FOR k=8 TO 2 [BBA2] ERA,@b$: GOTO 1358 [LE2A&] 
588 zeiger(i,k)=d+p/1B0 [A362] 13408 IF as“>"n" THEN 1328 [C6EFA] 
&78 NEXT: NEX E3F2E] ’ 
708 RETURN LAC2E] Listing. Mit dieser Routine findet man jedes Programm 












1768 
1778 


1788 
17978 


18080 
1818 
1820 
1858 


1840 
1958 
1858 
19878 
1888 


1898 
1988 
1718 


1938 
1940 
1950 
1968 
1978 
1988 
1998 


2208 
2818 
2028 





Br 


RETURN 

‘ Programmliste von Diskette einles 
en 

neudisc=® 

MODE 1:LOCATE 1,18:PRINT"{7 SFACE}D 
aten-Diskette einlegen -": PRINT"{C 
TRL J}tCTRL JIti2 SPACE}?Taste druec 
ken": CALL &BBB& 


OPFENDUT" Dummy" :MEMORY (HIMEM-1):CLO 


SE 
OFENIN"disclist.dat": INPUT#?,discs 
eit,zz „datum® 
DIM files(54,discseit+neudisc,2),ze 
iger (64% (discseit+neudisc), 2) 
FOR k=8 TO discseit 
ns en ‚k,B),filestd,k,i1), 
file#(iB, 
FOR i=1 „to VAL (files(@,K,2)) 
FOR 1=8 
INPUT#9- filesti,k,n) 
NEXT:NEXT:NEXT 
FOR i=B TO 5 
FOR k=8 TO 2 
INPUT#97,zeiger (i,k) 
NEXT:NEXT 
CLOSEIN: RETURN 
’" Sortierkriterium bestimmen (Name, 
Zusatz oder nach Disketten) 


FRINT"{CTRL J}3tCTRL J} Ausgabe der 
Liste: 

PRINT" {CTRL JYÄiCTRL JIiS SPACE}IL{2 
SPACE’Nach dem File-Namen sortiert 
PRINT"{CTRL J}Ä{3 SPACEIZ{2 SPACE}INa 
ch dem File-Zusatz sortiert 
PRINT"{CTRL J}ti3 SPACEISTZ2 SPACE}Un 
sortiert wie eingegeben 

PRINT"{7 SPACE} (diskettenseitenweis 


e) 
as=INKEY$: IF af="" THEN 155308 


wahl=INT {VALta$))-1: IF wahl“B OR w 
ahl>2 THEN 1530 
RETURN 
Aktualisieren einzelner Disketten 
= Hauptteil 
IF zz=8 THEN GOSUB 1398 
MODE 1i 
PRINT: PRINT 
INPUT "Diskettenseite: ":disc# 
IF disc#="" THEN RETURN 


FOR i=i1 TO discseit 
IF disc#=filef(B,i,®) THEN GOTO 21 


Bd: "Diskette gefunden 
NEXT 
PRINT"£CTRL J}{CTRL J}Diskette in d 


er Liste nicht enthalten 
PRINT"{CTRL JI{CTRL J}Wahl: 
PRINT"{CTRL J}IÄi2 SPACEIL{2 SPACE}DI 
sketteninhalt aendern 

PRINT"{CTRL J}t{t2 SPACE}Z{2 SPACE}DiI 
skettenliste erweitern 

PRINT"{CTRL JItZ2 SPACEIST2 SPACE}AN 
zeige der Diskettenbezeichnungen 
PRINT"{CTRL J}ItZ2 SPACE}I4{2 SPÄCE}LI 
ste neu sortieren 

PRINT"{CTRL JIt2 SPACEISTZ SPACE}Ru 
ecksprung ins Hauptmenue 

as=INKEY$#: IF a#="" THEN 1848 
a=VAL(a$): IF ai OR a>5 THEN 1848 
ON a GODTO 15789,2190,1719,1880,1878 
RETURN 

IF zz=B THEN CLS: PEN 3: PRINT" {CTR 
L J>i{CTRL J}> Liste nicht geladen": 
PEN 1: GOTO 1788 

GOSUB 728: RETURN 


Diskettenliste anzeigen 


aus=d0: menue=?2 
IF zz=@ THEN GOSUB 13F70 
CLS: PRINT#aus,"{CTRL J>ItiCTRL J} 
IF aus=8 THEN FPRINT#8,SPACE$ (18); 
FRINT#aus,"{3 SPACE}## Diskettenlis 
te ##": PRINT#aus 
FRINT#aus: IF aus=8 THEN FRINT#8B,5P 
ACEFi1B); 
PRINT#aus,"{3 SPACE}Nr {2 SPACE}Ffrei 
i3 SFPACE}Diskettenseite":PRINT#aus 
FOR i=1 TO discseit 
IF aus=8 THEN FRINT#8,SPACE# (18); 
PRINT#aus „USING"#####": 1: VAL(file$ 
(B ‚i,1))z:PRINT#aus,"Kt3 SPACE}": fi 
le$ (0,i,0) 
NEXT: IF aus=8 THEN PRINT"{CTRL J}t 
ETRL J} Weiter - Taste druecken": C 


er 


7 WORLD. 2OM 
Big ie en, 
— 


CAA921 
CB522] 
CACB&] 


CBB26] 
[6B8A] 


[DSEE] 
[@1B4] 
L771E] 


CD51A] 
[6896] 


[324A] 
EFS74] 
[6842] 
[1524] 
L153E] 
L?734] 
LS4F6] 
EF12E] 
EBE42] 
LECö2] 
97224] 


[24F2] 
[7428] 


[DBS7E) 
L7C56] 
[&öC78] 
5C82] 


[8772] 
[CF3@] 


ESDFC] 
£C1978] 
LE328] 


[SFB4] 
[752C] 
[CF7BB] 
[44BC] 
[AFBA] 
[DSFE] 
[54652] 
[L3EBA] 


[3356] 
[F85A] 


[BCEF&] 
[FEF2] 


[3286] 
[782A] 
[5D48] 
£4478] 


C19732] 
LASSC]I 
£371A] 
[F47C] 
LC5AB] 


Lö2F2] 
LEECA] 
[BF22] 
[D4DE] 
(C126] 
[8708C] 
[BEB4] 
[FABC]I 
[C14BA] 


[D882] 
[AF54] 
[BA74] 


[C14F6] 
[ADEB] 


[AZCCI 





2350 


2528 
2538 
2548 
2558 


2568 


2578 
2588 
2578 
26008 


2518 
2628 
2630 


Listing. Mit dieser Routine findet man jedes Programm 


Be u 4 


ALL %BB0& 

IF menue=1 THEN RETURN 

ECLS: FPRINT"{CTRL JItCTRL J}## Aktua 
lisierung der Diskettenliste ##+ 
GOTOD 1788 


ß Diskettenseite gefunden 


PRINT"{CTRL J3ÄiCTRL J} Diskette ein 
legen - Taste druecken":CALL %BBO& 
z=VALifiles(B,i,2)) 
FOR j=1 TOD z 
FÜR k=8 TO i 
files(j,i,k)="" 
NEXT:NEXT 
Zzz=Z2-z: z=B: disceai 
GOSUB 438: GOSUB 548: GOTO 2958 


' Erweiterung der Diskettenliste 
ELS: PRINT"{iCTRL JıtZ2 SPACE}3Anzahl 
der neu zu erfassenden 
INPUT "{Z2 SPACE}Diskettenseiten: 
eudisc 
neudisc=INT (neudisc): IF neudisc<i 
THEN 2218 ELSE GOSUB 1408 
ie ad "<CTRL JIi2 SPACE}Datum:s ";dat 
um$ 
disc=discseit: 
udisc 
WHILE disc“discseit 
z=B: disc=disc+ti 
PRINT"{CTRL J}Bezeichnung der eing 
elegten": INPUT"Diskettenseite:"; 
file#(d,disc,B) 


"en 


discseit=discseit+ne 


GOSUB 6480: RETURN 


Auswahl Bildschirm oder Drucker 


ELS: PRINT"ZCTRL JIZCTRL JICCTRL J} 
{CTRL J}i5 SPACE}Ausgabe auf Bildsc 
hirm’/Drucker 

INPUT"{CTRL JIti12 SPACEIB/L1T{Z SPACE 
"ss aus 
aus=INT (aus): 
N 2358 
aussaus#d: 
GOSUB 1748: 


IF ausi@ OR aus>1 THE 


menue=1 
RETURN 


Ausgabe unsortiert mach Disketten 


zeile=1 
FOR i=1 TO discseit 
z=VALifiles(B,i,2)) 
zhalbe=sz -z\2 
zeile=szeile+tzhalbe+tö 
IF aus=8 AND zeile>&5 THEN zeile-z 
halbe+4:PRINT#8,CHR#(12);:60T0 2518 


FRINT#aus: PRINT#aus 
IF aus=8 THEN PRINT#aus ,„SPACE# (15) 
:"Diskettenseite: ";file#(B,i,B): 
FRINT#aus 
IF aus=8 THEN FRINT#aus „SPACE# (15) 
; "Diskettenseite: ";CHR$E(Z7)I,"E"; 
files(tß,i,B) sCHRFIZ7);"F 
":PRINT#aus 
FÜR k=1 TO zhalbe 
FOR »=k TO k+zhalbe STEF zhalbe 
IF »x>z THEN 2578 
PRINT#aus „SPACE#$ (18) : USING" ###"; 
”: 


PRINT#aus, "t{2 SPACE}": file$(x,i, 


DB): "."sfilefix,i, ‚1) USING" ##4##"; 
VALtfiles(x,i,2 
I): :PRINT#aus,"K"; 
NEXT 
FRINT#aus 
NEXT 


FRINT#aus:PRINT#aus ,„SPACE#(15); fil 
e#(Qß,i,1);" Bloecke frei" 

IF aus=8 THEN CALL &BBB& 
NEXT 
RETURN 


(Schluß) 


Tips&Tricks 


[£C978] 
[BADB]I 


[AEBA] 
[7B22] 
[7728] 
[DSC4] 


£C124] 


[F1E2] 
[6&1BE] 
[B342] 
LZ29F2] 
[CADAS] 
[C740] 
[BF32] 
LFESE]I 


[SE16] 


[BE1&6] 
[597FB] 
[575A] 
[8032] 
[CBAA]I 


LASFC]I 
[2D74] 
[2156] 


[1756] 
[CE188] 
[4D25] 
[BBB4] 
[(C21C] 
LAZBE] 
[C428] 


EF9FA2] 
[E47A] 


LZ29BE] 
[F?ABO] 
[DF2C] 
[721A] 


[87D4] 
EF41E) 
[24E8] 
[1186] 
[725C] 
ESBDC] 
[7DFC] 


[928A] 
[9176] 


[BFS2] 


[2D4E] 
[8184] 
[4F&44] 
[27CE] 


E[C41E] 


[D2B4] 
[25DA] 
[CBS58] 
[SDFE]I 


[B255] 
[5B52] 
(F752] 
[8776] 


"uU. Piz 


Pan 


nen 
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Tips & Tricks 


Löschtaste 
für den 
Schneider 


Ein Tastendruck reicht aus, 
um den Bildschirm zu lö- 
schen und den Cursor in die 
linke obere Ecke zu setzen. 


Normalerweise wird Tab beim Schneider-Computer nicht be- 
nutzt. Die einzige Funktion, die serienmäßig auf dieser Taste 
liegt, wurde von Schneider in seinen Handbüchern »verges- 
sen«, mit »Ctri-Tab« wird der Einfügemodus des Bildschirm- 
Editors aufgehoben. Ein Text kann ja normalerweise nur über- 
schrieben werden, wenn die zu streichenden Buchstaben zu- 
vor mit »Del« oder »CLR« gelöscht werden. Nach »Ctri-Tab« 
werden hingegen alle Buchstaben direkt gelöscht. Unser klei- 
nes Programm belegt die Tab-Taste in der Normalebene mit 
Cursor-Home und, falls gemeinsam mit »Shift« gedrückt mit, 
Clearscreen. (Martin Kotulla) 











| 


PR To 


EEE HEHE EEE EHE FE HEHE EEE HE [F3B8] 

° # (c) Martin Kotulla * [18580] 
 * Grabbestr. 7. 8588 Nuernbera 90* L[78696] 
ee 0 9 [ESBE] 
KEY 140. CHR#(13)+"PRINT CHR#& (BJ) +CHRE( 

17): LOCATE 1.1"+CHR#(13) [A&5F8] 
KEY 141, CHR$ (13) +"CLS" +CHR#& (13) [L7B72] 
KEY DEF 58,0,140,141 [57981 | 
NEW [DFE4] 


Listing. Cursor-Home und Clearscreen mit einem 
Tastendruck 


TB a ZU DEE En. 7 AT EEET 


a 
Nr, 


a ee 


Strings — 
ein sicheres 
Versteck 


Maschinencode-Programme 
in einer Zeichenkette abzu- 
legen und mit dem Varia- 
blen-Descriptor (@) aufzuru- 
fen, erlaubt eine sehr komfortable Pro- 
grammierung. 

Viele unter Ihnen kennen Strings als Speicherplatz für Ma- 
schinencode-Programme. Ist doch dort ein Uberschreiben un- 


möglich. Im Listing 1 finden Sie als Beispiel eine Routine, die ei- 
nen Pfeifton ausgibt. In Assembler sieht sie so aus: 



















































LDA,7 
JP &BBSA (&BBS5A ist die Tonausgabe-Routine) 

Da sich beim häufigen Benutzen des CALL-Aufrufs der Spei- 
cherplatzbedarf für die Formel schnell erhöht, versuchen man 
che Programmierer, dies zu umgehen, indem sie einmal die 
Adresse des Strings berechnen und im übrigen als Variable an- 
geben. Wie das geht finden Sie im Listing 2. 

Diese Methode ist aber sehr gefährlich, da eine meist unver 
mutet auftretende Garbage Collection die Strings neu ordnef 
und damit die Startadresse verschiebt. Der CALL-Aufruf geht 
dann ins Leere und führt zum »Aussteigen« des Computers. 

Abhilfe schafft da ein geradezu simpler Trick. Verstehen kann 
ihn jeder, der den Aufbau des Variablen-Descriptors kennt. Bei 
»PRINT @ a$« wird nämlich bekannterweise nicht die Adresse 
des Strings angegeben, sondern die Adresse des zugehöri- 
gen Descriptors. Und zwar in folgendem Format: 

1. Byte: Stringlänge 
2. Byte: Lowbyte der Stringadresse 
3. Byte: Highbyte der Stringadresse 

Mit »CALL @a$« würde die String-Descriptor-Adresse auf- 
gerufen und als Maschinencode interpretiert werden. 

Mit einem Trick kann man das umgehen. Die Stringlänge wird 
auf 195 Bytes festgelegt, was gleichzeitig den Z80-Opcode 
für den JP-Sprungbefehl darstellt. Wird der Descriptor aufgeru- 
fen, interpretiert die CPU den Stringdescriptor als »JP Stringe 
Da in dem String der Maschinencode abgelegt ist, kann das 
Programm nun ordnungsgemäß abgearbeitet werden. Als Pro- 
gramm sieht man das in Listing 3. 

Eine Einschränkung muß man aber dabei beachten: Da der 
Basic-Interpreter den String nach Belieben im Speicher hin- 
undherschieben kann, darf die Maschinencode-Routine keine 
absoluten Adressen benutzen. So sind folgende Befehle bei- 
spielsweise verboten: 
LD HL,(START+2), wobei START für die Programmstart-° 

Adresse steht | 
CALL$+20, $ symbolisiert den Stand des 
Programmzählers 

Absolute Sprünge und Lesebefehle aus dem Programm sind 
hingegen erlaubt: | 
CALL &BB5A 
LD HL,(&C000) 
JP& 0000 

Der Vorteil der Belegung von Strings mit Maschienprogram- 
men liegt einerseits in der schnelleren Verfügbarkeit der Pro- 
gramme (ein INPUT #9-Befehl genügt schon), andererseits 
darin, daß keine Gefahr besteht, daß mehrere Maschinenpro- 
gramme im gleichen Adreßbereich zusammenstoßen. 

(Martin Kotulla)' 









id af=CHR#$ (&3E) +CHRE (& 7) HCHR$ (REF) +CHRE ( | 
u„SA) +CHR#& (&BB) EFSCC] 
28 CALL FEEK (Bas$+1)+PEEK (@af+2) #256 [EDBE] 


Listing 1. Ein Pieps aus dem String 





id a#=CHR# (L3E) +CHRE (&7) +CHRE (EI) +CHRE ( | 
5A) +CHR#$ (&BB) I[FSCCI 














22 adr=PEEK (@a$+1})+PEEK (@af+2) #256 [D42E) 
3a CALL adr [CBEC]I 


Listing 2. Der Platzbedarf wird geringer 


1a [EF3BB]1 | 
28 " * (c) Martin Kortulla * £[14D4] 
SB ' # Grabbestr. ?7. B5BB Nuernbero 98+* [7596] 
IA 7 BEREHERFFF FE EHER FREIE EHI FE FE HH CESBE] 
ag af=5TRINGE (&C3,B} [47156] 
a8 FOR i=1 TO 5S:READ a:MID#laf,i)=CHAftia 

I=NEXT i [CABDE] 
78 DATA %3E,%097,&03,.%5A.%BB CBBFC] 
ed FOR i=i TOD 28:CALL ®@a8:FOR k=-1 TO 208 | 

:NEXT k.i [461C] 


Listing 3. »195« heißt der geheimnisvolle Code 
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18 
28 
38 
48 
>38 
68 
78 
88 
78 



































110 
128 
130 
148 


































































































318 
3528 
































































beitet. 


EEE 
"###%+#+ Dehni ###+ 
"#*#+ 1985 by ##8# 
'#+ Dirk & Klaus # 
"##+ Stockmann 
"##+ Ringstr. 
’####%+ 7482 
'#+ Krauchenwies # 
EHER EHRE 
128 GOSUB 250 

'#*#* Demoprogramm ## 


FOR mo=2 TO B STEP -1 


MODE mo: zei =-20#2”"mo 


PEN 1:LOCATE zei /2-8,25:PRINT"Drueck 


e eine Taste" 
FÜR a=i1 TO 4 


LOCATE 1,3:PEN F:PRINT CHR$(224); 
PEN 15:PRINT STRING$ (zei /2-9, CHR$ (24 


3735 


PEN” 13: PRINT" 


Das ist Deh Mi 


PEN 15:PRINT STRING$ (zei /2-9, CHR$ (24 


2))3 


PEN F7:PRINT CHR#$(224) 
CALL &BBB5:CALL DEHNI 


NEXT a,mo 

MODE 1:PEN i1:END 
'#*+ basic-lader ## 
MEMORY HIMEM-&4 


FOR i=HIMEM+1 TOD HIMEM+&3 
READ a$:POKE i,VAL("&"+a$) 


NEXT i 


DATA 21,70,FB,11,38,FF,86,0C,05,86,® 
2,05,86.84.05,81,50,00,ED,B@,EB,®1 
DATA 50.08,ED,42,EB,01,58,0®,ED,42,E 
D,B@,EB.01.50.88,ED,42,EB,ED,42,C1 
DATA’ 18,E0,EB,01,B®,3F,09,EB,C1,18,D 
4,01,B0,.3F ,09,C1,18,CA,C9 


DEHNI=HIMEM+1: RETURN 
Listing 1. Interessante Bilder bekommt man mit »Dehni« 


'##+ Dehni-Foker +## 

MEMORY HIMEM-&4 

38 FOR i=HIMEM+1 TO HIMEM+53 
READ a$:POKE i,„VALU"&"+a$) 
5a NEXT i 

DATA 21,70,FB,11,30,FF,804,80C,05,06,82 


‚„c5,86, 84, C5, 21, SQ, 20, ED, BO, EB, wi 


F, 


DATA 50,08,ED,42,EB,01,58, 20, ED, 42,ED 
„B@,EB,@1,50,88,ED,42 
DATA 198,E8,EB,@1,B,3 


EB, ED,4 


09, EB, Ei, 18,D4 


‚21,B8,3F,89,61,18,CA,69 


DEHNI=HIMEM+1 
Listing 2. Dieses Programm zeigt, was »Dehni« kann 


Groß, größer, 
»Dehni« 


Mit einem kleinen Maschi- 
nencode-Programm können 
Sie ein völlig neues Bild- 
schirmgefühl bekommen. 


Mit »Dehni« können Sie den Bildschirmspeicher direktbeein- 
flussen. In der Maschinencode-Routine wird mehrmals hinter- 
einander der Z80-Befehl LDIR benutzt und dadurch der Bild- 
speicher zeilenweise verändert. Die obere Hälfte wird verdop- 
pelt und die untere gelöscht. 

Der Basic-Lader aus Listing 1 erzeugt eine Maschinenco- 
de-Routine, die mit »CALL DEHNI« aufgerufen wird. Falls das 
Bild zuvor hardwaremäßig gescrollt wurde, muß erst durch eine 
MODE-Anweisung »Ordnung« in den Speicher gebracht wer- 
den. Das Demo-Programm aus Listing 2 zeigt, wie »Dehni« ar- 
(Dirk & Klaus Stockmann) 


EDA?B] 
[ABI] 
[51C4] 
[BBSE] 
[B&öD8B)] 
[2EB5] 
E1SCE] 
LF7S58] 
[82AB] 
£C5DDB] 
[4056] 
[ö4FE4] 
[6618] 


[8EFB] 
[CF46] 
[CAi42] 


[495A] 
[2DAE] 


[425C] 
[577E] 
[4DB8] 
[&2F8] 
[3A54] 
£E?2F8] 
[87&E] 
CD738]1 
£ESDCCI 
E4F84] 


[CEE2B8] 
[57D4] 


LAFEC]I 
[CBB88] 


[5374C] 
[A284] 
[D3Cö] 
[Ad&2] 
LABFA] 


[CABö] 
EFB7C]I 


[D874] 
LFBF4] 








Tips & Tricks 


Windowsä la 
Macintosh 


Wer bewundert nicht die 
Windowtechnik der neuen 
68000er-Computer. 

Mit diesem Programm kann 
Ihr Schneider das genauso schön. 


Ohne Beschreibung kann man die Software eines Compu- 
ters nicht richtig benutzen. Läuft das Programm, dann fehlt ga- 
rantiert das Handbuch. Wie schön ist es da, wenn man ein 
Hilfsmenü einblenden kann, ohne daß das eigentliche Bild zer- 
stört wird. Mit der »Bildschieberoutine« können Sie solche 
Hilfsmenüs leicht in Ihr Listing einbauen. 

Das Hauptaugenmerk liegt auf dem »Retten« des ursprüngli- 
chen Bildes. Mit»CALL 25000« wird die entsprechende Routi- 
ne aufgerufen. Da sich das Programm selbst erklärt, tippen Sie 
es einfach ab und experimentieren Sie mit den verschiedenen 
Windows. (Siegfried Schlaak) 


Es gibt, Programme, hei denen man nicht uahın komt, den Benutzer die 
jöt eslichkeil des Finhlendens von Beschreibungen oger Hilfstexten in 
die laufende Bearbeitung eines Progranss zu erncegliche, 


# wi 


Hier } KOENNEN Sie sich Benerkungen oder 
Texte | y,5:W: ablegen, die dann beı Bedarf 
einfach in die laufende Bi ildschirmmaske 

eihgeni pr jet Harz ii ien Kb Er nel. 
Man kann auch mehrere Hindows aiteinander 
Gars schachtel th, 


Dies; hedesit 


Be Ihnen ur 
D; 
inrahttim 5 505 


Das ae zerstört 
nicht das ursprüngliche Bild 


18 EEE 
EA AA 


7a’ Eurer 
UNE 
ZzD ° #a##H#H#H+ 
EHE 
4A ° warn 
EEE 
EO ’ BEER zum Einbauen in vorhan 
dene KEREREHEH 
a’ Kae 
KEHEEHHEH 
EHRE 
EEE 
Ba RRRRRHRHHRHRRRH 
PeReeeTeRerE nn nr [L2B5A] 
90 [8558] 
120 es 
EHRE EHER HH ER 
11 ' una 
EHER 
1720 ' aunu0.4## 
Schlaak ########%# 
130 ' zu.0#08%04 
15 EHE 
140 ' #a8HHHHHH 
— 2 2 2 2 2 2 2 2 2 
150 ’ sun 
u 2 2 2 2 2 2 2; [9A?22]I 
130 
HH [CDB8B] 
178 [B3BE] 
130. est 
BEE [2BEC] 


Listing »Bildschieberoutine« 


[BEAC) 
| CSCBAI 
BILDSCHIEBEROUTINE 

CBFA4] 
CFEBE]I 
[5488] 
[78D6] 


[4BC4] 


Programme 


EBSACI 


[LA&1A] 
(c) by Siegfried 
[(858C] 
Glashuette 
[B415] 
’Bsa AALEN 
L7F&8C] 











1978 
208 
218 
228 


238 
248 


258 
268 
} 278 
1 
A 288 
298 
3D8 
318 
328 
er, 358 
>48 


358 
7.7) 


Du Ze Ze 
= 
= 


reis 


en ee 
=, - Benz 


378 


Aa Au m” von u... —. 
z = +7 £ “ LE Eirds 
; 


in 398 
r 418 
420 
I 430 
440 
450 


(# 470 
in 480 
490 
518 


520 


548 
Sog 
| 560 
578 
588 


378 


| 618 
ı 528 





Tips & Tricks 


= 2 2 = 2 2 22: 


KERRHEHEH 
#HRHeRHRH 7 Initialisierung des Pro 
gramms Hunt * 
EZ z = 2 22020205 
ERHEEEH 
HH 
EEE 
# 


MEMORY 249997 

:REM RAMTOP setzen 
a=15:b=7B:c=7:d=18B 

REM Windowgroesse 
festlegen 
mo=B:moi=?2 

:REM Hilfsvariablen 
zum Window einrahmen 
MODE 2:INK QB,B:PEN B: INK 1,13:PAPER 
13:BORDER 13:CL5 :REM Bildschirm ini 
tialisieren 
WINDOW#1 ,a,b,c„d:PAPER #1,13 

:REM Window deklari 
eren 


EEE EEE EEE 
FERSEHEHHHEH EHE 
EZ 7 2020502022 
FKERERFRHH 
" ########+#+ Bildschieberoutine 
KEEREHHH 
HEHE 
aan 
EZ 2 22 22 22 2 220 a op ae ae ee ne ee ee Er ee ne 
u SE u 2 2 2 2 0 5 2 2 2 2 2 m 2 
# 


FOR i=250088 TO 25823 
:REM In die Ädresse 
n 25088 bis 258235 die Werte aus Zeil 
e 388 und 3i8 


READ z 
:REM auslesen und e 
inschreiben, 
i,z 
NEXT i 
DATA 1,255,63,17,12,98,33,8,192,237, 


176,201 
DATA 1,255,63,17,08,192,33,12,98,237, 
176,201 


EEE 
KERNE IH HH 


ZEerTereere: 
WERE 
“=######4### Bildschirm fuellen (Hie 


r steht #ura#####+ 
"eo normal das Anwenderprog 
ramm) WERE 
a u 2 22 ee 

ee ee 2 er 
RR 
ae 2 2 2 re ee ee ee ee ee 
# 


= 


LOCATE 1,3:PRINT"Es gibt Programme, 

bei denen man nicht umhin kommt, dem 
Benutzer die" 

LOCATE 1,4:PRINT"Moeglichkeit des Ei 
nblendens von Beschreibungen oder Hi 
lIfstexten in" 

LOCATE 1,5:PRINT"die laufende Bearbe 
itung eines Programms zu ermoegliche 


LOCATE 1,8:PRINT"Der momentane Bilda 
ufbau soll aber weder geloescht noch 
so ueberschrieben" 
LOCATE 1,9:PRINT"werden, dass, nachd 
em der Hilfstext gelesen wurde nicht 
mehr mit dem gleichen" 
LOCATE 1,18:PRINT"Bild und an der gl 
eichen Stelle weitergearbeitet werde 
n kann." 
LOCATE 1,13:PRINT"Dies bedeutet, wir 
muessen den momentanen Bildaufbau ' 
RETTEN’. 
LOCATE 1,15:PRINT"Die Ihnen vorliege 
nde Routine, die in BASIC geschriebe 
n ist und eine" 
LOCATE 1,17:PRINT"Einrahmung sowie d 
ie Beschriftung der Windows zulaesst 
‚ vebernimmt diese Arbeit." 
LOCATE 1,28:PRINT"Die Routine kann p 
roblemlos in jedes Programm eingebun 
den werden." 
ee 1,24:PRINT"E = ENDE -—- ? = HE 
as=INKEY$: IF a$="" THEN 428 
:REM Warten auf Ein 
gabe 
a$=UuUPPER$ (af$) 
REM Umwandlung in 


Grossbuchstaben 


Enz 


[BEZA] 
[a?7A2] 
[821C] 


[1iBB2] 
[B7BB] 


[EAS54] 
[C2D76] 
LS5SS5E4] 
[BB1B] 
[12A4] 
[ADC4] 
[&BBB] 
[SA1IEI 
[2148] 


[A822] 


CCFBB] 
[LBSBE] 


[SFA4#] 


[BCCB] 
[(8B1B2] 


[A588] 
[88Bö] 
CAFBB] 


[828A] 
[87BC] 


[89BA] 
[7228] 
[BDFZ] 
[78B2] 
[3F72E] 
[CAC4] 
[84B8] 
[LAZEA] 
[6112] 
[1778] 
[CBE38] 
[45D8] 
[ZDAE] 
[8532] 
[74EB] 


[3CCA] 


[882A] 


L[L2F74] 


C4F54] 


CB44A] 




















648 


[= 1-17 


678 


688 


578 


’88 


718 


728 


738 
748 


768 
778 
788 


778 
898 


828 


838 


5848 


840 
878 
888 
898 
9708 
918 
928 
938 
740 


758 


IF a$="E" THEN CLS:END:ELSE IF as<>" 
?" THEN 528 ELSE CALL 25888 
GOSUB 878: CALL 25812:G0T0 528 


:REM Wenn ’E' gedru 
eckt wird dann FProgrammende 
:REM Wenn °?' gedru 


wird der momentane 


:REM Bildschirmaufb 
au gerettet (CALL 25028) 


“" «REM Danach Sprung 
zum Textblock in Zeile 428 


eckt wird dann 


:REM Nach der Rueck 
kehr aus dem Textblock wird die 


:REM alte Bildmaske 
wieder zurueckgeschoben. 


ıREM Danach Sprung 
nach Zeile 478 


EEE EEE 
EEE 
EEE 
BER 
"He Routine zum Einrahmen u 
nd EEE 
" ######HH 0 Beschriften der Windows 
Er ee ee ee 
EEE 
Teer e rn: 
Rz a Se ee ee ee ee ee ee een 
EEEERETF FT HERE 


aa=a-1l:bb=b:cc=(c-1)#mol:dd=d#moi 
aa=aa*mo:bb=bb*#mo: cc=cc#mo: dd=dd#mo 
PLOT aa-2,399-cc+2,8:DRAW bb,399-cc#+ 
2,B:DRAW bb „397-dd ,@B: DRAW aa-2,399-d 
PLOT aa-3,399-cc+3,8:DRAW bb+1 ,399—-c 
c+3,B: DRAW bb+1 ,399-dd-1,B: DRAW aa-3 
‚379-dd-1,8: DRAW aa-3,399-cc+3,8 
PLOT aa-4,399-cc+4,8:DRAW bb+2,399-c 
c+4,8:DRAW bb+2,399-dd-2,B:DRAW aa-4 
‚377-dd-2,8B:DRAW aa-4,399-cc+4,0 
LOCATE (aa#+3ß) /mo, (dd+mo) /1& 
ıREM Beschriftungsp 
unkt des Windows festlegen 
RETURN 
:REM Ruecksprung zu 
Zeile 578 
EEE 
Re a ee a a ee ee 2 2 m 
EEE 
DE u & 2 2 2 — 2 2 
“ar 7 Textblock 
EHER 
DE 5 2 0 22 ern 
warnnnnee 
ME 2 2 SU 0 2 2 ir 2 12 2 122 12212 2 2 2 2 2 2 Fe 
2 Er re we ee rer ee) 


GOSUB 598 

:REM Sprung zur Ein 
rahmroutine 
WINDOW SWAP 1,8 
:REM Umschalten von 
Fenster B auf Fenster 1 
L 


968 CL5S 


778 

788 

770 

1298 
181@ 
1028 
1058 
19848 
1058 
1858 


19878 


:REM Bildschirm loe 
schen 


LOCATE 17,2:PRINT CHR$(24):" HELP 
- WIND DOM ";CHR#$(24) 
LOCATE 5,4: PRINT"Hier koennen Sie si 
ch Bemerkungen oder" 
LOCATE 5,5: PRINT"Texte u.s.w. 
n, die dann bei Bedarf" 
LOCATE 5,5: PRINT"einfach in die lau 
fende Bildschirmmaske" 
LOCATE 5,7:PRINT"eingeblendet werde 
n koennen." 
LOCATE 5,8:PRINT"Man kann auch mehr 
ere Windows miteinander" 
LOCATE 5,9:PRINT"verschachteln." 
LOCATE 14,11:PRINT CHR$(24);" Weite 
r mit irgendeiner Taste ";CHR$(24) 
a#=INKEY$: IF at="" THEN 1858 
:REM Warten 
Eingabe 


WINDOW SWAP @,1 


ablege 


auf 


:REM Zurueckschal 
ten von Fenster i auf Fenster 8 
RETURN 


zu Zeile 418 


REM Ruecksprung 


Listing »Bildschieberoutine« (Schluß) 


« 


% 








EB1DA]I 
E1B28] 
[64202] 
[D478] 
[EBIiC]I 
[&2DA] 
[8D18] 
[4494] 
[B8CB] 
[28BE] 
LI32C] 
[F4EE] 
[F216] 
[LAC32] 
[CBC8] 
C7ICE] 


[BCEö] 
[aC3&] 


CB2BE] 
[CCEB4] 
ESFCA]I 
[4s9C. 
[8372] 
[BSCC] 
[8DCA] 
[7558] 
(B848] 
[FA2AI 
[87CB] 
[BFCö] 
[9748] 


[B41C) 


[5822] 
[C23A] 
[B858] 
L275E] 
[LEA1B] 
[5848] 
LAEBE] 


[BEF2] 
[FC5B] 
[570C] 


L79BC] 


[47B8] 
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Tips & Tricks 





Kreise 
mit einem 
Basic-Befehl 


Die Grafik der Schneider- 
Computer erlaubt in Verbin- 
dung mit den RSX-Befehls- 
”_| erweiterungen den Aufbau 
spezieller Grafikbefehle, wie bei 
kaum einem anderen Heimcomputer. 
Ein Kreis gehört natürlich dazu. 

Unsere Befehlserweiterung soll die Form »CIRCLE, x- 
Koord., y-Koord., Radius« haben. Damit die Routine hinrei- 
chend schnell wird, dürfen wir die Darstellung des Kreises in 
Polarkoordinaten ( (x,y)= r (cos(»),sin(#))) nicht benutzen. Die 
Polynomapproximationen für cos und sin des Interpreters sind 
zu zeitaufwendig. Aber auch mit der Formel y = r?— x? geht 


es nicht schneller. Der CPC hat leider nur eine sehr langsame 
Wurzelfunktion über den Umweg: 








| 1 
Yx'= x = exp = In(x)). 


Außerdem müßte noch — da die Koordinaten eines Bild- 
punktes ganzzahlig sind — eine zeitraubende Umwandlung 
von Fließkomma- in Integerformat vorgenommen werden. Eine 
eigene Routine muß also her. Wir nehmen dazu die Newton- 
Approximation für / x: 


1 X 
Ki 2° + ——), 
mitn=0,1,2,..und, =Xx. 


Gerechnet wird nur mit ganzzahligen Werten und maximal 
zehn Iterationsschritten. Die entsprechende Routine ist etwa 
um den Faktor zehn schneller als die Routine für Gleitkomma- 
zahlen des Basic-Interpreters. 

Noch drei Faktoren sind zu berücksichtigen, wenn man eine 
schnelle Routine erhalten will. Die Größe eines Grafikpunktes 
hängt vom jeweils gewählten Modus ab. So ist es natürlich 
falsch, im Mode 1 (1 Pixel = 2 x-Koordinaten) den Kreis wie im 
Mode 2 (1 Pixel = 1 x-Koordinate) zu zeichnen. Aufgrund der 
Symmetrie des Kreises brauchen wir des weiteren nur die 
Koordinate (x,y) eines Punktes zu berechnen und erhalten 
durch Vorzeichenwechsel die entsprechenden Symmetrie- 
punkte (—xy), (x—y) und (—x,—y). Letztlich muß man noch 
entscheiden, ob der Kreis durch PLOT oder DRAW entstehen 
soll. Mit PLOT gibt es bei großen Kreisen Schwierigkeiten, da 
hier die y-Abschnitte bei zwei benachbarten x-Koordinaten 
mehr als ein Pixel auseinanderliegen. Es wären also zusätzli- 
che Punkte zu plotten, um einen geschlossenen Kreis zu be- 
kommen — natürlich auf Kosten der Geschwindigkeit. Bleibt al- 
so nur noch DRAW. 

Der erste Programmteil bindet die Befehlserweiterung »Circ- 
le« ein. Zu Beginn der Routine prüft das Programm die Anzahl 
der übergebenen Parameter. Anhand des Bildschirm-Modus 
wird ein Zähler für die Berechnung der x-Abschnitte bestimmt 
undin COUNT abgelegt. Nach Sichern der aktuellen Koordina- 


EA 


ee. 





ten setzt das Programm den Ursprung auf den übergebenen 
Kreismittelpunkt. Der Kreis wird beginnend bei der Koordinate 
(O,R) gezeichnet. 

Der Rest des Programms ist lediglich die leider immer müh- 
same Umsetzung der Formel y = ]/r2 — x2. Eine große Hilfe 
sind hierbei natürlich die vom Betriebssystem zur Verfügung 
gestellten Routinen für die Integer-Arithmetik. 

(Horst Udo Hanenberg) 
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Listing 1. ERCLEr heißt der neue Befehl 





* BASIC - Lader f}r CIRCLE 


FOR ji=8B TO 2 
MODE j 

PRINT "Mode ":j; 
LOCATE 1,1 


PRINT 


"Mode "sj 


j3 
FOR i=18 TO 288 STEF 18 
ICIRCLE,320,700,i 
| NEXT 


FOR k= 


ıi TO 12800 


100 NEXT 
118 NEXT 


128 GOTO 


18 


[674C] 

1818 ° tc) 1985 Dipl.-Math. Horst Udo 
Hanenberg [85E4] 
1220 ° Am M}hlenteich 28 [C1B8] 

1838 ' 5@1lß Bergheim i2 - Gle 
ssen LEEAA] 

18408 " Tel. 8 22 38 / 4 14 85 
[B4EA]I 
1858 ' [CB&siA] 
1858 MEMORY &4FFFF [C422] 
1878 DZEILE=125B [4156] 
1088 ANF=&ABBB+2* 154: ENDE=-&LA1IB+2"165 [CABB] 
1878 FOR I=ANF TO ENDE STEP 16 [S535C] 
1108 SUM=B [CBF88] 
1118 DZEILE=DZEILE+1B [334C] 
1128 FOR J=I TOD I+15 [C87FB8] 
1138 IF J>ENDE THEN 11978 [C2CE4] 
11408 READ W$ [C4D3A] 
1158 WERT=VALL"A"+W$) [8154] 
1148 POKE J,WERT [?8DE] 
1178 SUM=-SUM+WERT [77FA] 
1188 NEXT J [EC2&] 
1178 READ W# [BE44] 
WERT=VAL ("&"+W$) [844C] 


1210 IF WERT <> SUM THEN PRINT"FEHLER IN 
DATA-ZEILE";DZEILE:END C9A34] 
1220 NEXT I [67141] 
1230 CALL &ABBR [EA32] 
1240 NEW [18A21 
1258 ' POKE - Werte 
Pr }fsumme CDIFCI 
1268 [93201 
1278 Data 01,09,AB,21,15,AB,C3, D1,BC,BE, 
C3,19,AB,45, 49 [2ES01 
1288 DATA 32, 3. ‚00,00, 20,00,00,FE, 
83,C0,CD,11, BeBk [4AB&] 
1290 DATA 84.38,86, Fir 82, 2.28, 02,06,01,78, 
32,28,Al ,CD,CC,BB,B4S3A C63BEI 
1308 DATA E5,D5,DD,66,81,DD,6E,88,22,21, 
A1 122, 25, A1,22,27,BösE" LFBS8] 
1318 DATA A1,DD,554,85,DD,5E,84,DD,66,83, 
DD, LE: 02 CD,C9,BB,@7FC CCF841 
132@ DATA 2A,21,A1,ED,5B,21,Al,CD,BE, BD, — 
22,23,A1,21,00,00,0545° [84701 
13308 DATA 22,2B,A1,24,25,A1,3A,20,A1,47, 
2B,1®,FD,7C,30,28,8538 [CE66] 
1348 DATA 1A,22,25,A1,E5,D1,CD,BE,BD,EB, 
2A ,23,A1,B7,ED,52,B8CF LAC7EI 
1350 DATA CD,978,A@,22,27,A1,CD,B6,AB,18, 
D8,D1,E1,C3,C09,BB,B9F5" [B13E1 
1348 DATA 7C, BS CB, 22, 2D, A1,22,2F,Al,06, 
BA,CS,2A,2D,Al [D&E2I 
137@ DATA 5B,2F, u Is en, dc ‚BD,D1,19,11, 
02,00,CD,C1,BD,22,807B5" L&CoCc 
1388 DATA ?F, Al, Ci 10,66, ca ‚ED,5B,27,A1, 
2A,2B,Al 5,D5,CD, [7574] 
1398 DATA 2a. BB D,SB, 35 RL, 24,29 ,Al,ES, 
DS,CD,F&ö, BB, eb „SE ‚aor SFD" [79E81 
1408 DATA 27,A1 „2B, 1 ,ED,C7,BD,CD,CO, 
BB,Di,El, ehe 7,pl LIFE2I 
1418 DATA CD,F6, BB. ET. en, c7, BD.EB.EI.CD, — 
CO,BB,2A,25,A1,CD,@B81 L7D1A] 
1428 DATA C7,BD,E5,EB,2A,29,A1,E5,CD,F6, 
BB,24,27,A1,CD,C7,8A31 L6AAEI 
1438 DATA BD,EB,2A,2B,A1,CD,C7,BD,CD,C®Q, 
BB,E1 „Cd,C7, BD,D1,0BSA [4744] 
1440 DATA CD,F6,BB, 20, 35 ,A1,22,27,A1,2A, 
29,A1,22, Sn a703" LO9AAI 
1458 DATA 53-d0. da.c0 B.d0. 20,20,00,00,00, 
20,20 ,00. 20. 20,00, zuoR CaF48] 
14640 DATA 80,00 [ODEZ] 


[FBEB] 





Listing 2. »CIRCLE« funktioniert in allen drei Modi 











vu: u u AREA Se ER 





ee a A ie m # u 2 er Sn Aa 





Tips& Tricks 


Schnelles 
Laden von 
Kassette 


Auch mit dem Kassetten- 
Recorder soll das Laden 
eines Programms nicht 

- zum Frust werden. 

Man muß nur das Aufzeichnungs- 
format ändern und die Daten in einem 
Block speichern. 














Ein längeres Programm von Kassette zu laden ist zeitauf- 
wendig. Um beispielsweise 20000 Byte mit 2000 Baud zu 
laden, braucht der Schneider-Computer ungefähr 140 Sekun- 
den. Es gibt viele Tricks, die Baudrate zu ändern (bis zirka 
4 O00 Baudist dies mit ausreichender Datensicherheit zureali- 
sieren), aber das eigentliche Problem stellt das Aufzeich- 
nungsformat dar. Die Programme werden nämlich in 2 KByte 
lange Blöcke zerlegt. Jeder Block hat einen eigenen Kopf 
(Header), indemLadeadresse, Länge, Name des Programmsund 
so weiter vermerkt sind. Greift man nun direkt auf die Firmware- 
Routine CAS WRITE zurück, so kann man die Daten ohne Hea- 
der in einem Block speichern. Die Zeit halbiert sich dann in un- 
serem Beispiel auf 72 Sekunden (bei 2000 Baud). 

Zum Laden der Programme benutzt der Schneider eine 
Firmware-Routine mit dem Namen CAS READ. Auf diese kann 
man auch direkt zugreifen, so daß die in einem Block gespei- 
cherten Daten wieder korrekt gelesen werden können. 

Die beiden Routinen müssen nun an unsere Wünsche ange- 
paßt werden. Listing 1 ist der Basic-Lader für die Routine CAS 
READ. Sie muß immer vor dem zu ladenden Programm stehen 
— sinnvollerweise mit dessen Namen. Die Anweisung hierzu 
lautet: »SPEED WRITE 1:SAVE”Name”« 

In Listing 2 finden Sie den Basic-Lader, der die Speicherrou- 
tine erzeugt. Das Maschinencode-Programm berechnet die 
tatsächliche Länge, des im Speicher stehenden Basic- 
Programms, lädt die Register des Z80 mit den erforderlichen 
Werten und ruft die eigentliche Routine CAS WRITE auf. Nach- 
demListing 2 einmal gelaufen ist, kann man es löschen und das 
Programm laden, das man speichern will. Mit »CALL 
HIMEM+ 1« wird die Speicherroutine gestartet und das Pro- 
gramm auf Kassette geschrieben. 

Beim Lesen von der Kassette wird zuerst die Laderoutine mit 
»RUN« geladen und dann automatisch das eigentliche Pro- 
gramm in den Speicher geholt. Dieses muß übrigens von Hand 
gestartet werden, da dies automatisch nicht möglich ist. 

Mit der hier vorgestellten Betriebssystem-Erweiterung kann 
man übrigens auch jedes Maschinencode-Programm spei- 
chern und laden. Man muß nur die Startadresse und die Länge 
der Routine kennen (mit einem Headreader-Programm leicht 
zu bestimmen). Zum Laden muß ein freier Speicherplatz vor- 
handen sein, der mindestens 12 Byte aufnehmen kann. Das 
Listing 1 muß um die zwei Zeilen aus Listing 3 erweitert wer- 
den. Die Variable »begin« steht für den Anfangsplatz des freien 
Bereichs minus eins. Die Variablen |, h, e und d sind Platzhalter 
für folgende Werte: 














Lowbyte der Startadresse des Maschinencode-Programms 
Highbyte der Startadresse des Maschinencode-Programms 


Lowbyte der Länge des Maschinencode-Programms 
Highbyte der Länge des Maschinencode-Programms 





Wenn in einem Programm solch eine Maschinencode- 
Routine nachgeladen werden soll, muß der normale Ladebe- 
fehl durch »CALL begin+ 1« ersetzt werden — und die Daten 
im entsprechenden Format vorliegen. 

Wenn man das ursprüngliche Maschinencode-Programm im 
Speicher hat, benutzt man die zwei Zeilen aus Listing 4, um 
das Programm in der neuen Form zu speichern. Die Variable 
sind die gleichen wie im Listing 3. 
(Thomas Drögel' 


I. 02 22022 3222 22 25 22 22 a IE N ee rer ee ee ee ECPFCC]I 
* (ce) Thomas Droecge [CCB&s4] 
Hohenzollernstr. 18 [B&sB8C]I 
+ 4780 Hamm i [33FC] 
2 5 2 2 5 2 2 2 2 2 ZZ m ee ee er een e C87D4] 
MEMORY ZAFFF=:FOR t=HIMEM+1 TO HIMEM+3 
QB:READ a:FOKE t,„a:NEXT 
A CALL HIMEM+1 
DATA &21,32354,2AE,%11, 58,52 ,&3E,&10,& 
CD,&Al ‚&BC, za ‚LBS,LAE, LED, &AB, 281, LA 
E, LED, &42, LEB, E2A, %E1, ZAE ‚ESE,810, &CD 
„HAl, &BO, L09 


[65248] 
L771E] 


ESFAE]I 


| Listing 1. Schnelles Laden aus einem Block 


2 2 2 02. 27 22 222 2 2 2 2 BZ 2 ze ee een ELFFCCI 
'* (c) Thomas Droege [CBös4&] 
Es Hohenzollernstr. 18 [B&8C]I 
* 4780 Hamm i {[33FC] 
er [B7DII | 
42 MEMORY LAFFF:FOR t=kAADD TO RAA2B:REA 
D a:FOKE t,„as:NEXT 
78 DATA %221,%5D,20,%23E,&A,&CD, &68,&BC,%2 
1,&34, LAE, &il, &5B, %2 ‚23E,%1Q, &CD, LIE, 
&BC, z2n, 283, LAE, 2A, &83, SAE,„BED, &4B, 4 
8l, LAE, LED, &42, LEB, &2A, gBi, LAE, &SE, ‚&1 
D, LCD, ‚LIE, LBC, &C9 


[BIiEB] 


ESB2ZE] 


Listing 2. Viel Zeit spart man, wenn die Daten in einem 
Block gespeichert werden 


iB FOR t=1 TO 12:READ a:POKE begin+t,a:N 

EXT t [CC79C3 
28 DATA &21,1,h,&11,e,d,%Se,%1Qd,%cd,&kal, 

&bc ,%c9 [29CA] 


Listing 3. Mit dieser Ergänzung können auch Maschinen- 
code-Routinen in der neuen Form geladen werden | 


18 FOR t=1 TO 12:READ a:POKE begin+t,a:N 
EXT t:CALL beointi 

28 DATA %21,1,h,&11,e,d,&3Se,R1Bd,&cd,&Ie, 
&bc ,&c9 


[3EAAI 
[49E21 | 


Listing 4. Mit zwei Zeilen bekommen auch 
| Maschinencode-Programme das richtige Format 
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Tips & Tricks 





Schere statt 
Bleistift und 
Radiergummi 


Folgende Situation: Man 
sucht verzweifelt nach ei- 
nem Programm und findet 
es einfach nicht. Warum? 
Weil die Beschriftung auf den zu den 
Disketten gehörigen Karten nicht 
mehr aktuell ist. Mit »Autolabel« 
bekommen Sie fast automatisch ein 
Inhaltsverzeichnis. 


Wieder einmal ist man guter Vorsätze. In Zukunft wird jede 
Änderung auf der Diskette mit Radiergummi und Bleistift auf 
dem entsprechenden Zettel vermerkt. Doch schon die näch- 
ste große Disketten-Aufräumaktion läßt alle Wünsche in Ver- 
gessenheit geraten. Das Chaos beginnt von neuem. 

Tippen Sie unser Programm ab, und schon gehören diese 
Probleme der Vergangenheit an. Das Inhaltsverzeichnis wird 
mit Randmarkierung säuberlich ausgedruckt, einfach aus- 
schneiden, und schon paßt der Ausdruck in die Diskettenhülle. 

Nach Programmstart wird zuerst das Anschalten des 
Druckers gefordert, bevor Sie die zu beschriftende Diskette 
einlegen müssen. Der Titel (wird zuerst angefordert) darf ins- 
gesamt 37 Buchstaben beinhalten. Die Namen der verschie- 
denen Programme werden nun auf den Drucker ausgegeben. 
Die Handhabung von Drucker und Diskettenstation wird von 
dem Programm gesteuert. 

Das Programm wurde ursprünglich für den Star-Drucker ge- 
schrieben. In den Zeilen 460 bis 560 kann man aber auch je- 
den anderen Drucker anpassen. Allerdings muß das Gerät 
über Zeilenvorschub in Y%-Zoll-Schritten verfügen. Die pas- 
senden Steuercodes finden Sie in Ihrem Handbuch. 

(Thomas Arnold) 











18. SRH [9FCCI _ 
28 '#(c) Thomas Arnold/Andreas Lohrum #* L[43C2] 
30 '+ Am Graben 25, 7788 Singen * [8788] 
Er ge EZ me en 2 ee m m SE ZZ ZZ zZ ZZ 2 2 2 2 2 2 2 2 2 2 2 2 27 203 LEFD2] 
dB MEMORY 4251? [EEBE] 
sd ODPENOUT "dummy": MEMORY HIMEM-1:CLOSEO 
UT [4202] 

78 MODE 2 CFBFC) 
BB CLEAR CASDE] 
98 DEFINT i,p C(83D8] 
188 LOCATE 31 ,3:PRINT CHR#(154)+" by Tho 

mas Arnold" CBD2C] 
118 LOCATE 1iB,&4:FRINT "Drucker bitte ON- 

LINE schalten '!'" C8886A] 
120 x=48571 LFADZ2] 
138 DIM disc#(54) en=43 [78FC] 
148 LOCATE 18,8:PRINT "Bitte Diskette ei 

nlegen, dann Taste druecken !" [29F2] 
1508 as=InKEY$: IF a$="" THEN 158 [3168] 
158 PRINT:FRINT: INPUT "Titel der Diskett | 

e (maximal 37 Zeichen) ";titel# [FABC]I 
178 1=LENttitel#):IF 1>37 THEN 158 [18B4] 
188 MODE 2 [CB] 
198 CAT [9724] 
208 free=PEEK (49888) [5328] 
218 IF tf=8B THEN freea=sfree CFCF4] 

= P Br a 





228 


230 


240 
258 


268 
278 


298 
308 
318 
328 


338 
349 


358 
340 
378 
388 
398 
408 
418 
420 
430 
440 
460 
470 
480 


490 
502 
519 
528 
539 
548 


soo 
S5öB 
578 
S88 
378 
sa 
618 


628 
63D 
540 
658 


668 
678 


IF tf= 
PRINT: 
im 


i THEN freeb=free 
FRINT "{335PACE Bitte warten 


FOR i=@ TO n 


IF 
98:60T 


PEEK(x+1+14*i)=B THEN GOSUB 7 
0 428 


mi=14*#i 
mer ke=x +2+mi 
FOR ii=8 TO 7 


merke+ 
NE 


disc#li)=disc#li)+CHR#(PEEK ( 
il)) 
AT il 


disc#li)=disc#tli)+"." 


rke=x+10+mi 


FOR i2=8 TO 2 


»+18+1 
NE 
di 
IF 

I=disc 
di 

+m1)) 


disc#(i)=disc$(i)+CHR$(PEEK ( 
4*i+i2)) 
xT i2 
sc# (i)=disc#(i)+"t2SPACE >" 
PEEK(»+13+m1)<1B THEN disc#li 
£ii)+" na 
sc#(i)=disc#t(i)+STR#(PEEK («+13 


IF tf=® THEN disc#li)=disc#tii)+r" 


kiAä5Sf 


ACE: 3: " 


IF tf=1 THEN disc#li)=disc#li}+" 


k" 
NEXT i 
IF tf= 
PRINT: 
Taste 


1 THEN 478 
PRINT"Diskette umdrehen, 
druecken !" 


dann 


as=INKEY$: IF a#="" THEN 448 


tf=1 
60T0 ı 


80 


p=2B88/druck: IF p{4 THEN p=4 


PRINT 


:REM Schmalschrift 


PRINT 


#8 ,CHR# (15) 
ein 
#8, 5TRING$ (55,"-") 


PRINT #B8,CHR&$ (Z7)+"6"; 


: REM 
PRINT 
PRINT 

: REM 
IF dru 
PRINT 

: REM 
PRINT 
PRINT 


+: TASPACE 


PRINT 
PRINT 
PRINT 

ı REM 
PRINT 


br k" 


PRINT 
„" kt 


Doppeldruck ein 

#8 ,SPACE# (27-INT (1/2) )stitel# 
#8 ,CHR& (Z7) +"H"; 

Doppeldruck aus 

ck<18 THEN 558 

#8 „CHR$ (27) +"A"+CHR#E(p); 
Setze LF auf p/72 inch 

#8, 5STRING# (55,"-") 
#8,".i7SPACE }Seite A{i13SPACE 
Seite B{12SPACE }." 

#8 ,,5STRING$ (55, "-") 
#8,".{3SPACE }’FREI : "; 

#8 „CHR# (27)+"G"; 

Doppeldruck ein 


#8 ,,USING "###": freeas :FRINT #8 


#8 „CHR# (27) +"H"; 

Doppeldruck aus. 

#8,"{15SPACE }FREI ı "; 

#8 „CHR$ (27) +"G"; 

Doppeldruck ein z 

#8 ,USING "###"; freeb; :PRINT #8 
1ASPACE >." 


PRINT #8 


FOR i=® 


PR 
tSSPAC 
NEXT i 
PRINT 


PRINT:PRINT 


n#=INK 


TO druck 
INT #8,". {2SPACE }"sdisc#li)s" 
E 3, 


#8, 5STRING$ (55,."-") 
"Noch ein Label ”? (j/n)" 


EY$: IF n$="" THEN 718 


n#=UPPER#$ in$) 


IF n$= 
IF n#< 
CLEAR: 
END 


"N" THEN END 
>"J" THEN 718 
MODE 2:60T0 128 


REM Automatischer Laengenabgleich 


IF tf=8B THEN aleng=i-1:RETURN: 


IF tf= 


ELSE 
1 THEN bleng=ei-1 


druck=MAX (aleng,bleng)} 


IF ble 


ng>aleng THEN 848 


IF aleng>bleng THEN 87% 


RETURN 


REM Mehr Files auf B-Seite 


ı FOR i= 


di 


{6SPACE }: 


NEXT i 
RETURN 


REM Mehr 


aleng+i TO bleng 
sc#(i)="{BSPACE }.{7SPACE }8 k 
"+disc#li) 


Files auf A-Seite 


FOR i=bleng+i TO aleng 
disc#li)=disc#tli)+"iBSPACE }. {75 
PACE }B k" 


NEXT 
RETURN 
END 


[CBFA]I 


[33EE] 
[BFCB] 


[2B2E] 
[DE15] 
[5AS5B] 
£75C4] 


[LöEBC]I 
[8058] 
[1228] 
[LACA&] 
[SFB4] 


[3CAC]I 
[2364] 
[FD4E] 


[3C12] 
[CBABZ2] 
[7BE8] 


ECDA&] 
LEEFA] 
[SCöEE)I 


EC588] 
[2028] 
[4202] 
[8758] 
[38Bö] 


[2971A] 
[D288] 


[7118] 
[C4ADö] 


[SC38] 
[585C] 


[2742] 
[AFB2] 


[35288] 
[8F86] 


[825C] 
[7A2A] 


[Fös5C] 


[CAD38] 
EiCDö] 


LaA2Q] 


[780C) 
[ABB&] 
L122A] 


[C958] 
[338C] 
[548C] 


[B754] 
[495C) 
[1536] 
[A128] 
[E416] 
[CAFF4] 
L?F28B] 
[4548] 


[21BC] 
[4218] 
[757E] 
[878A] 
[7D54] 
LiF86] 
[CB84E)] 


[DES6] 
[C426] 


Listing. Mit »Autolabel« bekommen Sie ein Inhalts- 


verzeichnis Ihrer Disketten 








fehle aufrufen. 


Programmie- 
ren — schnell 
und einfach 


Mit »Tastatur« können Sie 
mit nur einem Tastendruck 
die wichtigsten Basic-Be- 





anderen Anweisungen müssen aber Buchstabe für Buchstabe 
eingetippt werden. Außer man benutzt »Tastatur«, eine Pro- 
grammierhilfe. 

Drückt man einen Buchstaben gemeinsam mit der ShiftTa- 
ste, dann wird nicht der Großbuchstabe, sondern eine Basic- 
Anweisung aktiviert. Die Belegung der Tastatur finden Sie in 
der Tabelle. Die normalerweise in dieser Ebene liegenden 
Großbuchstaben können nur noch mit der Ctrl-Taste oder mit- 
tels »Caps Lock« aufgerufen werden. In das Programm sind 
auch noch die deutschen Sonderzeichen integriert. Da das »ö« 
die gleiche Belegung hat wie der senkrechte Strich (»ı«) der 
RSX-Befehle, darf dieser Buchstabe nicht in REM- oder DATA- 
Zeilen benutzt werden. 

Das Programm besteht aus zwei Teilen, wobei der erste alle 
Erklärungen enthält. Der zweite ist für die eigentliche Umdefini- 
tion zuständig und kann auch alleine benutzt werden. Wer an- 
dere als die hier vorgestellten Befehle mit einem Tastendruck 








Basic-Befehlsworte können sehr lang sein. Deshalb gibt es 
im Locomotive-Basic zwei Abkürzungen für besonders häufig 
gebrauchte Routinen — »?« für »PRINT« und »'« für »REM.«. Alle 


aufrufen will, der kann diese im zweiten Teil einbauen. 


(Karlheinz Battermann) 


ae a ul u ae udn ab u Dr U En DSL o BEL” BEL U DZL © BEL | 227 U 22 U 220 [227 7 S20 [U uzn 7 222 7 220 [7 S27 7 220 [220 7 225 7 S20 7 220 7 222 7 22 U 2 | 2 


2 ee 
nu ad ad u 
+ #4 


eine 


TASTATUR 


Programmierhilfe 


nu u ie = 
nd ı u 2 
u ie ı den a 


Bene u u u u che u che u En. ab. udn 0 Dön u DEL © BEL © 220 © 2Zn 0 BEL [un 7 220 © Szn | B20 7 222 [220 [220 7 220 © S20 [222 [ 220 | 220 U 20 U Un 


# Taste allein sit SHIFT wit CTRL # # Taste allein sit SHIFT 


# oder ## 
CAPS LOCK # + 


LOCATE 
MODE 
NEXT 
OR 
PRINT 
K 

1 
LISTA8 
. PEN 


- Du dd arm er mw 
som mon» 
= Zero Do stVYa.ß] 


LIST # 
INK Ä 


: . ze ooEıu„-=Z 


Berkungn Die Zeichen , Bi und K sind Steuerzeichen in PRINT Teilen, z.B, PRINT "q zur nächsten Zeile" usw, 


Anaerkanpı Das kleine > ö « darf nicht in REM- und DATA-leilen bemitzt werden !!! 


nn nn 


EEE EEE 
BE 2 2. TASTATUR 
**%+ eine [8448] 
*+#+ Programmierhilfe [BF22] 
“+ [718A] 
##+*(c) Karlheinz Battermann### [875C] 
*r% Weissdornweg 28 *** [3054] 
#*%+ 3422 Bad Lauterberg ###* [748E] 
u 2 u 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 22 2 2 2 223 [C1i2F?] 
INK B,B: INK 1,11:INK 2,1:INk 3,7 [71B2] 
MODE 1:PEN 3: PAPER d: BORDER 3:CLS [D1B2] 
LOCATE &,4:PRINT STRING$(3B,"*") LE3A2] 
ZONE 5: PRINT, "4#{7 SPACE} TÄSTATURLY 
 SPACE}###" CAAEB] 
PRINT,"###{97 SPACE}eine{1li SPACE}##+ 
3. LBO9FFE] 
C[D278] 
PRINT ,STRING$ (38, "#") 


[8072] 

LOCATE 7,25:PRINT CHR$ (164); "1985 by 
kabasoft-computing" CACDA] 
WINDOW 4,35,15,19:PEN 1:PAPER 2:CL5 LC[DE&2I 
PRINT:FRINT" Wuenschen Sie Instrukti 
onen?" 

ZONE 12:PRINT:PRINT,"> j/n <" 
as=INkEY$: IF as="" THEN 218 

IF a$="n" THEN CLS:60T0 358 E1iAAs]I 
IF a$="j" THEN 248 ELSE 218 [ö1AA] 
WINDOW 8,35,11,„22:PEN ERIEER 2:CL5 [A748] 


LB2ZE2] 
LS5SCF4] 


PRINT,"#**#{4 SPACE}Programmierhilfet 
4 SPACE}I%“##" 


[ö77E] 
[Es58] 
[D814] 


’» 





sit CTRL 
oder 
CAPS LOCK 


‘oo OOo zzer-—-=Z 


y 


+ # Taste allein mit SHIFT mit CTAL 


»#* | 


- Ey u a a a he 


PRINT"Dies Programm soll die Arbeit 


beim Äbtippen von Listings undbeim e 
igenen Programmieren er-leichtern." 


| FRINT"Deshalb wurden die wichtigsten 


Basic-Befehle auf die Tastaturgelegt 
.;‚ sodass nur eine Taste zusammen mit 
"SHIFT gedrueckt {2 SPACE}werden muss 
um z.B. den Basic-Befehl > WINDOW < 
zu geben." 

ZONE &:FRINT:FRINT,"weiter{i2 SPACE}- 
->{2 SPACE}Taste" 

CALL &BB1B:CLS 

PRINT"Alle Buchstabentasten, ausser 
OVYJK und X. sind mit Basic-Befehl 
en beleot. 

FRINT:FRINT"Die Grossbuchstaben der 
miti5 SPACE}Basic-Befehlen belegten 
Tastensind daher nur noch zusammen{?2 
SPACE}mit CAPS LOCK oder CTRL er-{3 
SPACE}reichbar !" 

ZONE &:PRINT:PRINT:PRINT,"weiter{2 5 

PACE}-->{2 SPACE}Taste" 


Tabelle. Die Be- 
legung der Tasten 
mit »Tastatur« 


£EFS18] 


[BBFA]I 


CF4E4] 
[SC4A] 


[4C44] 


[4252] 
CDA58] 


Listing 1. »Tastatur — eine Programmierhilfe« macht 
Programmieren einfach 


u 







































































CALL &BBiB:CL5 

PRINT"Auch der deutsche Zeichensatz 
wurde definiert. Hierbei darf jedoch 
das kleine >oe{X nicht{2 SPACE}in RE 
M- oder DATA-Zeilen be-{2 SPACE}nutz 


PRINT"Wuenschen Sie die Ausgabe des 
deutschen Zeichensatzes undt3 SPACE} 
der Basic-Befehle mit den zu- gehoer 
igen Tasten ueber den{i3 SPACE}Drucke 
r?i3 SPACE}> ji/n {" 

at=INKEY$: IF a$="" THEN 358 

IF as$<>"j" THEN 758 

FAPER 2: Cs 

WINDOW 4,35,14,19:PEN 1:PAPER 2:CL5 
PRINT:PRINT"Der deutsche Zeichensatz 
und{iZ2 SPACE}die Basic-Befehle mit d 
en zu- gehoerigen Tasten werden ausg 
edruckt. Bitte warten ..... 

PRINT#8 „CHR#$ (27) s CHR$ (B7) s CHR$# (1) ;CH 

R& (27) H CHR$ (69) ; CHR$ (27) HCHR$ (71): 20 
NE & 

FPRINT#8, ,„STRING$ (38,"*#") 
PRINT#B,,„"###{(7 SPAFEITASTATURCH SPA 

CE}###" 

FRINT#8,,"#*##{97 SPACE}eineflil SPACE} 

ee 

PRINT#B,,"*#*#{4 SPACE}Programmierhil 
tfei4 SPACE}###" 

FPRINT#8, „STRING# (38,"#") 

PRINT#B „CHR$ (27) : CHR$ (B7) 5; CHR# (B) ; CH 
R# (27) sCHR# (78) sCHR# (15) 

| ZONE 12:WIDTH 138 

FRINT#8, ,„STRING$ (128," 

PRINT#8, "4" TAB (15) Taste"; TAB(22) " 
allein"; TAB (29) "mit SHIFT";TAB(48) "m 
iE CTRL": TAB (51) "* #*#": TAB(55) "Taste" 
:TAB(52)"alleih"; TAB(&4PF) "mit SHIFT";: 
TAB (808) "mit CTRL"; 

FPRINT#8,TAB{?1)"# #"; TAB(95) "Taste"; 
TAB(182) "allein"; TABt1BF) "mit SHIFT" 
: TAB (128) "mit CTRL":TAB(132) "#" 

FRINT#B,,"*": TAB(43) "oder "+ TAB{51})"* 
#": TAB(83) "oder"; TAB(F1)"# #";TAB(1 

23) "oder": TAB{132)"#" 

PRINT#8,,"*": TAB(4B8) "CAPS LOCK": TAB ( 

51)"# *": TAB (BO) "CAPS LOCK":TABiF1)" 
*# #": TAB{128) "CAPS LOÖCK", TAB 132) "#" 
FRINT#8,,."* 


";STRING$(115,"-");" #" 


FRINT#8,,"#*": TAB(17)"die are 
Basic-Befehle sind „.un..nn ..";TABL 
132) el 


PRINT#B,,"* ":STRING£L116,"-")z" -" 
FOR d=1 TO 7:READ ti#,kis$, "B1$.916.t2 
$,k2$,b2$,92%,13%,k3$,b3$,93$ 
PRINT#B, ,"*"3 TAB(17)t1$; TAB (25) ki: T 
AB(31)b1$3; TAB(44)g1$; TAB(51)"* *"; TA 
B(57)t2$; TAB (65) k2$; TAB (71)b2$; TAB (B 
4)92#: TAB(91)"* ="; TAB(97)t3$: TAB(1@ 
5)k3$: TAB(111)b3$: TAB (124) 93%; TAB (13 
Be ya 
NEXT 
DATA A,a,AND,A,H,h,GOSUB,H,R,r,REM #* 
**,R,B,b,BORDER,B,I,i,INPUT,I,S,s,5Y 
MBOL,S,C,c,CLS,C,L,1,LOCATE,L,T,t,TH 
EN,T,D,d,DATA,D,M,m,MODE,M,U,u,USING 
‚U,E,e,ELSE,E.N,n,NEXT,N,V,v,VAL,V,F 
f ,FOR,F,0,0,OR,O,W,w,WINDOW,W,G.g,G 
OT0,6,P,p,PRINT,P,Z,z,ZONE,Z 
dg$=CHR$ (27) +"=": dn$=CHR$ (8) :dr$=CHR 
$ (27) +" 6" 2 dm$=CHR$ (27) +" 7" 





DE a0 2 2 2 2 0 0 5 2 2 5 0 2 2 22 0 2 2 000002 0 200 202; 










REM ###* TASTATUR “rr 
REM ### eine ###* 
REM ###+ Programmierhilfe #H 
REM RBB 






#44 
##H 


+++ Tastatur zuruecksetzen 
REM ### 

CALL &BBaa 

REM #%*# #%* 
REM Man 
REM #*#* Basic-Befehle definieren ## 
*##+# 1.Buchstabe=sBasic-Befehl ## 
**# ** 
128, "AND" 

1297 ,"BORDER" 

130, "CL5" 

131 ,"DATA" 

132, en 

1335, 
154, 
135," INPUT" 
136, "LOCATE" 
137,"MODE" 
158, "NEXT" 
137, "OR" 

































[1548] 


[A188] 
[FDE8] 


[C644] 
[C42C] 
(B744] 
L7F3E) 
[2666] 


CC1C83 
CBACE) 
[7E7EI 
[875E] 
[38B22 


[C88C 
[IEB&A] 
CB340) 


LEIEZ2] 
(BSFZ] 


[4925] 


[(FCB4] 


[8754] 


[EBEE] 
[CD18] 


[84A2] 
[SBiC] 


[8512] 


[ZBE4] 
L71FA] 


[LöAch] 
EDCAE] 





528 


6530 


540 


s58 


650 


678 


688 
678 


7008 
718 


728 


738 





FRINT#B,,"#": TAB(17)"J"; TAB(25) "7"; T 
AB (31) "3"; TAB(44) dg#: CHR$ (241); dn#; 
TAB(52)"# #": TAB(S5B8) "K": TAB(A6) "K"; 
AB (72) "KK"; TAB(85) dg$; CHR$ (24B) ; dn$; 
TAB(93)"# #": TAB(134) "+" 
PRINT#B,,"#";TABt17) "0": TAB(25) "q"; T 
AB (31) "Q": TAB (51) "* =": TAB(S7) "X": TA 
Bi85) "x x"; TAB(71) "X"; TAB (BA);  dg#; CHR#$ 
(283) ;dn$; TAB (972) "* *": TAB(9B) "Y"; TA 
B(106) " y"3TAB(112) "Y"3 TAB(133) "+" 
FRINT#B,,"#"; TAB{17)":2"; TAB(25) "2"; T 
AB(31) "LIST"; TAB(44) "x"; TAB (51) "* *" 
s TAB(5S7) "2"; TAB(55) "3"; TAB(71) "LIST# 
8": TAB(84) "+"; TAB(F1)"#* #": TAB(132)" 


*" 
“.T 


kn 


PRINT#B,,"#"; TAB{17)",„";TAB(25)", 
AB (31) "INK"; TAB(44) "<"; TAB (51) "x #'. 
TAB (57)".":TAB(85)". "TAB (71) "PEN"5T 
AB(B4) ">": TAB(F1)"* *": TAB (97) "7"; TA 
B{i1B85) "/";TABt111) "PAPER": TAB(124) "? 
":TAB(132) "#" 

PRINT#8,,"#*";TAB(17) "Anmerkung: Die 
Zeichen ";dg$; CHR$ (241) sn; " ":dg#; 
CHR# (24B) ;dn#;" und ";dg#; CHR#$ (283); 
dns; " sind Steuerzeichen in PRINT-Ze 
ilen, z.B. PRINT ";dg#s; CHR$ (34) ; CHR# 


(241) ;dn$; 
PRINT#8," zur nichsten Zeile"; dg$CHR 
$(34) sdns; " usw. ";TAB(137)"#" 
PRINT#B,,"# ";5TRINGFL1154,"-");" #" 
PRINT#B,,"*";TAB(17)"die deutschen Z 
eichen sind Tal 1132)" #" 
FRINT#8,,"* "sSTRING$ (116, ' it IE Se Se 
PRINT#8,,"*#":dm$; TAB (18) "Ersares TAB ( 
27) "(": TAB(33) "L"HTAB(46)", "dm$; TAB 
54)"# #": TAB(ABI" 1"; dr$: TABLAF) "I"; 
TAB (75) "X": TAB (88) ". " dm$: TAB (Fb) "* 
*": TAB(102) "\"sdr$3 TABt111)"}"; TAB {1 
17)"]": TAB{130)".": TAB(138) "#" 
PRINT#B, ,"#*"3dm#; TAB(18)".";dr$; TAB 
27)3".": TAB(33)".": TAB(45)".":dm$: TAB 
54)" # *"; TAB(&B) "@";dr$; TAB (69) """; 


TAB (75)". "; TAB(B8)". "dm; TAB(F)"* 
*":TAB(1902)"."sdr$; TAB(111)"."; TAB(1 
17)"."; TAB(1358)".": TAB(138) "#" 


PRINT#8,,"*"; TAB{(17) "Anmerkung: Das 


kleine > ! < darf nicht im REM- und 
DATA-Zeilen benutzt werden !'!'!";TAB( 
1327) "#" 

PRINT#8, ,„STRING$ (1208,"- 


PRINT#B,TAB{17}) dg$; ERS LIEM HANS" 
1985 by" kabasoft-computing" 

FAFPER B:CLS 

WINDOW 54,35,14,19:PEN 1:PAPER 2:CL5 

LOCATE 5,3: PRINT"Weiter bitte Taste" 
:LOCATE 12,5: PRINT"> i/n <" 

a$=INKEY$: IF af="" THEN 798 

IF a$="j" THEN 878 

CLSTLOCATE 8.,3:PRINT"# #{2 SPACE}E N 
D E{2 SPACE} * *":CALL &BBi8:END 

REM ### #r 

*#+ Programm >TASTATUR 25 ### 

##+# Dieses loescht den FPro-## 

*##+ orammteil >TASTATURT #%##+ 

REM ### #r 

ELS:PRINT:PRINT" Das Programm > TAST 

ATUR 2 <{3 SPACE}wird geladen. ":PRIN 

T" Bitte warten 

RUN" ! Tastatur 2" 


Tips & Tricks 


[20538] 


[D7EA] 


[SACA] 


[6158] 


[F7Z28] 


£1312] 
LıiF22] 


[1858] 
[6714] 


[7B&8] 


[SAZA]I 


[2914] 
[ABEE] 


[Bö4E] 
[9342] 
L7CAA] 


C6B44] 
CDA48] 
L72CA] 


EDAFA] 
CDF34] 


[D7ACI 
[5888] 


Listing 1. »Tastatur — eine Programmierhilfe« macht 
Programmieren einfach (Schluß) 





148,"PRINT" 
141,"REM ###" 
142, "SYMBOL" 
-143,."THEN" 
144, "USING" 
145, "VAL" 
146, "WINDOW" 
147," ZONE" 
###+ weitere 
148." INK" 
1497,."PEN" 
150,."FAPER" 
151, "GOSUB" 
152,."L1IST" 
153,"LIST#8" 
“+ 

###+ deutsche 
REM ##+ 

SYMBOL AFTER 8 
Ale 71,178,15,55, 188,178, 254,198, 


Basic-Befehle ##+ 


en 
Zeichen definieren 
#ar 





EEE RE AT ELTERN EEE RN U FORREGE NE, 


u 















458 SYMBOL 72,182,554,.188,198,1978,108,40, 
B 


[5C089A] 
470 SYMBOL 73,182,0,102,102,102,102,640,8 
[BE44] 
488 SYMBOL 123,182,0,1290,12,124,2904,118, 
a [4ABB] 
498 SYMBOL 124,102,90,48,182,1902,102,648,8 = 
CiF44] 
SO SYMBOL 125,192,8,1902,102,192,182,59, 
D [DEAB] 
18 SYMBOL 125,128,198,198,252,198,198,2 
48,192 [8925] 
328 REM #+*#+ Tastatur neu definieren ### L7EZE8] 
359 REM #*#*#* *##%* LCAFBO] 
548 REM #=#* Basic-Befehle auf ### [Bö?FE]I 
SS@ REM *#*#* Tasten + SHIFT legen *### L[88BA] 
540 REM #%*#+ *### [90Böä] 
578 REM *#** urspruengliche Funktion ##*# CAEB4] 
588 REM ### Tasten + SHIFT jetzt *### [C9BC] 
578 REM ### Tasten + CTRL !!ııı *### [21A4] 
500 REM ##* *#=#+ [EBAC]I 
618 a ti=1 TO 24:READ a,b,c,d:KEY DEF 
‚,1,b,c,d:NEXT [FFC] 


620 DATA 25 '97,128,65,54,98,129 ,66,62,99 
‚„130,67,61,1@0,131,68,58,1@1,132,89, 
53,182,133,70,52,103,134,71,35,105,1 
35,73,36,108,136,76,38,189,137.77,46 
‚118,138, 78,34,111,139.79,27,112,148 

59,114,141,82,60,115,142,83,51,1 
ie 2138: 84,42,117,144,85 C77581] 

430 DATA 55,118,145,86,59,119,146,87,71, 
122,147,90,39,44,148,60,31,46.149,62 
‚30,47,150.63,44,104,151,72,29,58. 15 


2,42,28,59,153,43 [5476] 
540 REM #%*# ### [BCB4] 
558 REM ###+ Deutsche Zeichen auf *### [58A4] 
568 REM #*#* Tasten mit und ohne *##* [5000] 
678 REM ### SHIFT legen. ### L[1A68B] 
580 REM ### *## [S5BBC] 
698 FOR t2=1 TO 4:READ a,b,c:KEY DEF a,8 
‚b,c:NEXT £[?DD4] 
7’u8 DATA 17,123,91,19,124,92,22,125,93,2 
6,125,166 [BOSE] 
7/18 REM ###+ ###* [CBiBöd] 
728 REM #**+ Zahlenblock auf Zahlen #*#%##+ [4308] 
7308 REM #*#*+ umstellen *###* C[CDD24] 
7/48 REM #%*#+ *### L[9I2BA)] 
758 FOR t3=1 TO i2:READ a,b,c,d:KEY DEF 
4,8,b,c„d:NEXT [4C4E] 


DATA 10,55,55,55,11,56,56,56 ,3,57,57 


Unsichtbare 
Programme 


Fünf Kommas und ein Dop- 
pelpunkt reichen aus, um 
eine Programmzeile zu ver- 
stecken. Mit »Superlist- 
schutz« schützen Sie das ganze Pro- 
gramm vor dem LIST-Befehl. 








Es gibt unzählige Tricks, Programmzeilen aus einem Listing 
scheinbar verschwinden zu lassen. Man muß verhindern, daß 
bestimmte, für das Programm wichtige Anweisungen gelistet 
werden. Der Interpreter soll diese Befehle aber trotzdem fin- 
den und bearbeiten können. Manipulationen an Adressen, in 
denen Zeilennummer oder -länge stehen, sind am einfachsten 
zu realisieren. 

Hier finden Sie nun eine neue Methode, verschiedenste An- 
weisungen (oder auch das ganze Programm) optisch ver- 


schwinden zu lassen. Gibt man hinter der Zeilennummer einen 


Doppelpunkt und daran anschließend fünf Kommas ein, so ge- 


nügt ein POKE-Befehl, um die ganze Zeile zu verstecken. Falls 





Dt. m _.- ni Ze U b 2 Eu MB 4 0 





‚37,20,52,52,52,12,53,93,53,4,54,54, 
SI4, 13,49,49, 49, ia, 58,50,50, 5,51,51, = 
1, 15, 48,48,48, T 4b, 44,46,6,13,153, 13 [9414] 













770 REM ##%* ur [C4FBC] ! 
788 REM #*%* Auch nach dem Loeschen *#%*# L[34821 
80 REM *** des Listings bleiben *### LC23F4] 
BBQ REM *#* die Funktionen voll er- *** LCEBDS] 
BiG@ REM ###* halten. *#*# [ADB4A] 
828 REM *#*# Nach einem Symbol after **= L[FED4] 
830 REM #** werden jedoch die *## L[373E] 
848 REM #** deutschen Zeichen ge- *##*%* L7DFC] 
858 REM ### loescht'!'!!ıı *###+ L[74EB] 
8408 REM ### *#** LCBEBC] 






878 CLS:LOCATE 2,2:PRINT" In welchem MOD 
E >1 oder 2<{4 SPACE>michten Sie ein 
tippen?{Z2 SPACE}";:LINE INPUT; af: a=V 














AL (as) [?1386] 
888 ON a GDTD 709,1928 [FZBE] 
878 REM *%*#* “+ [Bö82] 
FBQ REM **#* MODE 1 “** CF71DE] 
1 REM #*#* *## [4474] 
728 MODE 1:INK 1,„11:BORDER 3 [SFEE] 
732 WINDOW 1,48,1,1:PEN 3:PAPER B:CLS [B?7A] 
748 ZONE 14:PRINT,"#* TASTATUR #" [8B82] 







58 WINDOW 1,408,25,25:PEN 3:PAPER B:CLS [A456] 
9&8 ZONE 5:PRINT, CHR£(1654);" 1985 by ka 



















basoft-computing" [E258] 

778 WINDOW 1,48,2,24:PEN 1:PAPER 2:CL5 LEDEE] 
788 LOCATE 7,13: PRINT"Programm 1ischen”? 

>j/ni" [61565] 

778 a#=INKEY$: IF af="" THEN 9778 [8258] 

1800 IF a#="j" THEN NEW [7BB2] 

1B1® CLS:END [SCAA]I 
1828 REM #%#* MODE 2 **%* 

[2974] 

1058 REM ##** *##* L[B2C8] 

18408 MODE 2: INK 1,15:BORDER i j [4548] 

10858 WINDOW 1,88,1,.1:PEN B:PAPER 1:CL5S [&BD2] 

1858 ZONE 34:PRINT,"#* TASTATUR #" [78DA] 






1878 WINDOW 1,88,25,25:PEN B:PAPER 1:CL5 as 
CD4AE 
1888 ZONE 25:PRINT, CHR$(164):" 1985 by 
kabasoft-computing" | [CAC1B8] 
1878 WINDOW 1,80,2,24:PEN 1:PAPER B:CLS L[BB46] 
1188 GOTO 788 C7BBB] 



















Listing 2. Im zweiten Teil wird die Tastatur 
angepaßt (Schluß) 






















Sie es nicht glauben wollen, geben Sie einfach folgende Zeile 
ein: 

10 :,„PRINT "Dieser Text ist unLISTbar” und direkt »POKE 
368+5,0« ein. 

Mit »LIST« wird auf dem Bildschirm nur »10:« ausgegeben. 
Nach »RUN« wird die Zeile 10 aber korrekt bearbeitet und »Die- 
ser Text ist unLISTbar« ist zu lesen. So kann man beispielswei- 
se einen Copyright-Vermerk in ein Programm einbauen, der nur 
sehr schwer wieder zu löschen ist. 

Falls man jede einzelne Zeile so manipuliert hat, kann das 
ganze Programm zwar abgearbeitet, aber nicht gelistet wer- 
den. Der Aufwand ist jedoch sehr groß. Mit dem Programm 
»Superlistschutz« werden die zu schützenden Zeilen automa- 
tisch umgewandelt. Nach dem Eingeben der Routine (ab Zeile 
50000) muß das zu bearbeitende Programm mit »MERGE 
" Name” « geladen werden. Danach nur noch die Funktionsta- 
ste »f9« (Taste »9« auf dem Zahlenblock) drücken und »Super- 
listschutz« startet. 

Drei Punkte muß man allerdings beachten: 

1. Da das Programm aus Platz- und Geschwindigkeitsgrün- 
den mit Integerzahlen arbeitet, dürfen die Zeilennummern 
nicht größer als 32767 sein. 

2. Die Zeilennummer O ist nicht zulässig. 

3. Da jede Zeile um sechs Zeichen länger wird, darf die ur- 
sprüngliche Folge nicht mehr als 249 Zeichen haben. 

Die wichtigste Anweisung finden Sie mit dem EDIT-Befehl in 
der letzten Programmzeile. Sämtliche Zeilen des zu schützen- 
den Programms werden automatisch um einen Doppelpunkt 
und fünf Kommas ergänzt und durch den POKE-Befehl in Zeile 
50880 »versteckte. 

(Jörg Braun) 





1/86 Soı 





derheft 











REM Kur 
REM * ic) Joerg Braun * 
REM *# Waldenburger Str. 5 * 
REM # 3338 Helmstedt * 


REM Kar 
MEMORY HIMEM -41: 
REM Bis Zeile 58258 befindet sich 
die 
DEF FNmsb (a)=#FF AND INT (a) /256: 
REM Mergeroutine fuer Floppybesitz 
er. 
DEF FNlsbla)=&FF AND UNT(a): 
di User ohne Floppy bitte nicht a 
FOR i=HIMEM +1 TOD HIMEM +38: 
REM tippen. 
READ byte 
POKE i,byte 
NEXT i 
FOKE HIMEM +3,FNIlsb {HIMEM +39) 
FOKE HIMEM +4,FNmsb (HIMEM +39) 
FOKE HIMEM +97,FNlsb (HIMEM +41) 
POKE HIMEM +18,FNmsb (HIMEM +41) 
POKE HIMEM +18,FNl1sb (HIMEM +1) 
FOKE HIMEM +17,FNmsb CHIMEM +1) 
REM cas_ in _char 
POKE HIMEM "+39, PEEK (&BCB8+B) 
FOKE HIMEM +40, PEEK (&BCB8+1) 
FOKE HIMEM +41 PEEK (&BCB@+2) 
POKE &BCBB+Q,%C3 
POKE &BC88+1,FNIsb (HIMEM +1) 
FOKE %&BC88+2,FNmsb (HIMEM +1) 
DATA ke5,&23,%&990,%:29,422,&80,&bc 
DATA 2323,300,200,:32,282,&bc 
DATA %cd,%89,&bc „&21,%00,%B0 
DATA 222,&B81,&bc,%&21, 30, & BC 
DATA 35, ‚&c3, Lel,&:dB,&cB,fe,&kila 
DATA 237 ,&3f, &cQ, &b7, &37, %c9 
'%% Hier Ende der Fioppyrautine * 
## 
zn: Zeilennummer 
ad: Zeilenadresse 
a:Schleifenvariable 
b#:Schleifenstring (fuer Datas) 


MODE Z2:WINDOW #2,1,88,4,22:CL6 1:C 
LS#2 _ 

WINDOW#3,1,88,18,15 

FOKE %B1C8B,B:POKE &BiCF,„&F8:FOKE & 
BiD8,&F: REM Bildschirmmode umsch 


alten 
LOCATE 2,2:PRINT "Listschutz-Spezi 
al [7 


LOCATE 2,24:PRINT " "CHR#(154) "198 
5 by J.Braun " 
POKE &B1C8,2: 

REM Wieder nach Mode 2 
WINDOW SWAP 3 
PRINT"Merge Frogrammname" 


PRINT"Starten mit Funktionstaste ?7 
KEY 9,"run 5987978" +CHR# (13) : END 
44+ #4# “Er Be en #8 


REM Hier beginnt die Tastenpufferm 
anipulation 


RESTORE 5@530:FOR a=i1 TO 15 


READ b$:b#="&"+b# 
FOKE &B514+a-1,VAL (b$) 


POKE &BS3E, 7 


FOKE %&BSSF, 2 
8 RETURN 


0, Er ‚22,80,82,801,48 


een ### ###+ #4 ### 


RESTORE 5@648:FOR a=1 TO 28 
READ b$:b$="&"+b$ 
POKE &BS14+a-1,VAL(b$) 
NEXT 
POKE &BS3C,11 
POKE &BS3D,1® 
POKE &BSSE,11 
POKE &BS3F,D 
RETURN 
DATA 20,02,00,02,00,02,08,02, „00,02 
‚20,02, 01,40,00,20,02,10,082 
+++ # Pe # Pr Pe ee 
RESTORE 587@0: FOR a=1 TO 14 
READ b$ 
POKE &B514+a-1,VAL"&"+b$) 
NEXT 
DATA 20,22,20,02,00,02,81,40,00,208 
‚22,10,02,84 
POKE &BS3C,14 
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[5574] 
L45B8] 
[ö7E4] 
[dEEB] 
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[3314] 


[5548] 
CC7CCI 


L4C2E] 
[BB7E] 
[SESC] 
L15A8] 


[4B5@] 
COSACI 
[1678] 
[52F@] 
[20881 
CBFBEI 
[8126] 
[5202] 
CCDC&] 
CaFBB] 
[CB4F8] 


[3885] 
LES7&6] 


[236€] 
C17F4] 
[A184] 
CAAC2I 
[4026] 
[@E16] 
[4B1C) 
COBBCI 
CFIFCI 


[3F72] 
[LöA7A] 
[5372] 
[D1C8] 
[54B2] 
[AFCS] 


[74D8] 
[4E28] 





0728 
0738 
>0740 
0758 
0768 
0778 
>20788 
0778 
SBBaB 


Saa1® 


309725 
9730 


Tips & Tricks 


FOKE %&B53D,7 


"4% #r* “** Ben *#% 

REM Ende Tastenpuffermanipulation 

: 

REM Hauptprogramm 

KEY 2Z,CHR#$(B): 

REM Es wird das Druecken dieser 

KEY 3, "E49, "+CHR# (13) +CHR$ (13): 
REM 3 Tasten sowie mehrer Cursor 


KEY 4,"goto 59888" +CHR# (13): 
REM tasten simuliert. 


zn=PEEK (370) +256*PEEK (371) 1 ad=368 


ı GOTO 507808 


"####%4+#+ Ende Initialisierung ####+ 
*#% 


4 
FOKE ad+5,ß: 

Zeilenadresse+5 auf 8 poken 
ad=ad+PEEK (ad): 

Auf naechste Zeile erhoehen 
zn=PEEK (ad+2) +255*PEEK (ad+3): 

Neue Zeilennummer auslesen 


REM 
REM 
REM 


IF PEEK (ad) +256*#PEEK (ad+1) >249 THE 


N MODE 1: 
FRINT"Zeile "zn" ist z 
u lang":CALL &BBBß3:STOP: 
REM Fuffer 
entleeren,noch erlaubte Zeilenlae 
nge 


2 
IF zn>=58888 THEN CLS:CALL %&BBO3: 


PRINT"Geschuetztes 
Frogramm kann gespeichert werden": 
DELETE 

anDAa— 


Sa740 : 


09758 


SO7&8 
sa770 


IF zn>797 AND zn <1000 THEN GOSUB 5 
28448: 'Tastenpuffermanipulation auf 
rufen 

IF zn< 188 THEN GOSUB 50448 

IF zn>#97 THEN GOSUB 505580 


SQ?7BB : 


sa7F78 


IF zn>32767 THEN MODE 1:PRINT"{CTR 
L G}Zeilennummer "zn" zu gross": 
EEE CALL &BBB3:5 


REM Noch Integer ? 


Ss1080 : 


s1B18 
51828 
18358 
1848 


51858 


10408 
51878 


51088 


lbzn=zn MOD 255: REM Lowbyte Zeile 

nnummer= zn Mod 25% 

hbzn=zn 4 256 : REM Highbyte Zeil 

ennummer= zn \ (=) 

: 

FOKE PEEK (&AEB3) +?254#PEEK (&AEB4I-5 
bzn: REM Zeilennummer bei Ed 


1 
FOKE PEEK (&AEBF3) +255#PEEK (LAEB4)—4 
‚hbzn: REM veraendern 


REM Zeiger auf Programmende wenige 
r 5 Bytes = Zeilennummer bei edit 
EDIT 51848 


Listing. Machen Sie mit »Superlistschutz« 
Ihre Programme unsichtbar 





CF7CB] 
CC9CE]I 
C19C2] 
CE102] 
C6B7E] 
[2B96] 
CiCBCI 
[1820] 


LS7AE] 


[&F&6E)] 
[As&BB] 
[2BB4] 
E1iCöC] 
E7?7FZ2] 


[5744] 
Li7BC] 


[9454] 
[SB3SE] 


[SD18] 
[4DB2] 


[27Dö] 
[SEBE] 


[4DB2] 
[54B8] 


[BLEH] 
[3070] 
[CFö6] 
[48C8] 


[S76C] 
[CBBAB] 


[35AB] 


LED25] 
[aaAs] 


£[?D12] 
[C87C] 
[1B85] 
[S4FE] 
[FBBC] 
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Tips & Tricks 
Tricks mit 
dem Joystick 


dem Joystick alles machen 
| können. 











Der CPC 464 hat mit anderen Computern, beispielsweise 
dem 64, gemeinsam, daß die Joysticks auch mit der Tastatur 
abgefragt werden können. Wer Programme mit Joystick- 
Bedienung schreibt, sollte deshalb »INKEY (x)« oder »INKEY$« 
statt »JOY(x)« verwenden, damit sich Besitzer ohne Joystick 
das Programm mit einigen KEY DEF-Befehlen anpassen kön- 
nen. 

Wie aus dem Anhang Il (Seite 16) des Benutzerhandbuchs 
zu ersehen, besitzt die Tastatur für diese KEY DEF-Befehle ei- 
ne besondere Numerierung. Die Werte gehen von O bis 79, 
wobei die Werte 72 bis 77 für den Joystick O reserviert sind. 
Die Werte 48 bis 53 für den Joystick 1 liegen parallel zu den Ta- 
sten 5, 6, F, G, Rund TT. Die Numerierung erlaubt, daß die Zu- 
ordnung der Joystick-Bewegung und Feuertasten leicht verän- 
dert werden kann. 

Der Joystick als Cursor: 

Mit »RUN 50« wird der Joystick so definiert, daß er anstelle 
der Cursortasten verwendet werden kann. Die vier Richtungen 
entsprechen den Cursorrichtungen, die beiden Feuertasten 
der Copy-Taste. Drücken Sie gleichzeitig Shift und den Joystick 
in eine Richtung, so erscheint der Copy-Cursor. Mit Ctrl und 
Joystick nach links wird der Cursor an den Anfang der Bild- 
schirmzeile, bei Joystick nach rechts gemeinsam mit Ctrl an 
das Ende der Zeile gesetzt. Mit Ctrl und Joystick nach oben ge- 
langt man an den Anfang der Eingabezeile, bei Joystick nach 
unten an das Ende der Eingabezeile. Nach kurzer Gewöh- 
nungszeit läßt sich der Joystick angenehm benutzen. 
Dauerfeuer: 

Haben Sie keinen Joystick mit Dauerfeuer-Knopf, so sind die 
Zeilen 130 bis 210 für Sie besonders interessant: Nach »RUN 
130« verfügen beide Joysticks über Dauerfeuer — aber nur, 
wenn die Joysticks mit »INKEY(x)« oder »INKEY$« bezie- 
hungsweise den Maschinensprache-Äquivalenten abgefragt 
werden. Bei »JOY(x)« hängt es von der Programmierung ab, ob 
ein Dauerfeuer möglich ist. 

Joystick-Zuordnung verändert 

Für Programme, die nur Joystick 1 abfragen und die Joy- 
sticks mit »INKEY(x)« oder »INKEY$« abfragen, können Sie mit 
»RUN 220« die Zuordnung des Joysticks O auf 1 ändern. 
Caps-Lock und Shift-Lock: 

‚ Oft ist es nützlich zu wissen, ob die Caps-Lock oder Shift- 


. Lock-Tasten gedrückt worden sind. Dies kann man durch Ab- 


frage der Speicherstellen B4E7hex und B4E8hex erfahren. 
Nach »RUN 300« wird der aktuelle Zustand ausgegeben. 

Mit Ctrl und Caps-Lock wird der Modus Shift-Lock einge- 
schaltet und auch wieder abgeschaltet. In diesem Modus wer- 
den auch die Tasten der Zahlenreihe in der Shift-Ebene abge- 
fragt. Zahlen können dann nur noch über den Zehnerblock ein- 
gegeben werden. 

Mit POKE-Befehlen an dieser Adresse kann Shift-Lock oder 
Caps-Lock eingeschaltet werden. Starten Sie mehrmals »RUN 
340«. Jedesmal wird zwischen Groß- und Kleinschreibung hin 
und her geschaltet. 

(Martin Kotulla) 








LB7’Cö] 


' AiC) Martin Kotulla 


Grabbestr. 7 
8588 Nuernberg 


| 58 ' Joy-B als Cursor vn 
&0 KEY DEF 72,1,%F8,&F4,%&F8 
’B KEY DEF 74,1,%&F2,&F4,&FA 
| 88 KEY DEF 73,1,%F1,&F5,&FF 
98 KEY DEF 75,1,&F3,&F7,&4FB 
ı 180 KEY DEF Fu; ir LED, LEO, LED 
KEY DEF 77.,1,%E0, ‚LED,&ED 
| END 
* Dauerfeuer aaa 
‘ —- Joystick BD 
CALL %&BEBB °' Tastatur initialisieren 


KEY DEF 75,1,%&58,&58,&58 
KEY DEF 77,1,%&5A,&5A,&5A 
a Joystick" 1 
Er 52,1,&67,&47,%7 
53, 1,66, 446, &h 


als Joy-i ee eneson 
72.1, FR 

74,1,872, 252, %12 

73, : „235,425 
75,1,&74,54,&14 

76, 1 ‘uh7, 447, '%7 

77/,ls "bb, &46, u 


[8088] 
[F2ZFE] 
[8824] 
" Abfrage von Caps/’Shift Lock #####+ [BEBB] 
IF PEEK (&B4EB) =255 THEN PRINT "Caps 

Lock! CilF8] 
IF PEEK (&B4E7) = =255 THEN PRINT "Shift 

Lock! [F2E&] 


END [A41A] 
' Setzen von Caps/’Shift Lock #####* [(Bößö] 
ı FOKE &B4E8B,255 AND NOT PEEK(&B4EB) [2AS36] 
END [L9F28] 


Listing. Der Joystick hat viele Vorteile 








Schnell 
gespeichert 


Zwei POKESs an der richti- 

gen Stelle reichen aus, um 

A die Speicher-Geschwindig- 
|; keit zu erhöhen. 








Wie man die Geschwindigkeit des eingebauten Kassetten- 
recorders verändert, das können Sie in dem Artikel »Was tun, 
wenn's Fehler hagelt?« lesen. Mit zwei POKE-Anweisungen 
lassen sich aber auch direkt die Werte für die CAS SET SPEED- 
Routine beeinflussen. 

Der notwendige Basic-Befehl lautet »POKE &B8D1,x:POKE 
&B8D2 y«, wobei Sie die Werte für x und y aus der Tabelle über- 
nehmen können. 














(Martin Kotulla) 


&B8Di &B8D2 | 
1000 Baud (SPEED WRITE 0) 6 83 
2000 Baud (SPEED WRITE 1) 12 41 


3600 Baud (Maximalwert) 2 23 


Dieser Wert muß gePOKEt werden 


1/86 Sonderheft Schneide 

















Kleine 
Buchstaben 
ganz groß 


d Machen Sie Ihr Programm 

' mit einer kleinen Hilfsrouti- 
ne interessanter. Mit ihr 

_ Wr | können Sie Buchstaben 
E andere Zeichen in vierfacher 
Größe auf den Bildschirm zaubern. 





Der Trick der Routine »Big Letters« besteht darin, daß der ge- 
samte Zeichensatz mit dem Befehl »SYMBOL AFTER O« ins 
RAM kopiert wird. Dort kann er — im Gegensatz zum ROM, in 
dem er normalerweise steht — mit PEEK ausgelesen werden. 
Das Programm wandelt nun jede Zahl, die einer Rasterzeile des 
Buchstabens entspricht, in einen Binärstring um. Der Befehl in 
Zeile 200 prüft, welche Bits in dem Zeichen gesetzt sind. Die 
PLOT-Anweisungen in den Zeilen 210 bis 240 setzen dann die- 
sen Punkt in vierfacher Größe. 

Sie sind übrigens nicht auf eine bestimmte Buchstabengrö- 
Be festgelegt. Fügen Sie einige PLOT-Befehle dazu oder las- 
sen Sie einige weg, so verändert sich die Größe des ausgege- 
benen Zeichens. 

(Martin Kotulla) 


" BIG LETTERS 


= u 2 0220202020202 02 


iC) Martin Kotulla 
Grabbestr. 7 
8502 Nuernberg 


88 
70 CLS: SYMBOL AFTER B:MODE 1 


INFUT "Welcher Text? "„ascii# 
ORIGIN 1,308 

FOR k=1 TO LENtascii*#) 
ascii=ASC(MID$(ascii$#,k,1)) 
charadr=HIMEM+ascii#B+8 
FOR i=-1 TO 8 

a=PEEK (charadr) 
binaer$=BIN#(a,8) 

FOR ji=1 TO 8 
segment#=MID#(binaerf#,j,i) 
IF segment#+="B" THEN 258 
PLOT x+j#4,i*4 

FLOT »+2+j%#4,i1#4 

FLOT x +j#4,i1#4+2 

FLOT »+2+j#4,1%*4+2 


NEXT j:charadr=charadr-1:NEXT i 


yx+32 
NEXT k 
LOCATE 1,23:END 


Listing. 
Viermal so große Buchstaben erzeugt »Big Letters« 


CB9BAI 
[5052] 
[7B30] 
[8256] 
[4FCE] 
CEBEB] 
LSrYCE] 
[865E 1 
[@51A] 
CBEDS] 
[9414] 
CöBA&] 
[4924] 
CD7&48] 
[2FSE] 
[9940] 
[6@3A] 
[4866] 
LEDCA] 
[C3ASE] 
LEAEB] 
CDF9CI 
CDBIE] 
[7054] 
[A7@2] 


[BSEA] 


[4106] 
LSCCA]I 





Keicher Text” Big Letters 


BHıyg Letters 


»Big Letters« — Buchstaben ganz groß 





Endlich wie- 
der sichtbar 


Der Befehl »SAVE ”’Name’” 
‚p« ist zwar praktisch, wenn 
man nicht jedem sein Pro- 
gramm zeigen oder es 
schützen will. Aber was macht man, 
falls noch etwas geändert werden 
muß? 





Wer hat sich nicht schon über den eigenen Leichtsinn geär- 
gert, ein Programm geschrieben und es dann dummerweise 
geschützt (protected) gespeichert zu haben? Besonders 
wenn keine andere Kopie von dem Meisterwerk vorhanden ist! 
Jetzt kann man zwar das eigene Programm laden und ablaufen 
lassen, aber Änderungen sind nicht mehr möglich. Um Ihnen 
aus diesem Dilemma herauszuhelfen, soll die kleine Routine 
dienen. 

Ein Basic-Programm, das nur aus zwei Zeilen besteht, macht 
aus einem »protected« ein »unprotected«. Die Routine steht im 
Speicher an einem Platz, der von der Betriebssystem-Routine 
»CAS IN DIREKT direkt aufgerufen wird. Sie schreibt den Wert 
Nullin die Speicherzelle AE2Chex, die das Protected-Flag dar- 
stellt. Der Wert Null bedeutet in diesem Fall, daß dieses Pro- 
gramm nicht geschützt ist. 

Wer nun aber glaubt, auch professionelle Programme damit 
knacken zu können, der wird enttäuscht sein. Die Software- 
Häuser verlassen sich schon lange nicht mehr auf den einge- 
bauten Schutz. Sie benutzen eigene Routinen. 


(Michael Bauer) 


ae 2 2 2 22 22 2032 022 2 12 22 az 2 1 ze 2 E22 me 2 ee ee ee [3E10] 

"# ic) Michael Bauer #* LAFAH]I 

——* Schwanthalerstr. 188 #* [9284] 

#* B8RB8 Muenchen 2 * [1?D8] 

HH [3E18B] 
&0 FOR p=%BE7F TO %BEB4:READ d:POKE p,d: 

NEXT p [7178] 
78 DATA %3E,0,%32,&2C,&AE,&%C LEC4C]I 


Listing. Mit zwei Zeilen können Sie Ihr versehentlich 
gesichert abgespeichertes eh wieder lesen 


| DRÜCKE NUR DIE NEW-TASTE 
UND ICH VERZEIHE DIR ALLES... 








_ Tips & Tricks 

















Grundlagen 





Daten im direkten 





Zugriff 





Relative Dateiverwaltung ist mit 

' dem DOS der Schneider-Disketten- 
station nicht ohne weiteres möglich. 
Im ROM sind die notwendigen 


Routinen aber schon vorgesehen. Mit einer 
Befehlserweiterung kann man sie leicht be- 
nutzen. Adressen komfortabel zu speichern 
ist dann beispielsweise kein Problem mehr. 


em komfortablen Basic des 
D CPC fehlt eine wichtige Routi- 

ne, die relative Dateiverwal- 
tung. Leider sieht Amsdos diese 
Möglichkeit nicht vor, selbst nicht 
über die Sprungvektoren. 

Es gibt aber dennoch einen 
brauchbaren Weg relative Dateien 
zu erzeugen. Beim Studium der 
ROM-Routine der Diskettenstation 
fällt auf, daß Amsdos-Dateien in so- 
genannten Records (das sind Auf- 
zeichnungseinheiten zu je 128 Bytes) 
auf Diskette geschrieben sind. Dies 
geschieht unabhängig von der Grö- 
Be der physikalischen Sektoren, die 
512 Bytes umfassen. 

Glücklicherweise gibt es Ams- 
dos-Routinen, die — ähnlich wie un- 
ter CP/M — einen bestimmten Re- 
cord einer Datei lesen und be- 
schreiben können, ohne die davor- 
liegenden erst lesen zu müssen. 
Dies ist Voraussetzung für den Di- 
rektzugriff. 

Eine relative Datei wird zunächst 
einmal als sequentielle Datei ange- 
legt. Dies geschieht am einfachsten, 
indem wir mit SPACE$ Leerstrings 
erzeugen, die exakt der gewünsch- 
ten Datensatzlänge entsprechen. 
Um die relative Datei später wahl- 
weise auch sequentiell lesen zu kön- 
nen, fügen wir an jeden Leerstring 
noch ein Carriage Return (CR)-Zeı- 
chen (DHR$(13)) und ein Line Feed 
(LF}-Zeichen (CHR$(0)) an. Aller- 
dings ist das für die relative Datei 
nicht unbedingt erforderlich. Im- 
merhin werden dadurch für jeden 
Datensatz zwei Bytes mehr benötigt. 

Wir schreiben nun die Anzahl von 
Leerstrings (einschließlich CR und 
LF) in die sequentielle Datei, die die 
relative Datei an Datensätzen erhal- 
ten soll. Dann können wir mit der Be- 
fehlserweiterung »IRECWRITE« je- 





den einzelnen Datensatz beschrei- 
ben und mit»IRECREAD« wieder le- 
sen. 

Übrigens muß die Datensatzlänge 
keinesfalls mit der Recordlänge von 
128 Bytes übereinstimmen. Sıe kann 
frei zwischen 1 und 255 Zeichen ge- 
wählt werden; selbst wenn ein Da- 
tensatz über zwei oder drei Records 
verteilt ist. Die Befehlserweiterung 
ist deshalb so aufgebaut, daß ein 
String mit gegebener Länge ab dem 
n-ten Zeichen der Datei geschrie- 
ben beziehungsweise gelesen wird. 
Das erste Zeichen in der Datei hat 
dabei den Wert Null. Das Maschi- 
nencode-Programm errechnet hier- 
aus automatisch den zugehörigen 
Record und die Position in diesem, 
ab der gelesen oder geschrieben 
werden soll. 

Bei jedem Schreib- und Lesevor- 
gang werden drei hintereinander- 
liegende Records in einen Puffer 
gelesen beziehungsweise von dort 
aus wieder auf die Diskette ge- 
schrieben. Die Anzahl der Bytes ist 
in der Stringlänge gegeben. 

Hier ein Beispiel, das diesen Vor- 
gang verdeutlichen soll. Angenom- 
men, wirhabeneine Datensatzlänge 
von 200 Bytes, einschließlich CR und 
LF, und möchten den 38. Datensatz 
lesen und ihn in der Stringvariablen 
a$ ablegen. Zunächst muß mit »a$ = 
SPACE$(98)% ein Leerstring mit 198 
Zeichen (200 abzüglich CR und LF) 
erzeugt werden. Als nächstes wer- 
den drei aufeinanderfolgende Re- 
cords in den Puffer gelesen, begin- 
nend mit dem, der das 7600.(=38* 
200) Zeichen der Datei enthält. Nun 
ist aber 7600/128 = 59 Rest 48 wes- 
halb wir die Records 59, 60 und 61 
einlesen müssen. Da die Bytezäh- 
lung der Records nicht bei |, son- 
dern bei Byte 0 beginnt, greifen wir 


R, Pur TE Pi. — Aa. a Fa a BUT? a ee 














































aufRecord 59, Byte 47 zu. Der 38. Da 
tensatz ist somitin Record 59, Byte 47 
bis 127 (80 Bytes) und Record 60, By 
te 0 bis 117 (118 Bytes) (ohne CR, LF} 
gespeichert. Es erübrigt sich, in die 
sem Fall auf den dritten Record 
zugreifen. Er wird aber immer mi® 
gelesen und -geschrieben. Zum 
Schluß wird der Datensatz aus dem 
Recordpuffer in den vorher ange 
legten Leerstring zur weiteren Bear 
beitung übertragen. 

Beim Schreiben werden zuerst 
die drei betroffenen Records vor 
Diskette gelesen. Dann wird der In- 
halt des Datensatzes in den Puffer 
an der Stelle abgelegt, von wo sie 
wieder auf Diskette geschrieben 
werden. Die Größe der relativen 
Datei ist lediglich durch die Auf 
zeichnungskapazität der Diskette 
beschränkt, die beim Schneider 180 
KByte (Datenformat) beträgt. 

Beachten Sie aber, daß sowohl vor 
Schreib- als auch Lesezugniien in 
relativen Dateien immer die 
OPENIN-Anweisung nötig ist. Nie- 
mals darf aber OPENOUT benutzt 
werden, da dies eine neue Datei an- 
legen würde, 

Ebenfalls unter allen Umständen 
zu vermeiden ist ein Schreibzugniff 
auf eine höhere Datensatznummer 
als für die die Datei ausgelegt ist 
Deshalb sollten Sie eine Sicherheits 
abfrage in Ihre Programme einbau- 
en, die so etwas verhindert. Wenz 
darüber hinaus beim Anlegen der 
Datei immer zwei zusätzliche Re 
cords reserviert werden, sind Sie 
vor unangenehmen Überraschun 
gen sicher, wenn Sie auf einen der 
letzten Sätze zugreifen. 

Bevor nun die Arbeit mit den neu- 
en Befehlen an einem Beispiel be- 
ginnt, müssen Sie den Basic-Lader 
(Listing ]) für das Maschinenpro- 
gramm eingeben. Die Routine liegt 
dann ab A000 hex. Möchten Sie die 
Erweiterung in Ihre eigenen Pro 
gramme einbinden, gibt es drei ver 
schiedene Wege. Entweder Sıe be- 
nutzen den Basic-Lader und laden 
später Ihr eigenes Programm. Ein 
anderer Weg: Sie hängen den La- 
der mit Hilfe von »CHAINMERGE« 
an Ihre Programme an und rufen ihn 
dann als Unterprogramm auf, Dazu 
müssen Sie die Programmzeilen der 
Routine mit »RENUM« neu ordnen, 
so daß sie höhere Zeilennummern 
benutzt als Ihr BASIC-Programm. 





Achten Sie aber darauf, daß Sie in’ 
Zeile 240 NEW durch RETURN er 
setzen. | 

Die letzte und bequemste Mög- 
lichkeit besteht darin, den Lader ab- 
zuarbeiten und als Binärdatei auf 
Dies ge-' 


Diskette zu schreiben. 









188 REM BASIC-Lader fuer Maschinenprogra 121@ DATA %&2D,%AB,&IA,LZE ,LAD,LFE,&DO,&C 
mm = [2B32] A [3568] 
118 REM Relative Dateiverwaltung auf [AE48] 1228 DATA %&B4,2AB,%&37,%C9,&37,&3F ,&C9,&2 
1308 REM CPC 464, 564 und 4128 [3D28] A C6344] 
149 REM ==ounnnunaunsenzusueneeousoononnen 1238 DATA &2B,&A0,%23,%22,%&2B,%AB,&11,%&2 
== LFAA&] 9 [3308] 
150 : [DBE®] 1248 DATA &00,%2A,&7D,&BE,&19,&3A,&2B,&A 
160 : [CAE2] fr) LIFSZAI 
170 MEMORY sABBa-1 [A1aCI 1258 DATA &77,&23,%3A,&2C ,%AB,&77,&09,&C 
180 RESTORE C4ABA] D [5D48]1 
190 FOR i=&ABBB TO &A17FF LFSACI 1268 DATA &37,&AQ,%DO,&CD,&DC,LAB,&CD,&F 
200 READ a [C39E] # ‘  [C4EB4] 
218 POKE i,a C11F@] 1278 DATA &AQ,&ED,&BO,&C9,&CD,&BE,&AQ,&2 
228 NEXT LöCE6] 1 CFAA4] 
230 CALL %&Ag00 [C#D®] . 1288 DATA &80,&A1,&CD,&5A,&A1,&CD,&B7,&A 
240 NEW [88408] [) [7986] 
250 : [D7E2I 1298 DATA &21,%&80,&A2,&CD,&5A,&A1,&CD,&B 
250: CDCE4] 7 L6ö85E] 
1000 DATA 301 .&BA.%AB.%&21,%22,2AB,&CD,&D 1300 DATA %AB.%&21.%80,%A2.&CD.&5A.KA1.&C 
1 | [DIECI E [OE38] 
1810 DATA &BC,%C9.,%12,2AB,&03,&CF „KAB,&C | 131® DATA &3A,&2D,%AQ,&5F,&16,&00,%21,%8 
> [7876] 1") [53D6]1 
1828 DATA %0D.&A1,%52,%45,%43,852,845,%4 1320 DATA &A1,%&19,LED,&5B,&2F ,2AD,&IA,&2 
| 1 C3DA6] u [5868] 
18380 DATA &C04,%52,%45,%43,457,%&52,449,,&5 1338 DATA &AQ,„&4AF ‚06 ,&00,&C9,&CD,&37,&A 
4 CF1B2] 1) [A328] 
18409 DATA 2C5,%&00,%00,3%:00,2%:00,2%:00,%:00,%8 1348 DATA &DO,&CD,&BE,&AB,&21,&80,&A1,&C 
fr | [F336] D  [3E7A] 
1050 DATA %&00,%:00,%:00,%:00,%:00,%:00,%:00,%02 1358 DATA &5A,&A1,&CD,&FB,&AQ,LEB,KED,&B 
®  [9EBBI fr) LECCE] 
1048 DATA %2Q,&C3,%CF.&AB,&C3,&DD,&A1,&F 1368 DATA &CD,&BE,&AB,&21,%&80,&A1,&CD,&6 
E [BE78] 1 [D264] 
10870 DATA &02,%&C2,%&B4,&AQ,&DD,&64E ,&02,%&D 1378 DATA %A1,&CD,&B7,%AB,&21,&00,&A2,&C 
D Mr | LF7&2] D [9952] 
18898 DATA %&66,&83.%2B,&7E,&FE,%04,&C02,&B 1388 DATA &5A,&A1,&CD,&FB,&AQ,&EB,LED,&B 
4 i | [A548] ) C1@D412 
10970 DATA &AB,&23,%&11,%26,2AQ,%01,%&05,%0 u 139@ DATA &CD,&BE,.&AQ,&21,%&00,&A2,&CD,&6 un 
| 1 1 
1100 DATA &ED,&BQ,%&DD,%6E,%OO.&DD,&66,%0 1488 DATA &A1,&CD.&B7,&AB,%21,%80,&A2,&C 
1 [D756] D [8456] 
1110 DATA &2B,&7E,&FE,%92,8&C02,%B4 ,&AQ,&2 1418 DATA %&5A,&A1,&CD,&FB,%AB,&EB,&ED,&B 
3 | LA1ZE] 1] CABCS] - 
1128 DATA &11,%2E.LAB,%B1,&:03.2:00,LED.,EB 1428 DATA &CD,&BE,&AB,&21,%80,&A2,&CD,&& 
1) [3CDs] [E58] 
1138 DATA S3A,2A,LAB,&FE ,%B1,%30,&0D,&2 Ara 1438 DATA &A1,&C9,&DF,&5E,&A1,&09,%92,&D 
[4599] 
1148 DATA 200,%:00,%&22,%&2B,&AQ,&3E,200,%3 1448 DATA &97,&DF,&65,&A1,&C09,&68,%A1,&8 
2 | [5C94] 7 [4438] 
11580 DATA &2D,.&AB,&37,%&C9,&FE,&978,2D2,%&B 1458 DATA %8E5,&D5,&C05,8E5,&11,&08,%200,%&C 
4 [9274] D CD®SCI 
1168 DATA %AQ,%&21,%29,kAB,&CB,&FE,&SA,&2 1468 DATA &98,&CA,&CD,&18,%&D4,%&D2,&A9,8D 
A | Le | [D25A] 3 [8B8A] 
1178 DATA &AQ,&FE,&97,%28, OF „&21,22A,&A 1478 DATA BEB,&ES3,&CD,&F3,%D9 ,203,&A6,&D 
1) | CES341 3 CAAD4] 
1189 DATA 34 ,&2B,&CB,&3E,&2B,&CB,&iE,&2 = 
386] 
1198 DATA &CB,&1E,&18,&EA,&2A,&2B,&AQ,&2 RE Listing 1. Mit dem Basic-Lader erzeugen Sie das Binärfeld. 
| RER ee Für andere Programme müssen Sie dieses mit 
1288 DATA &2B,&AB,&3A,%&27,2AQ,&CB,&3F,&3 
2 "  [852E12 »SAVE "’ERWBIN',b,&A000,&18180« speichern 











REM Anlegen einer relativen Datei 
OPENOUT "dummy'": MEMORY HIMEM-1:CLOSEDO 


uUT 


OPENOUT 


"reldatei" 
an 


48 FOR i=1 TO 3 
a1r,) 


PRINT#?, 
J+",. Datensatz" 
NEXT 


78 PRINT#7,SPACE$ (128); SPACE$ (128) 
88 CLOSEOUT 


Listing 2. Die relative Datei wird mit einer 


RIGEHT#("i2 SPACE}"+STRFLIi),S 


az 7 ee 


. LC9C&] 


L7ECA] 
[BEBö] 
[2CB8] 


L7CFA] 
[C58A] 
L4CFE] 
C13ECI 





REM 


OFENIN 


FOR i= 3808 TO i 








Relative Datei lesen 


"reldatei" 
STEF -1i 


3%=5PACE# (14) 


z=(i-1)#1& 
!|RECREAD ,@z ‚@a$ 


FRINT 
NEXT i 


af 


CLOSEIN 


Listing 3. Lesen einer relativen Datei 





Grundlagen 


E22ZFEI 
L7EF2] 
[15A2] 
[4318] 
LF?DCA]I 
[887E] 
[8372] 
[81A8] 
CFB2C]I 








sequenziellen erzeugt 


schieht mit »SAVE »ERWBIN«B&A 
000,&17F«. Sie können dann in Ihr 
Programm eine Ladeanweisung für 
das des Maschinencode-Programms 
einsetzen. Zuvor muß jedoch die 
Speicherobergrenze auf 9FFFhex 
herabgesetzt werden. 

In Listing 2 finden Sie ein Beispiel, 
das eine relative Datei als sequen- 
tielle Datei anlegt. Zeile 20 reser- 
viert einen Ein/Äusgabepuffer, wor- 
auf Zeile 30 die sequentielle Datei 
»reldatei« öffnet. Anschließend wer- 
den in einer FOR..NEXT-Schleife 


a 





| auge 





300 Datensätze mit folgendem Inhalt 
auf Diskette geschrieben: 

l. Datensatz 

2. Datensatz 


300. Datensatz 

Jeder Datensatz ıst 14 Zeichen 
lang. Beim sequentiellen Schreiben 
wird automatisch ein CR und LF an- 
gefügt, so daß wir beim relativen Le- 
sen und Schreiben von einer Daten- 
satzlänge mit 16 Zeichen ausgehen 





müssen. Zeile 70 schreibt schließ- 
lich sicherheitshalber noch zwei 
Leerstrings mit je 128 Bytes auf Dis- 
kette. 

Nun wollen wir die Datei per Di- 
rektzugriff lesen. Wir beginnen mit 
dem 300. Datensatz und hören mit 
dem l. auf (Listing 3). Zeile 20 öffnet 
wieder die Datei »reldatei«, diesmal 
aber zum relativen Lesen. Zeile 40 
definiert den String a$, in dem die 
Datensätze abgelegt werden sollen. 
Die absolute Position z des Datensat- 
zes in der Datei errechnet sich in 


- einen Ey, 


WIE. 
4 ’ 











u; uhr 


— AT TEn er 
nn nn 


In 
weT 


a EEG 


Grundlagen _ 


Zeile 50. Zeile 60 liest den Datensatz 
aufgrund der Angaben in z und a$. 
Als letztes Beispiel noch ein Pro- 
gramm, das es Ihnen erlaubt, einen 
bestimmten Datensatz neu zu schrei- 
ben. Achten Sie darauf, die relative 
Datei auch hier mit OPENIN zum 
Schreiben zu öffnen (Listing 4). 

Das Programm fragt, welcher Da- 
tensatz neu geschrieben werden 
soll. Es folgt eine Abfrage auf Gültig- 
keit der Datensäatznummer. Dann 
wird der betreffende Satz zunächst 
gelesen, um den Inhalt zu kennen. 
Geben Sie ihn daraufhin neu ein. 
Zeile 100 formt ihn in die richtige 
Länge von 14 Zeichen um, wonach 
er ın Zeile 110 auf Diskette abgelegt 
wird. 

Als ausführliches Beispiel für eine 
relative Dateiverwaltung soll das 
komplette Adressenverwaltungs- 
programm (Listing 5) dienen. Es ist 
modular aufgebaut und menüge- 
steuert. In leicht abgeänderter Form 
kann es auch für jede andere Art 
a Dateiverwaltung eingesetzt wer- 

en. 

Das Programm benutzt eine in- 
dexsequentielle Dateiverwaltung. 
Indexsequentiell bedeutet, daß die 
Nummer und ein spezieller Index 
von jedem Datensatz zusätzlich in ei- 
ner sequentiellen Datei abgelegt 
werden. Diese werden dann zusam- 
men mit der relativen Datei auf Dis- 
kette geschrieben. Dieser Index 
dient als Suchkriterium zum Auffin- 
den eines Datensaätzes. 

Für unser Adressenverwaltungs- 
programm wurde der Nachname 
als Index gewählt. Bevor nun Daten- 
sätze angelegt oder bearbeitet wer- 
den können, lädtman die Indexdatei 
in den Arbeitsspeicher des Compu- 
ters. Sie bleibt dort so lange, wie wir 
mit der relativen Datei arbeiten und 
wird im Anschluß daran wieder auf 
Diskette zurück geschrieben. 

Wenn wir nun einen Datensatz an- 
legen, »weiß« dıe Indexdatei bereits, 


REM Datensatz schreiben 

DPENIN "reldatei" 

INPUT "Datensatz-Nr."si 

IF i<i1 OR i>308 THEN 38 

a#=5PACE$ (14) 

z=tii-1i)#1ö 

ıRECREAD ,@z „@a 

| PRINT af 

INPUT "Neuer Datensatz":af 
180 a#=LEFTF(a$+5PACEF(14),14) 
11@ :RECWRITE,@z „@a# 
128 CLOSEIN 


Listing 4. Schreiben einer relativen Datei 





welche Einträge belegt und welche 
noch frei sind. Sie sucht den nächst- 
verfügbaren Eintrag heraus und 
legt dort den Datensatz ab. Gleich- 
zeitig erhält auch die Indexdatei ei- 
nen neuen Eintrag, der den Nachna- 
men als Index und die dazugehör- 
ge Datensatznummer enthält. 

Suchen wir nun umgekehrt einen 
Datensatz (beispielsweise zum Na- 
men Müller), so wird zunächst die In- 
dexdatei durchsucht, um festzustel- 
len, ob der Satz überhaupt in der Da- 
teı vorhanden st. Ist dies der Fall, so 
steht auch gleichzeitig die Nummer 
des fortlaufenden Eintrags zur Ver- 
fügung. Dieser kann dann leicht auf- 
gerufen werden. 

Werfen wir einen Blick auf das 
Menü, das Sie nach dem Starten des 
Programms auf dem Bildschirm fin- 
den (Bild ]). 

Es ist bereits bekannt, daß wir, um' 
Eintragungen vornehmen zu kön- 
nen, eine relative Datei anlegen 
müssen. Genau dies geschieht 
durch den Menüpunkt 5. Zusätzlich 
wird hier noch die Indexdatei er- 
zeugt und auf Diskette geschrieben. 
Wenn Sie sich nun das Disketten-In- 
haltsverzeichnis ansehen, enthält es 
eine relative und eine sequentielle 
Datei. Beide sind neu angelegt und 
haben noch keine Einträge. Damites 
keine Verwechslungen mit den Da- 
teinamen gibt, erhält die relative Da- 
tei einen frei wählbaren Namen und 
die sequentielle Indexdatei den 
gleichen Namen mit der Extension 
»,IND«. Heißt eine Datei »KUNDEN«, 
so erhält die relative Datei den Na- 
men »KUNDEN.«, die Indexdatei die 
Bezeichnung »KUNDEN.IND«. 

Bevor Sie nun Datensätze anlegen 
oder bearbeiten können, müssen 
Sie auf jeden Fall Menüpunkt 4 an- 
wählen, der die relative Datei öffnet. 
Offnen ist hier nicht nur unbedingt 
im Sinne der OPENIN- oder OPEN- 
OUT-Anweisung zu verstehen, son- 
dern bedeutet vielmehr eine Initiali- 


[CCBC] 
L7EF2] 
[77CB] 
[C&1EC] 
[C421A] 
FLAICCI 
E7FAB]I 
L?F74] 
EBA1i4] 
[8454] 
[47D4] 
[2188] 
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Bild 1. Das Eröffnungsmenü 




































sierung der Ädressendatei. Dabei 
wird die Indexdateiin den Speicher 
geladen und gleichzeitig festge- 
stellt, welche Einträge belegt und 
welche noch frei sind. 

Nach dem Öffnen können Sıe Me 
nüpunkt l anwählen, worauf Sie auf 
gefordert werden, verschiedene 
Daten einzugeben (Bild 2). 

Direkt unter der Überschrift be 
findet sich eine Zahl, die angibt, der 
wievielte Datensatz gerade bear- 
beitet wird. In diesem Fall ıst es der 
fünfzehnte. Bevor Sıe nun die eigent- 
lichen Daten eingeben, erscheint 
unter der fortlaufenden Nummer zu- 
nächst die Aufforderung, den Code 
für die Anrede einzugeben, wäh- 
rend der Rest des Bildschirms noch 
leer bleibt. Bei der Anrede können 
Sıe unter sechs Möglichkeiten aus- 
wählen: 









e Anrede 
keine 
Herrn 
Frau 
Fräulein 
Herrn und Frau 
Firma 


ee) 
uBon-oß 






Diese Codes sollten Sie sıch vor- 
her merken oder notieren, da sie 
einfacher einzugeben sind, als im- 
mer wieder die gesamte Anrede. 
Nach dem Drücken der Enter-Taste 
erscheint als nächstes die Aufforde- 
rung zur Eingabe des (Nach-)Na- 
mens. Sie geben ihn ein und 
drücken wiederum die Enter-Taste. 
Das gleiche wiederholt sich dann 
für die Straße und den Ort mit Post- 
leitzahl. Ist ein Datensatz komplett, 
erscheint unten im Bildschirm der 
Hinweis, entweder die Enter- oder 
die Leertaste zu drücken. Letztere 
führt Sie wieder zurück ıns Menü, 
die Enter-Taste gleich zum nächsten 
Datensatz. Der Vorgang wiederholt 
sich dann von vorne, allerdings mit 
einer um eins erhöhten Datensatz- 
nummer. 


Adressenverwaltung 


Adressen Schreiben“ fortschreiben 
Adressen aendern#“loeschen 
Adressen sortieren 

Relative Datei oeffnen 

Relative Datei anlegen 

Adressen ausdrucken 


Adressen auf Etiketten ausdrucken 


Bıtte waehlen 5ie 









































Achten Sie aber darauf, daß die 
einzelnen Eingabewerte eine be- 
stimmte Anzahl von Zeichen nicht 
überschreiten dürfen: 









15 Zeichen 


Name 

Vorname 15 Zeichen 
Straße 20 Zeichen 
PLZ/Ort 21 Zeichen 





Kommen wir zum zweiten Menü- 
punkt, der zum Ändern und Lö- 
schen von Adressen dient. Sie wer- 
den zunächst aufgefordert, den be- 
treffenden Namen als Suchindex 
einzugeben. Daraufhin schaut das 
Programm nach, ob dieser Name in 
der Datei vorhanden ist. Wenn nein, 
erscheint ein Hinweis »Nicht gefun- 
den« und Sie können den nächsten 
Namen suchen oder ins Menü zu- 
rückkehren. 

Wurde der Name dagegen gefun- 
den, wird der komplette Datensatz 
auf dem Bildschirm ausgegeben 
(ähnlich wie unter Menüpunkt |, wo- 
bei der Cursor eine Zeile unter dem 
Anredecode steht). Wünschen Sie 
keine Änderung vorzunehmen, 
drücken Sie einfach die Enter-Taste. 
Anderenfalls schreiben Sie den 
neuen Datenwert unmittelbar unter 
denalten und drücken ebenfalls die 
Enter-Taste. Nach Beendigung des 
Korrekturvorgangs können Sie wie 
in Punkt 1 entweder fortfahren (En- 





ter-Taste) oder ins Menü zurückkeh- 
ren. 

Soll ein Datensatz gelöscht wer- 
den, wählen Sie ebenfalls Menü- 
punkt 2 und überschreiben den Än- 
redecode mit dem Buchstaben |. 
Dann drücken Sie die Enter-Taste, 
worauf der betreffende Datensatz 
aus der Indexdatei entfernt wird. In 
der relativen Datei bleibt er jedoch 
zunächst erhalten; er ist aber für ei- 
nen neuen Eintrag freigegeben und 
kann mit einer neuen Ädresse über- 
schrieben werden. 

Menüpunkt 3 sortiert die Daten- 
sätze in alphabetischer Reihenfolge 
nach dem Shell-Sortierverfahren. 
Sortiert wird lediglich die Indexda- 
tei. Inder relativen Dateiändert sich 
nichts. 

Die letzten beiden Menüpunkte 
dienen zum Ausdrucken der Datei. 
Punkt 6 liefert einen normalen Li- 
stenausdruck, während Sie mit 
Punkt 7 Etiketten beschriften kön- 
nen. Dabei wird davon ausgegan- 
gen, daß die Etiketten genau 9 
Druckzeilen auseinanderliegen. Je- 
doch kann das Programm auch für 
andere Etikettenqrößen leicht ange- 
paßt werden. 

Bei Äbschluß der Bearbeitung ist 
unbedingt die ETaste zu drücken, 
damit die Indexdatei wieder auf Dis- 
kette geschrieben wird. Wird dies 
unterlassen, können beim Wieder- 


Adressen schreiben’ fortschreiben 


5 a 2 Er Ze I 
Huber 
Karl 


Talstr. 12 


6900 Frankfurt 490 


Jaechste Eıngabe 


Enter-Taste druecken 


Äurueck ins Menue —- Leertaste druecken 



















latiw) 
R 
1848 REM {c) Juergen Hueckstaedt 
185B REM Richard-Waoner-Str. 
1058 REM 7318 Plochingen 
THEN 1128 
1B88 MEMORY &7FFF 
1878 LOAD "erwbin" „KABROO 
1188 CALL 2ADBD 


SEOUT 


ze 
1150 MODE 1 


REM Adressenverwaltungsprogramm (re 


1819 REM====:==:=-==-=-=-s=-szmmzmzmzmszmzummmmmamee 


ı1a78a IF PEEK (&ABBUB)=1 AND FEEK (&ABUBI)=1U 


111@ OPENDOUT "dummy" :MEMORY HIMEM-i:CLO 
1128 ma=2B8: REM max.AÄnzahl der Datensaet 


1148 k=G@: REM Datensaetze im Speicher 
1158 1n=15:REM Zeichen Laenge Namen 

1158 1v=15:REM Zeichen Laenge Vornamen 
1178 1s=28: REM Zeichen Laenge Strasse 


Bild 2. 
Die Eingabemaske 






























1188 lo=21:REM Zeichen Laenge PLZ/Ort [33YE] 
[8B532] 1198 la=1:REM Zeichen Laenge Anredecode L[D?748] 
1208 fl=®:REM Flao ob Datei im Speicher [A736] 
[33A8] 1218 r1=-74:REM Recordlaenge+2 (cr/1l#f) [CS2E] 
[DA22] 1228 c1$#=CHR$#(8):REM Cursor nach links [CAZACI 
EBCF4] 1238 cr$=CHR$(F):REM Cursor nach rechts L[7F8C) 
2844] 1248 cdF=CHRF(1B):REM Cursor nach unten [DEB4] 
29 [94AE] 1258 cu$=CHR#(11):REM Cursor nach oben [Z2EIE] 
[C44BA] 1258 1=1n+lv+tls+tlo+lati [&BBA] 
1270. 082" mes" [9174] 
LE788] 1288 n$="{36 SPACE}" EC7FC)I 
[7426] 1270 DIM n#ima) L7S2E] 
CA138] 1588 DIM ar$(5) L18Bö] 
L9F2AI 1318 ar#(B)="" [F4BC] 
1328 arf(1)="Herrn" [??7BE] 
C7BCC] 1338 art (2)="Frau"” C44EB] 
1348 ar$(3)="Fraeulein" LCSFE] 
[8588] 1358 ar#(4)="Herrn und Frau" CAiF4] 
[O6B&ö] 13608 ar#(5)="Firma"” [CECAE] 
Race | 1508; [D1acı 
1388 :,.. 
EecBeı 1379 ; Listing 5. [D44E] 
[DABB] Eine Adreßverwaltung mit direktem Datenzugriff 


Grundlagen 


einlesen schlimme Folgen auftreten; 
besonders dann, wenn Datensätze 
gelöscht oder geändert wurden. 

Hier noch ein paar Änmerkungen 
zum Listing. Zunächst wird das 
Maschinencode-Programm »ERW 
BIN« geladen und initialisiert (siehe 
oben), falls es sich noch nıcht ım 
Speicher befindet. Anschließend 
wird die maximale Anzahl der Da- 
tensätze auf 200 festgelegt (sie kann 
jedoch gegebenenfalls geändert 
werden). Es folgt die Definition der 
einzelnen Stringlängen. 

Das Anlegen der relativen Datei 
erfolgt wiederum seauentiell. 
Gleichzeitig wird auch die Indexda- 
tei erzeugt und auf Diskette ge- 
schrieben. Abgelegt im Feld n${i), in 
das sie auch später zur Bearbeitung 
der Datei eingelesen wird, ver- 
bleibt sie während der gesamten 


Bearbeitungsdauer im Speicher. Da . 


die Indexdatei noch leer ist, wird als 
erster Wert die Zahl Null hineinge- 
schrieben, gefolgt von 200 Elemen- 
ten, dıe aus 15 Sternchen und der 
fortlaufenden Datensatznummer 
bestehen. 

0 


Kar eea.‘ ] 
Krk.‘ 2 
Krk ie 
und so weiter. 

Die Sternchen kennzeichnen ei- 
nen leeren oder als gelöscht ge- 
kennzeichneten Eintrag, Wird der 
Eintrag später belegt, erscheint 
oben statt der Null die Anzahl der 
belegten Einträge und statt der 
Sternchen der betreffende Name 
als Suchindex. 

Beim »Öffnen« der relativen Datei 
wird lediglich die Indexdatei einge- 
lesen. Vorausgesetzt wird, daß, 
wenn sich eine Indexdatei auf der 
Diskette befindet, auch die zugehö- 
rige relative Datei vorhanden sein 
muß. Wird die Indexdatei nicht ge- 
funden, erscheint die Amsdos-Feh- 
lermeldung »(Filename) not found«. 

(Jürgen Hückstädt) 
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Grundlagen 
14088 REM Menue 
1418 CLS 
1428 PRINT TAB (10) ; "Adressenverwaltung" 
1438 PRINT TAB(1B) sz===2=2S202meecm==2=22e! 
14408 PRINT 
1458 PRINT 
14508 PRINT "Adressen schreiben/fortschre 
ibenf{3 SPACE}I1" 
1478 PRINT 
1488 PRINT "Adressen aendern/loeschen{18 
SPALCE}I?" 
1498 PRINT 
1500 ei "Adressen sortieren{17 SPACE} 
1518 PRINT 
1528 PRINT "Relative Datei oeffnen{13 SP 
| ACE}I4" 
1538 PRINT 
1548 PRINT "Relative Datei anlegen{13 SP 
ACE}S" 
1558 PRINT 
1558 eh "Adressen ausdruckenf{iö& SPACE 
1578 PRINT 
1588 PRINT "Adressen auf Etiketten ausdr 
ucken{i2 SPACE}7" 
1598 PRINT 
1608 PRINT 
1618 FRINT "E n d e{28 SPÄCE}e" 
1528 PRINT 
1538 PRINT 
1548 PRINT "Bitte waehlen Sie" 
1550 m#=INKEY$: IF m$="" THEN 1458 
1558 IF mf="e" THEN 4858 
1578 m=VAL (m$) 
1588 IF m<i OR m>7 THEN 16508 
1570 ON m GOSUB 1740 „2220,3040,33498,363 
0,3970,43580 
1788 GOTO 1408 
1718 : 
1728 : 
1738 : 
1748 REM Adressen schreiben/’fortschreibe 
n 
1758 CLS 
17&8 PRINT 
1778 PRINT 
1788 PRINT "i4 SPACE}Adressen schreiben/ 
fortschreiben{i4 SPACE} " 
1790 PRINT 
1888 PRINT 
1818 IF dn$="" THEN FRINT "Bitte Datei o 
effnen":G6G0T0O 2128 
1828 k=k+1 
1838 PRINT k 
1848 PRINT 
1858 IF k>ma THEN PRINT "Datei voll":60T 
0 22708 
1858 FRINT "Anrede (B-5)"::INPUT as 
1878 a=VAL (as) 
1888 IF a<ß OR a>5 OR LENta#)<>1 THEN PR 


INT cu#::G60T0O 1848 

PRINT 

PRINT "Name{8 SPACE}":: INPUT nas 
PRINT 

na#=LEFT# (na$+n#,1in) 

PRINT "Vorname{5 SPACE}":: INPUT nv# 


PRINT 
nv$=LEFT$ (invs+n$,1v) 


PRINT "Strasse{5 SPÄACE}":: INPUT ns# 
PRINT 
ns#=LEFT$ ins#+n#,1s) 


rn "PLZ, Ort{4 SPACE}":: INPUT no 


nos=LEFT# (no$+n#,1lo) 
rt=naftnvs+nst+nos#+RIGHT# (STR#$t(a) „1 
) +CHR# (13) +CHR# (18) 
d=VYAL(MIDF(n#(k) „In+1,18)) 
po=r1*#d 

OPENIN dn# 
:RECWRITE,„@po,er# 

CLOSEIN 

fl=1 

n#&ik)=nas+5TR# (d) 

PRINT 

PRINT 


PRINT "Naechste Eingabe - Enter-Tas 

te druecken" 

PRINT 

PRINT "Zurueck ins Menue - Leertast 
 e druecken 

m#=INKEY#: IF mf="" THEN 2148 

ar m#=CHR# (13) AND dn$<>"" THEN 174 

IF m$=" " THEN CLOSEIN:GOTO 7188 

GOTO 2148 

RETURN 
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L1898] 
[A148] 
[L1SCE] 
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[B4EE] 


[E?24] 
LAAFZ] 


CDBB®4] 
[BBF&] 


[18B4] 
[CBCEB] 


EBAE2] 
LF7&EC]I 


[72DA] 
LABFO] 


CBB3A] 
ELFAF4] 


[5612] 
[74F8] 
[DBEB] 
[2834] 
EDSEC]I 
[CEEE] 
[A832] 
[L7C28] 
[AbAB] 
[28BA] 
[BFEC] 


[D425] 
LF7ABC] 
[C445] 
EBF48] 
[D24A] 


LC52A] 
L229E] 
[ABFö] 
CAZF8] 


[LBABC]I 
[DAFC] 
[D7EC]I 


[BE?B] 
ECFB4] 
[F?88] 
[DSF4] 


EFA2C]I 
[45B8] 
CBOBE] 


[78538] 
[BöFE] 
[1DE8] 
[DCFB] 
EDDE4] 


[B585] 
[C1Fö] 
LEB4E] 


[AC2B] 
[DZFC] 
[F&42] 


[5782] 
[LAFBA] 


[4E82) 
[CD8A] 
EC1DA] 
[ABBA] 
[302A] 
[SBEA] 
L5C52] 
[52CA] 
L77FB@)] 
[FAEB] 


EDFAAI 
[CHE4] 


L1552] 
EF114] 


[BASA]I 
[B748] 
[5B14] 
[C99&] 
[@B4C] 
[C43C] 
cC73E] 





og Adressen aendern/loeschen 

DL 

PRINT 

PRINT 

PRINT "{7 SPACE}Adressen aendern/lo 
eschen" 

PRINT 

PRINT 

IF dn$="" THEN FRINT 
effnen":60T0 2948 
PRINT "Name{8 SPACE}";: INPUT na$ 
na#=LEFT# (ina$+n#,1n) 

i=1 

WHILE i<=k 

IF LEFT$in$(i),In)=na$ THEN 2408 
i=si+i 


"Bitte Datei o 


WEND 

PRINT 

PRINT "nicht gefunden" 
GOTO 2918 


d=VAL(MID#(n$t(i) ,„iIn+1,18)) 
r#=SPACE#$ (irl-2) 

po=r1l#d 

OPENIN dn$ 

ıRECREAD „@po,er# 

CLOSEIN 

nas=LEFT$ir#,1in) 
nv$=MID#&(r$,iIn+1,1vw) 
ns#=MID# (ir#$,In+lv+1,1s) 
no®=MID# (r$,In+lv+1ls+1,1lo) 


a#=RIGHTF{r#,1) 
PRINT i 
| PRINT 
PRINT "Anrede (8-5){2 SPACE)": a# 
PRINT 
PRINT "Name{1iß SPÄACE}":na$ 
PRINT 
PRINT "Vorname{7 SPACE}"ınv#$ 
PRINT 
PRINT "Strasse{?7 SPACE}":ns#$ 
PRINT 
FRINT "PLZ, Orti& SPACE}":no$® 


| FOR a=1 TO 8:PRINT cu$::NEXT g 


FOR q=i TO 12:PRINT cr$::NEXT qg:INP 
UT wu&# 

IF ww$<>""THEN afsuwf 

a=VAL (af) 

IF a$="1" THEN GOSUB 47098:6G0T0 27108 


IF a<Bß OR a>5 OR LENta$)<>1 THEN PR 
INT cu#::60T0 2438 

PRINT 

FOR a=1 TO 12:PRINT cr$::NEXT g:INP 
UT ww# 

IF ww&<>"" THEN nasswwm$ 

PRINT 

na®s=LEFT$ (na$+n$,1in) 

FOR q=1 TO 12:PRINT cr$::NEXT g:INP 
UT ww&# 

IF ww£<>"" THEN nvs=uns 


} PRINT 


nv#=LEFT$inv$+n$,1lv) 

FOR q=1 TO 12:PRINT cr$::NEXT ga: INP 
UT ww# 

IF ww#<>"" THEN ns$eww* 

PRINT 

ns#$=LEFT# (ns$+n#,ls) 

FOR q=1 TO 12:PRINT cr$;:NEXT g:INP 
UT ww& 

IF wu&<>"" THEN nosfewwt 

no&=LEFT# ino$f+n#,1o) 
r$=na$+tnv$s+nss+no$+RIGHT$ (STR$(a) „il 
I +CHR# (13) +CHR$ (18) 


a d=VAL (MIDF(n#ti),iInt+t1,1B)) 


I PRINT 


OPENIN dn# 

po=r1*#d 

:RECWRITE „@po,erf 

CLOSEIN 

n#(i)=nas+5TR$(d) 

PRINT 

PRINT 

PRINT "Naechste Eingabe - Enter-Tas 
te druecken" 

PRINT 

"Zurueck ins Menue - Leertast 
e druecken 

mt=INKEY$: IF m$="" THEN 2968 

er m#=CHR$# (13) AND dn$<>"" THEN 222 


IF mt£=" "THEN 30008 

GOTO 2958 

RETURN 

z 

REM Adressen sortieren 

CLS 

PRINT 

FRINT 

PRINT "{1® SPACE}3Ädressen sortieren 
{7 SPACE}" 


PRINT 
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[8738] 
[L1B72] 
EBSEA] 
[FFECI 


[71DA] 
LASF®] 
LaCcF2] 


L7CAA]I 
[7&DE] 
[15D8] 
[FB?7C] 
£C119C] 
[4CDE] 
[DFAA]I 
[825352] 
[EDF2] 
[2FCB] 


[Cö4B4] 
CD2F8] 
[LE1iCC] 
[B4EA] 
[1547A] 
[1425] 


[3678] 
[D31C] 
[8088] 


[82978] 


LFE24] 
ECCEFA] 


LEC7CI 
[B432] 
[CF7EE] 
[LASE2] 


[7472] 
[öF64] 
LABF&ö] 
[?D4E] 


[587A] 
[EE65] 
CBFFE] 
[1532] 


LCEC7B] 
[DES54] 
[8528] 


[(F4978] 
£EB7?C] 
ECCPEI 
[BDF2] 
[53548] 
[5C9B] 
[4&C8] 
L15F2] 
[88F4] 


[C47BE] 
CDEFB] 


[2555] 
[D33C] 


[BF42] 
[C4ECC]I 
L933C] 
[8985] 
[BESC) 
[C33E]I 
[C940] 
[8536] 
[8574] 
[?BEC] 
[B4EE)] 


[92581 
[BEF2] 
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Grundlagen 
| 3188 FRINT [B3E2] 4028 PRINT [CCEö] 
3118 g=INT(k/2) [1122] 4038 FRINT "{i7 SPACEIAdressen ausdrucken dr: 

3128 WHILE g>8 [SFAB]I £11 SPACE}" [A444] 
3130 FOR i=g+1 TO k [&D4A] 4840 PRINT CBAEA] 
31480 j=i-g [6618] 40858 PRINT CLA1IEC] 
3158 WHILE i>® [8CB4] 40640 OPENIN dn# CAC92] 
| S148 IF n$(j)<=n$(j+g) THEN j=8:G0T0 321 4070 FOR i=1 TO k [752E] 
I 1) [654BA] 42888 d=VAL(MIDF(n#ti) ,„iIn+1,.18)) [4796] 
3178 af=nf(j+o) [7118] 4290 po=rl#d [SDEA]I 
31808 n#(j+g)=n#(j) [81AA]I 4180 r$=5SPACE# (r1-2) [CB1ACI 
31970 n$(j)=as [297F8] 4118 !RECREAD,@po,er# [ES54A] 
32080 ji=j-g [1614] 4128 PRINT#B, LEFT$(r$, In); L13E4] 
321@ WEND [1828] 4138 FRINT#8," ": [3836] 
3228 NEXT E[D?4C] 4148 FRINT#8.MID#F(ir$#,iIn+1,1vw); CD11A] 
323580 g=INT (gq/2) [aC28] 4158 FRINT#8," "; [485A] 
3248 WEND [ZEZE] 4148 FRINT#B,. MID$(r$, In+lv+i1,1s): [7232] 
3258 PRINT [CCEEE] 4178 PRINT#B8," "5 [3B3E] 
3258 FRINT [BBFB] 4188 FPRINT#8,MID$(ir$#,iIn+lv+ls+1,1lo); [C442] 
5278 FRINT "i1@ SPACE}’Zurueck ins Menue" 4178 FPRINT#8," "; [1842] 
| [2814] 4200 FRINT#8, RIGHT$ (r$, 1) £DDCB] 
s28B8 FRINT "i7 SPÄACE}beliebige Taste dru 4218 IF i-INT(i/64)*64<>0 THEN 4250 [4504] 
 _  „ecken" [2DD®] 4228 FOR j=1 TO 8 [&DC4] 
32978 mt=INKEY#: IF m#=""THEN 3290 [38FB] 4238 PRINT#8 [7CA2] 
53029 RETURN L8C8C] 4240 NEXT j [AS66] 
331@ : [BA42] 4258 NEXT i [9566] 
3320 : [C944] 4260 CLOSEIN LSAF2]J 
3338 : [CC46] 4278 PRINT C9FF4] 
3540 REM Relative Datei oeffnen [A454] 4280 FRINT [CC2F&6] 
3358 CLS [149A] 4298 FRINT "i1B SPACE}Zurueck ins Menue" 
33608 FRINT CCDF2] [D31A] 
3378 PRINT [?4F4] 4388 PRINT "{7 SPACE}beliebige Taste dru 
s388 PRINT "i& SPÄACE}Relative Datei oeff ecken" L78C4] 
nen{?7 SPACE} " [C385] 4318 m#$=INKEY#: IF m#$="" THEN 4318 [3A18] 
33978 PRINT CDsF8] 4328 RETURN [BE9F2]I 
3408 PRINT EDDEB] 4330 : [6548] 
5418 INPUT "Dateiname"; dn$ [EA2A] 4340 : [D44A] 
>428 PRINT CD7ECI 4350 : ED14C] 
3438 i= {[FF98] 453658 REM Adressen auf Etiketten drucken [3&4Bö] 
3448 OPENIN dn$+".ind" [4544] 4370 CLS [CBBAB] 
3450 fil=B [CAES&ö] 4388 PRINT [D4F8] 
3450 INFUT#97,k [CFiEB] 4378 PRINT CODFA]I 
3470 PRINT k [B38C] 44808 FRINT " Adressen auf Etiketten ausd 
>s488 IF k>@ THEN fl=1 CDDA4CI rucken" [7558] 
349790 IF i=ma THEN PRINT "Datei voll":GOT 4418 PRINT £[FDECI 
0 3538 [852A] 44280 FRINT LACEE] 
35080 i=i+i [rS5Ad] 4438 DPENIN dn$ [B8974] 
3518 INPUT#7,n#(i) LAF9A] 4440 FOR i=1 TO k [7530] 
3520 IF EOF=D THEN 3498 [L7C3E] 4458 d=VAL(MIDF(in#(i).iIn+1,18B)) [F398] 
3538 CLOSEIN [5S4F8] 44580 r&=SPACEF(r1-2) [S1BE] 
5540 PRINT CB7F2] 4470 po=rl#d [97EE] 
3558 PRINT [FEF4] 4488 :ıRECREAD,@po,er# L1B5E) 
35680 FRINT "{1ß SFACE}Zurueck ins Menue" 4490 FRINT#8B L7EB2] 
[B718] 45808 FRINT#B [&1A2] 
3578 ENENT, SR SPACE}beliebige Taste dru 45128 a=VALI(RIGHT#$ (r$,1)) [&öF44] 
ecke [CB@D4] 45208 PRINT#3,ar$(a) [C958] 
3588 EEE TNKEVSS IF m$="" THEN 3588 [5438] 4538 FRINT#8,.LEFT#(r$#,in+lvw) [FDF2] 
3570 RETURN [CaA2] 4548 PRINT#8,MID$(ir#,iIn#+lv+1,ls) [C7CB] 
S3öBßB : [0546] 45508 PRINT#B [S2AC]I 
361 : [C248] 4558 FRINT#B,MID#(r#,in+lv+ls+1,1o) [CE2DB] 
3620 : [D34A] 4578 PRINT#8 [(&CB8] 
355380 REM Relative Datei anlegen [555A] 4588 FRINT#8 [C#B2] 
35648 CLS [239E] 45928 NEXT i [8A74] 
3550 PRINT [BöAF6] 480 CLOSEIN [ö4EE)] 
SasB PRINT [ASF8] 4510 PRINT CAiIFB] 
3678 FRINT "{i7 SPACE}Relative Datei anle 45280 PRINT CB4F2] 
ne SPACE}" L2C7C] 4538 FRINT "{i1® SPACE}’Zurueck ins Menue" 
36 NT CDIFC] [6516] 
36970 PRINT [BAFE] 4548 FRINT "{7 SPACE}beliebige Taste dru 
3708 u "Dateiname":dn#$ [BF2E] ecken" L[1@D2] 
3718 FPRIN [BEFB] 4558 mt=INKEY#: IF m#=""THEN 45508 [AAF4] 
3728 FE RENCESIFI- AI SERRECIST CHR LE138] 4550 RETURN [CBAQ] 
' 3738 OPENOUT dn# [3C5A] 4470 =: [C3568] 
‚3748 FOR i=@ TO ma LC8SFe] 4480 : [D258] 
| 3758 PRINT i:cu# [5178] 4690 : [C55A] 
3760 PRINT#F,r%: LEZACI 4700 REM Datensatz loeschen [A41C]I 
3778 NEXT i L8A72] 4718 z$=LEFT$(go$,1n)+MID#(in$(i),in+1,18) 
3788 PRINT#7,SPACE$ (128) ;SPACE$ (128); [C2ZEA] [405A] 
3778 CLOSEOUT [65402] 4728 FOR i=iti TO k [345C] 
58880 OPENOUT dn$+".ind" [2805] 4738 n$(j-1)=n#(j) E[DB45] 
3818 FRINT#9,8 [OD&2] 4748 NEXT j [BB7B8] 
5828 FOR i=1 TOD ma [BOBFB] 4750 n&i(k)=z# [2732] 
3838 PRINT i:cuf [8576] 4768 k=k-1 [B2C4] 
35848 n#$(i)=LEFT#Fig#,In)+STR$ti) [1756] 477@ FOR a=1 TOD B:PRINT cd$:: NEXT q [2354] 
I 3858 PRINT#7,n#(i) [72A2] 47808 FRINT "oeloescht" [D844] 
| 38640 NEXT i LE172] 4798 PRINT cu$:cu$; [L741E] 
3878 CLOSEOUT [59CB] 483088 IF k=8 THEN fl1=8 [A242] 
| 3888 fl=1i [b656] 48318 RETURN E[CBFA] 
i 38908 k=8 [F378] 4820 : [D458] 
| 3700 FRINT CD3F2] 4838 : [E752] 
| 3918 PRINT EDAF4] 4540 : [E254] 
| 3928 FRINT "{iißd SPACE}Zurueck ins Menue" 4358 REM Programm beenden [aAS5&]I 
[9518] 4868 IF fl=8 THEN 4938 [343E] 
3938 FRINT "{7 SPACE}beliebige Taste dru 48728 ODPENOUT dn$+".ind" [C4E16] 
ecken" [&CD4] 48808 PRINT#?,.k [LO3EB] 
3748 m#=INKEY$: IF m$="" THEN 39748 [4E38] 4878 FOR i=i TO ma [CAABB]I 
397520 RETURN [C4A2] 47808 PRINT#?,n#ti) £[347C] 
3950 : £CDS58] 47180 NEXT [455A] 
3970 : LEBS5A] 49728 CLOSEODUT [SCBA] 
3988 : [D35C] 4938 END ESFBEI 
397980 REM Adressendatei ausdrucken [6514] Li 5 
4008 CLS [1EBCI isting 5. | er | | 
48108 PRINT [FDE4] Eine Adreßverwaltung mit direktem Datenzugriff (Schluß) 
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»Wanzen-Tod« 





mit DDT 





Auf der CP/M-Diskette von 
# Schneider finden Sie unter anderem 
4,4 einen leistungsfähigen Maschinen- 

| sprache-Mlonitor. Was fehlt, ist 


eine Beschreibung im Handbuch. 


eine Sorge, wir empfehlen hier 
keineswegs den Einsatz des In- 
sektenvertilgungsmittels DDT. 
Wir haben etwas besseres. Zu jeder 
Schneider-Diskettenstation mit dem 
CP/M-Betriebssystem gehören di- 
verse Hilfsprogramme. Unter ande- 
rem auch das Dynamic Debugging 
Tool, kurz DDTCOM genannt. Mit 
diesem leistungsfähigen Maschi- 
nensprache-Monitor können Sie in 
Ihren Programmen auf die Suche 
nach Bugs (Wanzen beziehungswei- 
se Programmierfehlern) gehen. 

Leider konnte sich Schneider 
nicht dazu entschließen, die Dienst- 
programme auf der CP/M-Diskette 
eingehend zu beschreiben. In der 
Betriebsanleitung wird kurz und 
bündig auf die »weiterführende Lite- 
ratur« verwiesen. 








Einer für (fast) alle 


Die Aufgabe eines Standard-Be- 
triebssystems läßt sich kurz etwa so 
beschreiben: Es soll für Programme 
die gleiche Umgebung auf einer 
Vielzahl verschiedener Computer 
schaffen. Dazu müssen gewisse Vor- 
aussetzungen in der Hardware ge- 
geben sein. Am wichtigsten ist da- 
bei die Verwendung gleichartiger 
Mikroprozessoren (CPUs). 

Das Betriebssystem CP/M 22 
(manchmal auch CP/M-80 genannt), 
läuft auf drei verschiedenen Prozes- 
soren: dem Intel 8080, dem Intel 
8085 und dem Zilog Z80, von dem 
der Typ Z80A in den Schneider- 
Computern eingebaut ist. Einsichtig 
magnoch sein, daß der 8085 kompa- 
tibel zum 8080 ist und damit für 
CP/M verwendet werden kann. Der 
280 hingegen besitzt eine Ausnah- 
mestellung: er ist, obwohl von einer 
anderen Firma produziert, eine 
Weiterentwicklung der 8080/8085- 
Reihe, So verfügt er zusätzlich über 
relative Sprünge, die beiden Index- 
Register IX und IY, einen zweiten Re- 


gistersatz, Makrobefehle wie LDI, 
LDIR, LDD und LDDR zur Blockver- 
schiebung und andere Program- 
mierer-freundliche Erweiterungen. 
Damit aber Programme auf allen 
CP/M-geeigneten 8-Bit-Prozessoren 
laufen, sollte sich der Anwender — 
auch wenn es schwer fällt — auf die 
auf allen CPUs vorhandenen Befeh- 
le beschränken. Wer dagegen nur 
Schneider-Programme schreiben 
will, kann den Befehlssatz des 280 
voll ausschöpfen. 

Alle drei Mikroprozessoren co- 
dieren ihre Maschinenbefehle in 
gleicher Weise. So bedeutet der Co- 
de 60 hex (dezimal 96) auf allen drei 
CPUs, daß das H-Register mit dem 
Inhalt des B-Registers zu laden ist. 
Aus Urheberrechtsgründen konnte 
Zilog, der Z80-Hersteller, nicht die 
Standard-Bezeichnungen von Intel 
verwenden. So hat man sich völlig 
neue Mnemonics ausgedacht, die 
inzwischen bei den meisten Pro- 
grammierern beliebter sind als die 
8080-Originale. Das ist durchaus 
verständlich, da die Z80-Befehls- 
worte logischer aufgebaut und vor 
allem leichter zu erlernen sind, So 
entsprechen beispielsweise dem 
Z80-Allzweck-Ladebefehl LD in 
8080-Notation eine Vielzahl von 
Mnemonics: LXI, STAX, MVI, LDAX, 
SHLD, LHLD, STA, LDA, MOV und 
SPHL. 

Einige Beispiele, die die gegen- 
sätzliche »System-Philosophie« der 
Hardware-Designer beider Firmen 
zeigen: 


8080-Assembler: 280-Assembler: 
MOV BC LDBC 

MVIE,3 LD E,3 

SHLD 2000 LD (2000),HL 
SPHL LD SP.HL 


Welchen Schneider-Besitzer soll 
das interessieren, werden Sie fra- 
gen, der CPC hat einen Z80 und kei- 
nen 8080 oder 8085! Ganz einfach: 
alle CP/M-Dienstprogramme, die 


ö r 
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auf der Systemdiskette mitgeliefert 
werden, bedienen sich der 808& 
Mnemonics. Wollen Sie also unte 
CP/M programmieren oder ganz 
einfach das CP/M-Betriebssystem 
untersuchen, dann kommen Sie um: 
die ungewohnten 8080-Befehle nich 
herum! 

In Tabelle 1 haben wir die 808. 
Befehle und ihre Z80-Äquivalente in 
alphabetischer Reihenfolge zusam- 
mengestellt. 

Der DDT-Debugger ist ein komfor- 
tabler Maschinensprache-Monitor. 
der zum Austesten und Verbessern 
von eigenen und fremden Maschi. 
nenprogrammen unter CP/M ge 
dacht ist. So ist ein einfacher Assem 
bler integriert, Maschinencode 
Routinen können aufgerufen wer- 
den, wahlweise mit Breakpoints 
oder im Einzelschritt-Modus. Ferner 
kann man sich Speicherinhalte aus- 
geben lassen und ändern. 


DDT: Monitor mit Komfort 


Sobald Sie das CP/M-System 
durch Eingabe von »ICPM« gestartet 
haben, erscheint die Bereitschafts- 
meldung A>. Suchen Sie sich nun 
eine Diskette heraus, auf der sich 
das Programm DDTCOM befindet. 

Der DDT-Monitor kann auf zwei 
Arten aufgerufen werden: 
mit »A>DDTk« 
oder »A>DDT filenameext« 

Im ersten Fall wird einfach DDT 
geladen und gestartet. Bei Angabe 
eines Dateinamens lädt der Debug- 
ger dieses Programm dazu. Es kann 
dann am normalen TPA-Beginn 
&0100 gefunden werden. (TPA ist die 
Transient Program Area, der für 
CP/M-Programme frei verfügbare 
Arbeitsspeicher) Der DDT ver 
schiebt sich in diesem Fall automa- 
tisch an das obere Speicherende. 


Der Debugger meldet sich‘ 
schlicht mit der Meldung: 
DDT VERS 22 
NEXT PC 
AXXX YYYY 


Diese beiden Werte (xxxx und 
yyyy) sollte man sich aufschreiben, 
da sie beim späteren Speichern der 
Datei noch gebraucht werden. 
NEXT gibt an, ab welcher Adresse 
hinter dem geladenen Programm 
der Speicher wieder frei ist, PC 
zeigt den aktuellen Stand des Pro- 
grammzählerss des Debug-Pro- 
gramms an. 

Der DDT verwendet ein eigenes 
Bereitschaftszeichen, den Binde- 
strich. Sobald dieser erscheint, kön- 
nen einbuchstabige Befehle einge- 
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tippt werden: Bei einem Teil der Be- 
fehle kann man auch Argumente an- 
geben: als Hexadezimalziffern, von- 
‚einander abgetrennt durch Leerzei- 
chen oder Kommas, Eine fehlerhafte 
Eingabe wird durch ein Fragezei- 
chen beantwortet. Alle Eingaben 
können wahlweise als Klein- oder 
Großbuchstaben gegeben werden. 
Die Befehle im einzelnen: 
Der Assemble-Befehl 

»A« steht für »Assemble«. Wie der 
Name schon sagt, wird dabei ein 
einfacher 8080-Assembler aufgeru- 
fen. Der Assembler versteht nur die 
normalen Mnemonics und Hexade- 
zimalzahlen, nicht hingegen Symbo- 
le, arithmetische Ausdrücke, Labels, 
Pseudo-Befehle wie DS (Define Spa- 
ce) oder DB (Define Byte) oder gar 
Kommandos zur bedingten Assem- 
bliering. Aufgrund der einge- 
'schränkten Möglichkeiten ist er 
hauptsächlich für kleinere Ände- 
rungen an bestehenden Program- 
men gedacht. Z80-Programmierer 
‚seien nochmal auf die Vergleichsta- 
belle hingewiesen. Abgebrochen 
wird die Eingabe der ÄAssembler- 
Mnemonics durch einen Punkt. 
Der Dump-Befehl 

»D« steht für »Dump«. Dieser Be- 
fehl gibt einen Hexadezimal- und 
ASCI-Dump eines Speicherbe- 
reichs auf dem Bildschirm aus. Nicht 
darstellbare Symbole des Zeichen- 
satzes werden durch Punkte ersetzt. 
Der Dump-Befehl hat drei verschie- 
dene Formate: 
—D Dump von 12 Zeilen ab dem ak- 

tuellen PC-Stand 
—D0200 Dump von 12 Zeilen ab der 

angegebenen Adresse 
—D040A Dump zwischen zwei 

Adressen 

Die Bildschirmausgabe kann da- 
bei mit »Ctrl-S« eingefroren und 
durch Drücken einer beliebigen Ta- 
ste fortgesetzt werden. Äbgebro- 
chen wird der Dump-Befehl durch 
Drücken einer beliebigen Taste au- 
Ber »Gtrl-S«. 
Der Fill-Befehl 
»F« steht für »Fill«, einen Befehl zum 
Füllen eines Speicherbereichs mit 
einem bestimmten Wert. Das Format 
sieht so aus: 
—F2F00,3F00,60 

Dieser Befehl füllt den Speicher 
von 2F00 bis 3F00 hex mit dem Hex- 
wert 60 hex. 
Der Go-Befehl 
»G« steht für »Go« und startet ein Ma- 
‚schinenprogramm an der angege- 
‚benen Adresse. So löst beispielswei- 
se »G0000« einen CP/M-Warmstart 
aus. Zusätzlich können noch bis zu 
zwei Werte angegeben werden, bei 
denen der Programmlauf automa- 










tisch unterbrochen wird und ein 
Rücksprung zu DDT erfolgt. 
Der Hexcalc-Befehl 

»H« steht für »Hexadecimal Calcu- 
lation« und erlaubt die Subtraktion 
und Addition zweier Hexadezimal- 
Zahlen. Beispiel: 

—H0100,0001 

Dies ergibt 0101 hex als Additions- 
ergebnis und 00OFF hex für die Sub- 
traktion. 

Der Input-Befehl 

»I« steht für »Input«. Das -Kommando 
bereitet das Einlesen einer Disket- 
tendatei vor. Direkt nach dem »I« 
muß dazu der Dateiname eingege- 
ben werden, beispielsweise 
—[WSCOM 

Mit diesem Befehl würde das Ein- 
lesen von Wordstar (ws) vorbereitet. 
Wirklich eingelesen wird die Datei 
dann mit dem R-Befehl (siehe weiter 
unten). 

Der List-Befehl 

»L« steht für »List« das den inte- 
grierten Disassembler aktiviert. Die 
Parameter entsprechen denen des 
Dump-Befehls. Die Mnemonics wer- 
den in der oben erklärten Intel- 
Schreibweise angegeben; Sie kön- 
nen dazu die Vergleichstabelle zu 
Rate ziehen. Nicht definierte Ma- 
schinencodes werden mit »3FAC 
??= 08« angezeigt. 

Problematisch wird es, wenn Sie 
mit dem L-Befehl das Floppy-ROM 
disassemblieren wollen. Dort ist 
der Hardware-abhängige Teil von 
CP/M, dasBIOS (Basıc Input/Output 
System) gespeichert, welches die 
Schnittstelle zwischen CP/M und 
den speziellen Eigenschaften des 
Schneiders darstellt. Die Program- 
mierer bei AÄmstrad (dem englı- 
schen Entwickler) haben selbstver- 
ständlich in Z80-Maschinencode 
programmiert, was zur Folge hat, 
daß auch Z80-Befehle ohne zugehö- 
rige 8080/8085-Pendants verwendet 
wurden. 

Keine Schwierigkeiten haben Sie 
hingegen, wenn Sie das BDOS, den 
CCP oder andere CP/M-Program- 
me auflisten lassen. BDOS und CCP 
wurden nämlich von Digital Re- 
search, dem »Erfinder« von CP/M, in 
8080-Assembler geschrieben. 

Der Move-Befehl 

»Ma« steht für »Move«, einen Befehl, 
mit dem man Speicherbereiche ver- 
schieben kann: 
—M0000, 0100,4500 kopiert den In- 
halt des Speichers von 0000 bis 0100 
hex nach 4500 bis 4600 hex (4500 + 
0100 hex) 

Der Read-Befehl 

»R« steht für »Read«, dieser Befehl 
liest eine mit dem I-Kommando vor- 
bereitete Datei in den RAM-Spei- 


cher. Dazu kann ein Offset angege- 
ben werden, der die Ladeadresse 
abhängig vom Beginn der TPA be- 
stimmt. R oder RO lädt die Datei an 
den Anfang der TPA bei 0100, R0200 
an die Adresse TPA +0200=0100+ 
0200= 0300 (alles hex). 
Der Store-Befehl 

»S« steht für »Store«. Dieser einfa- 
che, aber dennoch leistungsfähige, 
Befehl gestattet die byteweise Än- 
derung von Speicherbereichen. Ein 
S mit Enter übernimmt die letzte ver- 
wendete Adresse, es kann aber 
auch ausdrücklich eine neue Adres- 
se angegeben werden. Der DDT 
gibt die aktuelle Speicheradresse 
und deren Inhalt hexadezimal aus; 
daraufhin haben Sie die Möglich- 
keit, eine neue Ziffer (hexadezimal) 
einzutippen, die dann ander Ädres- 
se gespeichert wird. WollenSie eine 
Adresse unverändert belassen, 


drücken Sie ganz einfach die En- 


ter-Taste. 
— 50600 

0600 FF 

0601 F3 

0602 AO 

0603 , 

Der Trace-Befehl 

»I« steht für »[race«. Damit lassen 
sich Maschinenprogramme in Ein- 
zelschritten abarbeiten. Vergleich- 
bar ist der Befehl ın etwa mit dem 
TRON-Kommando im Schneider-Ba- 
sic. 

Die Abarbeitung beginnt an der 
letzten verwendeten Adresse; ange- 
geben werden muß die Zahl der ab- 
zuarbeitenden Programmschritte. 
Sollen zum Beispiel die nächsten 15 
Maschinenbefehle ausgeführt wer- 
den, lautet Ihre Eingabe: 

—TOF 

Bei jedem Programmschritt er- 

folgt eine detaillierte Ausgabe der 


Prozessor-Register: 
GAMEIA=. B=..: Ds... H=;.. 
Be. Ps, . Kommando 


Die Abkürzungen haben folgen- 
de Bedeutung: 


C = Carry-Flag 

2 = Zem-Flag 

M = Minus-Flag 

E = Parity-Flag (E=even, gerade) 

I = Halfcarry-Flag (8080-Name: 
Interdigit Flag) 


= Akkumulator 

= Doppelregister BC 
= Doppelregister DE 
= Doppelregister HL 
= Stackpointer SP 

= Program Counter PC 


vun m Ob ın 


Kommando zeigt den mnemoni- 
schen Code des ausgeführten Be- 
fehls an. 


a ee he a a 


Ar 
ao 
38 


U FOR 


TOT BE es 


r r w ‚ 2 
Made m a ll 1 Ai ee = 
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CP/M-Grundlagen 





Der Untrace-Befehl 
E »U« steht für »Untrace«, eine Va- : | 

riante des Trace-Befehls. Die Einga- Die Befehle des DDT 
be entspricht der des T-Komman- 


Datei in den Speicher lesen 

Speicherbereiche hexadezimal abändern 
Maschinenprogramme im Einzelschritt-Modus 

Wie Trace, jedoch ohne Ausgabe der CPU-Register 
CPU-Register anzeigen und abändern 


je »Untersuchungs«-Befehl zeigt den 
>= gegenwärtigen Inhalt der Prozes- 
' sor-Register, genauso wie beim vIk- 
oder »U«Kommando. Eine Variante 
| des X-Befehls erlaubt die direkte 
F Veränderung der CPU-Register. Da- 
t zu wird der Registername unmittel- 


| 5 Ä Mnemonics eingeben und assemblieren 
n dos. Der U nterschied ‚legt darin, D Speicherbereich hexadezimal und ASCII ausgeben 
Bi daß nicht jeder ausgeführte Befehl F Speicherbereich füllen 
F angezeigt wird. Lediglich beim letz- G Maschinenprogramme mit Breakpoints aufrufen 
Er: ten Befehl erscheint die Zeile mit H Hexadezimale Addition und Subtraktion 
je den Prozessor-Daten. I Dateinamen zum Datei-Einlesen vorgeben 
| Der Examine-Befehl L Disassembler-Funktion 
Fe »X« steht für »Examine«. Dieser : Speicherbereiche verschieben 
5 
T 
U 
X 







































tz: bar hinter dem »X« angegeben. Dar- Code 8 an Code 
1: aufhin erscheint der Registername CE acı by ADC A,by oc 
12 und -inhalt; dieser kann dann nach ee nn = N 
ö en verändert werden: ” ADC c ADC BL . 
2 B = 0000 3FAC | a - 
} Mit diesem Befehl wird das BC- A ADO En “ 
f rt mit dem Wert SFAC hex ge- a ADD AR 2 
Dr aden. 80 ADD B ADD A,B DA 
Nachdem Sie ein Programm mit al zn, ‚© ADD Ag FA 
Fr all diesen Befehlen analysiert und “ Fr “ ar .: > 
je eventuell verändert haben, wollen Bun. 8 ADD AH c2 
ji Sieessicher auch abspeichem. Da | 5 m u 0 Zum 44 
: zu drücken Sie »Ctrl-C« oder geben cC6  ADI by ADD A,by E2 
IE »G0000« ein. Dies löst einen CYM- | 2 AM A en = 
h Warmstart aus, und der CCP-Bedie- al ANA  C AND c 0A 
k nungsprozessor wird aufgerufen. 2 re a. : 3 
IH; Zum Abspeichern als Binärdatei a AND H 01 
= dient der residente CP/M-Befehl | A5 ANA E un = . 
“© SAVE: EEE AN by AND by 31 
er ma u | 
I" etzt benötigen Sie wieder den re 
| Wert, der beim Start von DDT als ar a vie er Sig 1. 
I‘ NEXT angegeben wurde. Damit SA- 5 er ” ce i 
| VE weiß, wieviel Byte Sie abspe- |» m 3 cp : 
er \ chern wollen, müssen Sie die Zahl BB CM cC cp c 
I: der belegten »Pages« (Speicherse- | Mm 2 ee n 
E ten) errechnen. Eine Speicherseite | z cw # CP H 
i: ist 256 Byte lang. Sie nehmen ds- | Sm ı = 
1 halb von NEXT-Zahl die ersten D4 \Cnc wo CALL NCmo 
il beiden Ziffern (das Highbyte). Bei ca NZ wo | ‚wo 
2 NEXT=6400 hex wäre das 64 he. |c m 5 2 gu Em 
Diesen Wert müssen Sie ins Dezi- FE CP by CP by 
bs malsystem umrechnen: 64hex=100. | cc & gu FOm 
A Das Ergebnis kann dann bei SAVE 27 DAA DAA 
5 angegeben werden — bis aufeine | % DaB B a 
IV Ausnahme: Wenn das Lowbyte von 3 DD MH ADD HL,HL 
| NEXT Null ist — was gerade beim ee = 22 ag 
8 Beispiel 6400 hex zutrifft — muß die 60 DER 8 DEC 3 
ui Zahl der Pages um eins verringert 0D DER GC DEC c 
e werden. Der Befehl lautet dann so: n aa = na 5 
n »A>SAVE 99 FILECOM« 5 DER H DEC H 
Selbstverständlich kann der DDT | PD Dar u ee 
E — wie viele andere CP/M-Program- B DC 38 DEC BC 
me auch — die Bildschirmausgaben ee - nr > 
auf dem Drucker mitprotokollieren. BB CHE @ DEC sp 
Dazu drücken Sie einfach »Ctrl-P«. Bo DI DI 
Abgeschaltet wird die Protokol- | El En 
funktion wiederum mit »Ctrl-P«. DB IN by IN A,by 
3C INR a INC 
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Code 
62 
63 
64 
ı 65 
| 66 
| 6F 
| 68 
| 8 
GA 
6B 
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Auch wenn Ihr Wordstar-Programm 
an den Schneider angepaßt ist, so 
| gibt es immer noch viele Wünsche, 
| die offenbleiben. Dabei kennt diese 


ee noch viele Routinen, die das 
Arbeiten weitaus angenehmer machen. 


enn Sie eine Wordstar- 
W=: haben, die auf Ih- 
rem Computer prinzipiell 
- funktioniert, dann dürfen Sıe diesen 
- ersten Abschnitt ohne Bedenken 
- überspringen. 
| Wenn aber nach dem Aufruf des 
Programms nur Unsinn auf dem 
Bildschirm erscheint, dann müssen 
Sie zunächst das Ihrem Wordstar 
beiliegende Install-Programm star- 
ten. 
Spielen Sie dabei ruhig etwas mit 
den Menü-Routinen und geben Sie 
beliebige Änderungen ein. Nach- 








dem Sie dann das Install-Programm 
beendet haben, testen Sie die Wiır- 
kungen der Veränderungen. Zerstö- 
ren können Sie dabei übrigens 
nichts — denn mit der Install-Routine 
läßt sich das Programm immer wie- 
der umbauen. Machen Sie sich aber 
trotzdem zuvor eine Sicherheitsko- 
pie, denn mit der Originaldiskette 
sollten Sie nie arbeiten. | 

Sobald Ihnen die Bedienung der 
Installierungsroutinen geläufig ist, 
müssen Sie sich bei der Erstanwen- 
dung besonders auf folgende Punk- 
te konzentrieren! 


. & in ud \ 
u fi “ ’% 


Code 8080-Kommando Z80-Kommando 
9E SBB M SBC AHL) 
DE SB by SBC A,by 
22 SHLD wo LD (wo), HL 
F9 SPHL LD SP.HL 
32 STA wo LD (wo), A 
02 SAX B LD (BC)A 
12 SAX D LD (DE),A 
37 STC SCF 
97 SUB A SUB A 
90 SUB B SUB B 
91 SUB c SUB c 
92 SUB D SUB D 
93 SUB E SUB E 
94 SUB H SUB H 
95 SUB L SUB L 
96 SUB M SUB (HL) 
DE su by SUB by 
EB _KXCHG EX DE,HL 
AF KXRA A XOR A 

| a8 XRA B XOR B 

| 239 XRA = XOR & 
AA  XRA D XOR D 
AB XRA E XOR E 
AC _XRA H XOR H 
AD XRA L XOR L 
ARE XRA M XOR (HL) 
EE  XRI by XOR by 
EB  XTHL EX (SP),HL 
by — Byte (8 Bit) 
wo — Wort (16 Bit) 
dı — Distanz (8 Bit) 


8080 und Z80 im Vergleich 


— Die Bildschirmgröße muß auf25x 
80 Zeichen eingestellt werden. 

Die CP/M-Entsprechung des 
Locate-Befehls muß unbedingt in- 
stallıert werden. Im entsprechen- 
den Menüpaket werden dazu von 
Ihnen verschiedene Angaben ver- 
langt. Diese sind auf dem CPC 464 
und 664: 

— Die Steuerzeichenfolge, um einen 
Cursor zu positionieren, besteht 
beim CPC 464 und 664 aus dem Zei- 
chen IF hex (31 dez). 

— Zwischen der Angabe von Zeile 
und Spalte sowie nach beiden, 
braucht keine Steuerzeichenfolge 
gesendet zu werden. 

— Die Angabe der Zeile und Spalte 
erfolgt binär, wobei die Spalte vor 
der Zeile ausgegeben werden muß. 
— Der »OÖfiset« (Startwert), der vor 
der Ausgabe auf den Bildschirm zu 
den Koordinaten addiert wird, hat 
sowohl für die Zeile wie auch für die 
Spalte den Wert 1. 

— Das Steuerzeichen für Ein- und 
Ausschalten der Hervorhebung 
(durch inverse Zeichen) ist beim 
CPC der Code 18 hex (24 dez). 

Der Steuercode zum Löschen ei- 
ner Zeile von Cursorposition bis zum 
Ende ist 12 hex (18 dez). Wenn Sie im 
Install-Programm den entsprechen- 
den Menüpunkt aufrufen und den 
Wert eingeben, dann löscht Word- 
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star später eine Zeile nicht mehr Zei- 
chen für Zeichen. Das führt dann zu 
einer spürbaren Beschleunigung. 
— Manche Terminals verlangen 
nach jeder Bildschirmausgabe eine 
»Ruhepause«. Ihr Schneider benö- 
tigt diese Ruhepause nicht. Deshalb 
ist es ratsam, alle Wartezeichen auf 
Null zu setzen. Wenn Sie mit dem 
Programm »DDTCOM« umgehen 
können, lassen sich diese Änderun- 
gen auch nachträglich (ohne das 
Install-Programm) durchführen, in- 
dem Sie die beiden Bytes an den 
Adressen 0O2AE und 02AF hex auf 
Null setzen. 

— Die rechte untere Ecke des Bild- 
schirms darf unter Wordstar nicht 
beschrieben werden. Der CPC 
scrollt sonst den Bildschirm vorzei- 
tig, ohne daß dies vom Programm 
registriert wird. In der Folge würde 
dann irgendwann nur noch »Müll« 
auf dem Bildschirm stehen. Bei 
fremden Terminals ist das Beschrei- 
ben der Ecke aber oft erlaubt. Im 
Install-Programm sollte deshalb das 
in ses: Flag gesetzt wer- 

en 

Wenn Sie sich mit Hilfe des Install- 
Programms versichert haben, daß 
diese Werte auch in Ihrem Wordstar 
korrekt eingetragen sind, muß es 
ordnungsgemäß laufen. 

Auch wenn Ihr Wordstar ord- 
nungsgemäß funktioniert, sollten Sie 
sich mit einer Minimalanpassung 
nicht zufrieden geben. Es gibt vier 
grundsätzliche Schwachstellen, die 
man mit wenig Aufwand beseitigen 
kann. 

Langsamer Bildschirmaufbau: 

Besonders als Anfänger werden 
Sie Wordstar in der Hilfsstufe 3 be- 
treiben wollen. Dann haben Sie 
aber allen Grund zum Ärgern: Je- 
desmal, wenn der Bildschirm scrollt 
(und das kommt nach jeder Zeile 
vor), dauert es »ewig«, bis er wieder 
richtig aufgebaut ist. Selbst wenn Sie 
Wordstar in Hilfsstufe 2 benutzen, 


bleiben Sie davon nur verschont, so- - 


lange sich der Cursor ganz unten 
auf dem Bildschirm befindet. 

Der Zeitbedarf kommt daher, daß 
beim Scrollen des Bildschirms je- 
des Zeichen einzeln an die neuen 
Positionen ausgegeben wird. Au- 
ßerdem prüft das Programm jedes- 


Kommentar 


»Basic-ähnliche 
Schreibweise. 
WINDOW 1,80,,25 


Steuercodes 

IA 004Fy 18 
LOCATE 1,26 
PRINT" ”; 
WINDOW 1,80,1,35 


Bildschirm 
(y = Zeile, auf der sch der Cursor befindet) 


Tabelle 1. Die Steuerzeichenfolge für »Cursorzeile einfügen« 


ENT 


aktuelles Window umfaßt nur zu scrollenden 
Bildschi ich 

Cursor außerhalb Window positionieren 

; Zeichen ausgeben — > löst Serolling aus 
HOME Cursor an Anfang der laufenden Zeile 
aktuelles Window umfaßt wieder gesamten 





mal, ob eine Taste gedrückt wurde, 
die die Ausgabe überflüssig macht. 
Drückt man keine Taste, so kostet 
das unnötig Zeit. 

Aus dem Wordstar-Handbuch 
geht hervor, daß Wordstar die Bild- 
schirmsteuersequenzen »In der 
Cursorzeile Leerzeile einfügen und 
Bildschirmbereich unterhalb ab- 
wärts scrollen« sowie »In der Cursor- 
zeile löschen und Bildschirmbe- 
reich unterhalb nach oben scrollen« 
unterstützt, wenn der Computer sie 
versteht. Das kann der Schneider 
aber nicht. Es ist aber möglich, die- 
se Funktion wenigstens zu simulie- 
ren. 


Optimieren eines funktio- 
nierenden Wordstars 





Sie werden es kaum glauben, 
aber mit dieser Änderung wird der 
Bildschirmaufbau um den Faktor 
100 beschleunigt (von einigen Se- 
kunden auf einen Sekundenbruch- 
teil)! Sie brauchen nur die Steuerzei- 
chenfolgen aus den Tabellen 1 und 
2 eingeben. Doch wo ist im Speicher 
Platz dafür? 

In den Bereich ab 0274 bezie- 
hungsweise 027B hex könnte im 
»WSCOM«-Programm eine entspre- 
chende Folge eingefügt werden. 
Leider darf diese aber nur sechs 
Zeichen lang sein und keine 14 be- 
ziehungsweise 15, wie es nötig ist. 

Es gibt aber trotzdem eine Lö- 
sung: Man darf nämlich nicht nur 
steuerzeichen nach Wunsch neu 
einsetzen, sondern auch eine voll- 
ständig neue Bildschirmroutine. In 
der eingebauten Routine geht 
Wordstar sehr systematisch vor. Zu- 
nächst ruft die oberste Programm- 
hierarchie ein Unterprogramm »Fü- 
ge Zeile aufdem Bildschirm ein« auf, 
ohne sich darum zu kümmern, wie 
das Unterprogramm das bewerk- 
stelligt. Erst dieses Unterprogramm 
sucht sich die geeigneten Steuerco- 
des aus einer Tabelle und übergibt 
sie der endgültigen Konsolen- 
Ausgaberoutine — wieder ohne sich 
darum zu kümmern, wie diese das 
macht. Es ist also möglich, an dieser 
Stelle eine weitere Routine aufzuru- 
fen, PER IERE eine SUBRUHnE 


Steuercodes 

IA 004Fy 18 

IE HOME 
20 

IE 

LA 00 4F 00 18 


‚einfachsten mit 


»Basic-ähnliche« 
Schreibweise 
WINDOW 1,80,y,25 


OB CURSOR up 
PRINT * 


HOME 
WINDOW 1,80,1,25 
(fr = Zeile, aul der sch der Cursor beiinden) 


Tabelle 2. Die Steuerzeichenfolge für »Cursorzeile löschen« | 





des ASCII-Codes — den Wordsta 
benützt — in einen anderen, den Ih 
Terminal versteht (wenn Sie ein seh 
exotisches Terminal besitzen). 

Ein Weg, die gewünschten String 
zu installieren, ist hier, an den Pos# 
tionen 0274 beziehungsweise 0278 
hex zwei »Phantomsteuercodes« ein 
zutragen, die normalerweise nich 
verwendet werden. Beim Schneider 
bieten sich dazu die Steuercodes 1£ 
hex (Symbol-Befehl: hier nicht ben& 
tigt) und IB hex (immer unbeleat) an 
Der eigentlichen Konsolenausgabe 
wird mit Hilfe einer »Umleitung« ei 
ne weitere Routine vorgeschaltet 
die in der Lage ist, diese »Phantom- 
steuercodes« zu erkennen. Soll ein 
beliebiges anderes Zeichen ausge 
geben werden, so wird die normale 
Routine aufgerufen. Das geht am 
einem direkten 
BIOS-Aufruf, um jegliche Verände 
rung durch das Betriebssystem aus 
zuschließen. Tritt aber das Steuer 
zeichen 19 hex oder IB hex auf, so) 
soll die neue Konsolen-Ausgabero 
tine nicht nur ein Zeichen, sondern 
den ganzen String an den Bild 
schirm senden. Selbstverständlich 
muß die neue Routine prüfen, daß 
nicht fälschlicherweise Parameter 
anderer Befehle (beispielsweise 
von Locate) mit dem Wert 19 oder IB 
hex ausgeführt werden. Der Aufruf 
der neuen Konsolen-ÄAusgaberouti- 
ne muß in die Adresse 02C0hexei 
getragen werden. 

Unsichtbarer Cursor: | 

Wennsich der Cursor aufoderne- 
ben einem hervorgehobenen (Vor- 
dergrund und Hintergrundfarbe 
vertauscht) Zeichen befindet, ist er 
unsichtbar. Um dies zu ändem, 
schreibt man den Wert FF hex in die 
Speicherzelle 02B5 hex. Das Pro- 
gramm läßt den Cursor dann blin- 
ken. Die Werte in den Speicherzel- 
len O2CF hex und 02D0 hex bestim- 
men dabei die Blinkgeschwindig- 
keit. 

Die Drucker-Statusabfrage: 

Wordstar läuft unter allen Versio- 
nen des Betriebssystems. Ältere als 
CP/M 2.2 haben dabei aber keine 
Routine die ermittelt, ob der 
Drucker zum Datenempfang bereit 
ist oder nicht. Die Druckerroutine 
gıbt die Kontrolle a erst wie- 








unterer Bildschirmbereich = aktuelles Win- EB 
dow 


Cursor außerhalb Window positionieren 
Zeichen ausgeben — > löst Scrollen aus 
Anfang der laufenden Zeile 

aktuelles Window umfaßt wieder gesamten 
Bildschirm 











der an das Hauptprogramm zurück, 
wenn das Zeichen wirklich beim 
Drucker angekommen ist. 

Damit ist man zwar von der Hard- 
ware unabhängig —muß aber damit 
rechnen, daß der Computer »ab- 
stürzen« kann, wenn der Drucker 
nicht bereit ist. | 

Bei CP/M kann man aber mit ei- 
nem direkten BIOS-Aufruf den 
Druckerstatus abfragen. Der Com- 
puter gerät dabeiniein eine Endlos- 
schleife. Diese Fähigkeit kann man 
von Wordstar aus nutzen, wenn man 
eine entsprechende Routine ein- 
fügt. In der Adresse 07lA hex von 
ıWSCOM« sind 3 Byte für einen Auf- 
ruf dieser Drucker-Statusroutine re- 
serviert. 2 

Wenn Sie diese Anderung richtig 
gemacht haben, erkennen Sie das 
sofort beim Aufrufder Druckerrouti- 
ne. Bei einem Fehler (beispielswei- 
se Papiermangel) erscheint das 
Hauptmenü mit der Meldung »P= 
Druck halt« Sie können den miß- 
glückten Versuch ohne Tricks kor- 
rekt beenden. 


Deutscher Zeichensatz: 

Wenn Sie das für Schneider-Com- 
puter speziell angepaßte Wordstar 
besitzen, das vom Markt & Technik 
Verlag vertrieben wird, dann steht 
Ihnen auch ein deutscher Zeichen- 
satz zur Verfügung. Das »Design« 
der Sonderzeichen ist jedoch nicht 
besonders ansprechena. Die Matrı- 

zen der Zeichen »8,.ÄAÖU t,äöü und 

"Bı liegen in dieser Reihenfolge di- 

rekt hintereinander im Speicher des 
Computers. Sie belegen die Adres- 
sen von 3FCD bis 4014 hex in »WS 
COM« und können dort leicht verän- 
dert werden. 


Die praktische Durchführung der 
"Wordstar-Anpassung: 

Nachdem es bis jetzt sehr theo- 
retisch zugegangen ist, finden Sie 
hier die Listings, mit denen Sie die 
Wordstar-Anpassung konkret durch- 
führen können. 

Beherrschen Sie nıcht den 8080- 
Assembler, müssen Sie die Anpas- 
sung in vier Schritten durchführen: 
Als erstes brauchen Sie eine Ar- 
beitsdiskette in CP/M-Format. Auf 
dieser müssen die Routinen 
»WSCOM« »WSOVLYLOVR« und 
‚WSMSGSCOM« stehen. Die Datei- 
en dürfen nicht schreibgeschützt 
sein. Nachdem Sie die Datei kopiert 
"haben, müssen noch mindestens 20 
"KByte frei sein. Machen Sıe sich jetzt 
von den anderen Dateien, die sich 
auf der Diskette befinden, Sicher- 
heitskopien. Sollten Sie bei dieser 
‚Art von Experimenten einen Fehler 
me en, kann es Ihnen leicht pas- 
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sieren, daß Sie nachher keine einzi- 
ge Datei mehr lesen können. 

Als weiteres tippen Sie das Basic- 
Programm in Listing 1 ab und spei- 
chern es unter dem Namen 
»WSPATCH.BAS«. Starten Sie nun 
dieses Basic-Programm. Ist es feh- 
lerfrei, erscheint nach einiger Zeit 
die Meldung »Alles ok.«. Dieses 
Programm erzeugte auf der Dis- 
kette eine Datei mit dem Namen 
»WSPATCHCOM«. 

Erscheint aber die Meldung »Prüf- 
summenfehler in Zeile«, dann befin- 
det sich in dieser Zeile ein Fehler. 
Den müssen Sie korrigieren und das 
Programm nochmals starten. Es be- 
findet sich nun aber schon eine un- 
vollständige Datei mit dem Namen 
»WSPATCHCOM« auf der Diskette. 
Diese muß gelöscht werden. Beach- 
ten Sie bitte, daß nur Tippfehler ent- 


III EETESSTE STE SEE TEE een 
"= (EC) HELMUT TISCHER " 
“ ASTERMWEG 40, B032 MOOSBURG * 
ee 
"Basic-Lader fuer die Datei '"WSPATCH. 


CDH' 
40 DPENDOUT"WSPATCH. COM" ızeile=sio000 
0 pruet=h 
80 FOR > TD 7 
70 READ d { 
IF Mi. BER THEN ELOSEDUT:IPRIMT"ALL 
es 0O.K.":END 
deWAL "+ PRINTER „CHRF (di ge pruef 
or gi 
“T 
READ 5 
IF pruef<>p THEN CLOSEDUT:PRINT"Prus 
fsummenfehler in Zeile’zreile:EMD 
ERTENEREABFAR 


> DATA C3,8B5,01,00, os, 08,09,45, 

80 DATA 72,77,45,69,74,45,72,74, Bis 
DATA 65,20, a110E.70) & 73,273, 
DATA 75,4E,67,20,76,6F ,5E,20, 
DATA 57,6F,72,64,73,74,61,72, 
DATA 20,56, 65,72, 73,2E,20,33, 37 

2E,30,30,20,20,20,32,2E, 
DATA 30,20, 51,5E,20,43,50,43, 
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,2D,20, 
"62,65, 73,723,65 
72,74,65,73,20,53,69,4D, 


1 
5 


EREERT) 
on 


7} 

2 
angaRsB 

L Kl 


Buy 


a ee 


a ‚O&,öF, 195 
C3,1A,03,70.32,3F,03,.21, 493 
3C.03.08,0E .4E,23,.05,E5, 522 

DATA CD,F3, + ‚E1,C1,05,62,19,1093 

DATA 03,C09,01 ‚1A,00,47 ‚02,18, 356 
770 DATA 1F,01,1A,20,1E, ‚IF, 225 
780 DATA 00,18,1F,50,18, 20. 14,00, 217 
790 DATA 4F,07,18,1E,0B,20,1E,1A, 

DATA 00,4F ,00,18,11,24,00,CD, 


Eco 
| 810 DATA F&,02, = , IF,C9, 3,50, F3C, 
920 DATA 44 


3 
‚>C,6C6,38,6C, 692 


720 DAT 05, 
7306 DATA 4E JAF.Sa, 20, 
740 DATA 44,00, op Zar 
730 DATA Ende 


Listing 1. Der Basic-Lader für eine 
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deckt werden, die sich innerhalb ei- 
ner Zeile befinden. Haben Sie eine 
Zeile ganz vergessen oder zwei Zei- 
len vertauscht, ist die Dateitrotz Mel- 
dung »Alles ok.« fehlerhaft. Sie dür- 
fen das Basic-Programm also erst lö- 
See wenn alle Fehler ausgemerzt 
sind. 

Die Datei »WSPATCHCOM« 
nun ein ganz normales CP/M- 
Programm. Rufen Sie CP/M auf und 
starten Sie »WSPATCHCOM« durch 
Eingabe des Namens (aber ohne 
»COM«). Jetzt muß ein Text auf dem 
Bildschirm 
Laufwerk arbeiten. Erscheint aber 
die Fehlermeldung »FILE NOT 
FOUND«, dann haben Sie verges- 
sen, die Datei »WSCOM« auf Ihre 
Arbeitsdiskette zu kopieren. 

Wenn das »A« wieder auf dem 
Bildschirm erscheint, sind alle oben 
besprochenen Anpassungen kor- 
rekt installiert. Testen Sie Wordstar 
und beachten Sıe folgende Punkte: 
— Versuchen Sie eine Datei auszu- 
drucken. 

— Tippen Sie einen Text ein und pro- 
bieren Sie IN und tY irgendwo in 
der Mitte des Textes aus. Das Scrol- 
len sollte jetzt wirklich blitzartig, oh- 
ne Neuaufbau des Bildschirms vor 
sıch gehen. 

— Blinkt der Cursor, wenn er sich 
neben einem inversen Feld befin- 
det? 

— Wie gefallen Ihnen die deutschen 
Umlaute? 

Wenn irgendetwas nicht funktio- 
niert, dann befindet sich noch ein 
unentdeckter Fehler im Programm 
»WSPATCH.BAS«. Vergessen Sie in 
diesem Fall nicht, die »falsche« 
Wordstar-Anpassung zu löschen. 

Wenn Ihr Programm ordnungs- 
gemäß funktioniert, brauchen Sie 
die »WSPATCH«-Programme nicht 


mehr. Trotzdem sollten Sie sie aufhe- 


ben, vielleicht möchten Sie später 
einmal ein nochmals modifiziertes 
Wordstar installieren. 

Wenn Sie sich mit der Bedienung 
des »DDTCOM«-Programms aus- 
kennen, dann können Sıe das Pat- 
chen des »WSCOM«-Files auch in 
Handarbeit durchführen. In diesem 
Fall sparen Sie sich das Eintippen 
des Basic-Laders. Dafür ist aber die 
Gefahr, daß Sie einen unentdeckten 
Fehler eingeben, um ein Vielfaches 
höher. Entscheiden Sie sich trotz- 
dem dafür, dann sollten Sie so vor- 
gehen! 

— Starten Sie den Debugger mit 
»DDT WSCOM« 

— Geben Sie von Hand allein Listing 
2 dargestellten Änderungen ein. Be- 
achten Sie dabei den Bereich von 
OZEO bis 034B hex. Dieser steht für 
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Ergänzungen des Benutzers zur frei- 
en Verfügung. Dabei benötigen Sie 
folgende Befehle: 

— »D<AÄnfang>,<Ende>« gibt 
den bezeichneten Speicherinhalt im 
Hexadezımalformat aus. Wenn Sie 
die Endadresse weglassen, werden 
nur 16 Zeilen ausgegeben. 
— »L<Anfang>,<Ende>« gibt 
den Speicherinhalt als Disassem- 
blerlisting aus. Ohne Endadresse 
stoppt die Ausgabe wieder nach 16 
Zeilen. 

— »15« hält eine laufende Ausgabe 
an, bis eine weitere beliebige Taste 
gedrückt wird. 

— beliebige Taste während einer 
laufenden Ausgabe: bricht die lau- 
fende Ausgabe ab. 

— »5<Anfang> «: startet eine hexa- 
dezimale Eingabe. Durch eine un- 
gültige Eingabe wird sie abgebro- 
chen. Eine leere Eingabe läßt den 
entsprechenden Speicherinhalt un- 
verändert. 

— »A<Anfang>« der mMini- 
Assembler des DDT-Programmes. 
Alle Befehle werden in 8080-Mne- 
monics gemacht. Durch eine leere 
Eingabe wird dieser Modus abge- 
brochen. 

selbstverständlich gibt esnoch ei- 

ne Menge weiterer Befehle. Wenn 
Sie sich für diese interessieren, soll- 
ten Sie Spezialliteratur zu Rate zie- 
hen. Für unser Problem reichen 
aber die hier gezeigten Befehle voll- 
ständig aus. & 
—  Unterbrechen Sie nach dem Än- 
dern der Datei das DDT-Programm 
durch Eingabe von »1C«, Das neue 
Wordstar-Programm befindet sich 
nun im Speicher. Mit »SAVE 64 
WSCOM« wird es auf Diskette ge- 
speichert. 
— Jetzt sollten Sie das veränderte 
Wordstar (wie oben beschrieben) 
testen. Falls Sie eine Änderung ver- 
gessen haben, können Sie diese 
durch erneutes Starten des »DDT« 
nachholen. Wenn das Programm 
dann immer noch nicht richtig funk- 
"tioniert, haben Sie wahrscheinlich ir- 
gendeine Eingabe durch einen 
Tippfehler an die falsche Adresse 
geschickt. In diesem Fall ist das 
Wordstar-Programm völlig verdor- 
ben, und Sıe sollten mit einer neuen 
Kopie noch mal beginnen. 

Ein weiteres Problem ist die 
Druckeranpassung. Die Standard- 
Installation des Wordstar-Pro- 
gramms unterstützt nur Eigenschaf- 
ten, die allen Druckern gemeinsam 
sind — also fast keine. Ausgenom- 
men sind nur Doppeldruck, Fett- 
druck und Unterstreichen. Diese Ef- 
fekte werden aber nicht mit Hilfe 
der Hardware des Druckers er- 


j j 
u; 


INES nn a Ton 


Be he 9 ar A 


zeugt, sondern dadurch, daß eine 
Zeile zweimal hintereinander ohne 
Zeilenvorschub ausgegeben oder 
daß eine Leerzeile angegeben 
wird. 

Analog der Installierung der Bild- 
schirmsteuerzeichen albt es im Pro- 
gramm auch reservierte Bereiche 
zum Eintragen von Druckersteuer- 
zeichen. Diese Bereiche sind im An- 
hang F des Wordstar-Handbuchs 
beschrieben. Einfache Anderun- 
gen kann man jedoch auch mit Hilfe 
des Install-Programms durchfüh- 
ren. 

Übrigens sind — mit Ausnahme 
der Schönschrift und der Grafikzei- 
chen — alle Steuerzeichen eines 
Epson-kompatiblen Druckers und 
des NLQ401 gleich. Die folgende 
Anpassungist also für Sie auch dann 
nützlich, wenn Sie keinen NLQ401, 
sondern »nur« einen Epson-Drucker 
besitzen. 

Die beiden Anpassungen (Bild- 
schirm und Drucker) sind völlig un- 
abhängig voneinander. Sie können 
also mit Ihrem Wordstar entweder 
die eine, nur die andere oder alle 
beide benutzen. Die erweiterte 
Druckersteuerung ist damit sogar 
auf Programmen lauffähig, die nicht 
an den CPC angepaßt sind. 

Starten Sie Ihr Wordstar-Pro- 
gramm und tippen Sie während der 
Bearbeitung eines Textes einmal 
»1P« ein. Es wird das Druckermenü 
ausgegeben. Man sollte jetzt versu- 
chen, möglichst viele Fähigkeiten 
des NLO-Druckers auf die noch frei- 
en Steuerzeichen zu legen. Ein Lö- 
sungsvorschlag dafür ist: 

— »tPB«, 1 PD«, »tPS«, »IPX« und 
»tPENTER« " Schattendruck/Dop- 
peldruck/Unterstreichen/Durch- 
streichen und Überdrucken. Diese 
Funktionen brauchen nicht verän- 
dert zu werden, da sie hardware- 

unabhängig installiert sind. 

— »IPF«»tPG« und »tPV« Zeichen 
löschen/Phantomzeichen. Diese 
Funktionen beherrscht der NLQO40] 
nicht, und müssen deshalb wegge- 
lassen werden. 

— »1PT« und »tPV«: Hoch- und Tief- 
stellen (ein/aus). Diese Funktionen 
können ruhig auf ihren Buchstaben 
belassen werden — nur müssen sie 
richtig initialisiert werden. 

— »IPY« Farbband wechseln. 
Beim NLQ401 kann das Farbband 
nicht automatisch gewechselt wer- 
den. Eine Möglichkeit, dieses vir- 
tuelle Steuerzeichen doch zu benut- 
zen ist, es mit den Steuersequenzen 
für Schrift in doppelter Größe zu be- 
legen. 

— »!IPA« und »tPNk«: zweite Schrift- 
dichte ein-/ausschalten. Diese Steu- 
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ermöglichkeit wird am besten mi 
den Druckercodes für komprimier 
te Schrift belegt. 

— »!PQ« und »tPW«: Diese Funktio 
nen können vom Anwender frei be 
legt werden. Hier kann man Near 
Letter-Quality oder Schnellschrif 
wählen. 
— »tPR« Auch diese Funktion kanz 
frei belegt werden. Sinnvoll ist, d& 
mit den amerikanischen oder den 
deutschen Zeichensatz alternatiw 
auszuwählen. Es können dann auch 
eckige Klammern und so weiter ge 
druckt werden. 

— »IPE« Auch diese Funktion ist 
frei definierbar. Damit könnte man 
die Grafikzeichen des Druckers an- 
wählen. Es sind dann in einem Text 
beispielsweise auch griechische 
Sonderzeichen erlaubt. 

Einige Steuerzeichenfolgen la 
sen sich ganz einfach ın die dafür re- 
servierten Bereiche des Wordstar- 
Programms eintragen. Bei anderen 
treten jedoch Probleme auf. 

Wordstar unterstützt — selbst nach 
dem Patchen — nur die Funktionen 
»Wagen eine halbe Zeile hochrollen« 
und »Wagen eine halbe Zeile runter 
rollen« zum Hoch- und Tiefstellen 
von Zeichen. Die Anweisung Tief 
stellen eines Zeichens wird also mit 
denselben internen Steuerzeichen 
durchgeführt wie das Hochstellen 
des Zeichens. 

Der NLQ401 (und der Epson) s- 
mulieren nun aber das Hoch- und 
Tiefstellen mit Hilfe einer speziellen 
Schriftart. Deshalb wird die Hoch- 
stellung mit der Steuerzeichenfolge 
1B54 hex gelöscht, die Tiefstellung 
aber mit der Steuerzeichenfolge 
1B5301 hex eingeschaltet. Nur durch 
Eintragen der normalen Steuerzei- 
chenfolge können Sie das Problem 
also nicht lösen. 

Abhilfe schaffen hier wieder — 
wie schon bei der Installation der 
Bildschirmsteuerung — »Phantom- 
steuerzeichen«, die erst unmittelbar 
vor der Ausgabe in eine wirkliche 
Steuerzeichenfolge übersetzt wer- 
den. Die dazu nötige neue Routine 
muß auch mit einem »Gedächtnis« 
versehen werden, damit sie »weiß«, 
welcher Befehl nun effektiv ausge- 
führt werden soll. Auch zur Auswahl 
des Zeichensatzes steht nur ein ein- 
ziges Steuerzeichen zur Verfügung. 
Es muß also ebenfalls ein »Phantom- 
steuerzeichen mit Gedächtnis« ein- 
gesetzt werden. 

Grafikzeichen besitzen beim 
NLOQ401 einen Code, bei dem das 
achte Bit gesetzt ist. Dies kann nun 
aber der CPC nicht übertragen. 
Deshalb gibt es ein spezielles Um- 
schaltsteuerzeichen, das den nor- 
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0330 1A 20 1E 1A 00 
0340 158 1E OB 20 1E 


I -10344,,0352 


034A 
034D 
0350 
0351 
0352 
0353 
-D0718,0718 


LXI 


CMA 
RAR 
RET 


9718 FF 


-LO71A,071C 


071A 
071D 


JMP 


ı -D3FCD, 4014 


3FCD 3C 60 
3FDO 66 66 3C 
1 3FEO c6 06 6cC 
j aFFo c6 00 00 
4000 66 66 66 
4010 6C 66 66 
I -60 


| Listing 2. Patches in 8080-Assembler zur Eingabe mit dem DDT 


CALL 


D,O02A 
ü2F6 


034A 


3c.x'€ 


06 3C 
38 00 
00 00 
3C 00 
CC 00 


4F 00 15 IF 50 18 20 1A 00 4F 02 .„ 22.:.0::4+P, ++. 


1A 00 4F 00 18 Lu u 7 ”# 


C6 38 6C C6 FE C6 C6 00 C6 38 6C 
c6 00 C6 C6 C6 C6 7C 00 10 38 6C .. 
cc 00 78 0C 7C CC 76 00 6C 00 3C 
GC 00 00 C6 C6 
J1T., 
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malen Zeichensatz abschaltet und speziell interpretiert werden. Der 
BRD, den Grafikzeichensatz auf die Co- Ausgaberoutine wird dies dadurch 
F a des der normalen ASCII-Zeichen signalisiert, daß nach dem »tPE« 
0274 01 19 .. legt. Ein »A«, das den Code 4l hex Zeichen ein weiteres »t!PE«-Zeichen 
-D027B,027C hat, wird also im Grafik-Modus als folgt. Dieses zweite Zeichen signali- 
STE Te das Grafikzeichen mitdemCodeC] siert, daß der als drittes Zeichen fol- 
-D02B5 ,02B5 hex (41+80) ausgedruckt. Die Aus-- gende ASCII-Wert anders übersetzt 
ar gabe im Grafik-Modus erfolgt dann werden muß. Das Zeichen bekommt 
10200 .,020% so lange, bis ein »Rückschaltzei- den neuen Code »Codef(x)+40hex«. 
| | chen« ausgegeben wird. Im Grafik- Die Steuerzeichenfolge »tPEtPEA« 
ee u Modus versteht der NLQ40]1 aber gibt somit das Grafikzeichen mit 

_DO2CP 0200 keinerlei Steuerzeichen. Der Code dem Code 8l hex aus. 

OD hex zum Beispiel veranlaßt kei- Die Steuerzeichenfolge »!PEIPE 
en: nen Wagenrücklauf, sondern steu- @« würde nach dieser Regel dem 
-1L02E0,0327 ert nur die Ausgabe des Grafikzei- Grafikzeichen mit dem Code 80 hex 

02E0 MOV B,L chens mit dem Code 8D hex entsprechen. Beim NLQ401 gibt es 
_. un 5 nn (OD +80). dieses aber nicht, daher kann es mit 
02E5 DER M Normalerweise kommen Grafik- dem bisher noch nicht druckbaren 
02E6 JNZ 02F3 zeichen sehr selten vor. Es ist also Grafikzeichen FF hex belegt wer- 
Be u SE sinnvoll, wenn sich der Grafik- den. | 
02EB CPI IF Modus gleich nach der Ausgabe ei- Die neue Druckerroutine muß ir- 
02ED JNZ 02FB nes einzigen Grafikzeichens wieder gendwo im Wordstar-Programm ab- 
ee von selbst abschaltet. Dadurch ist gelegt werden. Der für den Anwen- 
02F3 LXI D.0009 ein drittes »Phantomsteuerzeichen der reservierte Speicherbereich ist 
neo mit Gedächtnis« nötig: Beim Auftre- aber schon durch die erweiterte 
ee ten des Zeichens »tPE«im Text wird Bildschirmsteuerung belegt. Der 
02FB CPI 1B der Grafik-Modus aufgerufen und einzige Platz ist jetzt der Anfang des 
0 2 nach Ausgabe des nächsten Zei- Text-Speichers. Dieser beginnt nor- 
ae chens automatisch wieder abge- malerweise an der Adresse 7849 
0305 MOV A,B schaltet. Die Eingabe »1PEx« gibt hex. Die Speicherplätze 035C und 
. de nn damit das Grafikzeichen mit dem 035D hex enthalten diese Anfanas- 
oc Tuer Rop Code »Code(x)+80hex« auf den adresse Durch Ändern auf einen 
030E JMP 031A Drucker aus. »x« darf dabei ein be- anderen Wert wird der Beginn des 
u .2in liebiges ASCII-Zeichen sein. Auf Textspeichers geändert. Der Platz 
6315 IXT H.033€ diese Weise ist also die Ausgabe zwischen alter und neuer Start- 
Ban WI B,08 der Grafikzeichen mit Codes zwi- adresse kann vom Anwender belie- 
ee 2 schen A0 und FE hex möglich. big benutzt werden. So auch für die 
031C PUSH B Für die Grafikzeichen mit Codes Druckroutine. 

1 eo en ns zwischen 81 und 9F hex und das mit Normalerweise wird vom gesam- 
sr so dem Code FF hex steht kein norma- ten Wordstar-Programm nur der Be- 
| 0322 Pop B les ASCII-Zeichen mehr zur Verfü- reich bis zur Adresse 4014 hex auf 

er. En nn gung. Der vorhandene ASCII-Satz Diskette gespeichert. Wird an der 
#353  0pr muß also für diese Grafikzeichen Adresse 7849 hex aber eine Ergän- 
0328 t zung eingefügt, so muß der ganze 
-D0328,0349 m dazwischenliegende Bereich mitge- 
0328 01 1A 00 4F 02 18 IF 01 ...0.... speichert werden. Um das zu ver- 


meiden, gibt es einen Trick: Die 
Routine wird zunächst einfach an die 
Adresse 4015 hex gelegt und Word- 
star durch Einbauen einer »Umlei- 
tung« vor Programmstart veranlaßt, 
eine Kopierroutine aufzurufen, die 
die Druckroutine an ıhre endgültige 
Position überträgt. Erst später wird 
das eigentliche Wordstar-Programm 
gestartet. Diese Kopierroutine wird 
ebenfalls hinter der Adresse 4015 
hex abgelegt. 

Für »Assembler-Unkundige« ist 
wieder ein Basic-Lader (Listing 3) 


vorgesehen, das die Routine »NLO 


401COM« erzeugt. Gehen Sie ge- 
nauso vor, wie bei den anderen @ 
derungen. 

Das abgedruckte Programm funk- 
tioniert aber nur, wenn Sie einen von 
Markt & Technik für den CPC 464 
angepaßten Wordstar mit deut- 
schem Zeichensatz verwenden. 
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Wollen Sie das Programm ohne den 
deutschen Zeichensatz benutzen, 
müssen Sie die Zeile 10590 des 
Basic-Programms wie folgt ändern: 
10590 DATA 40,ED,B0.C3,00,3F,11,E3, 
979 

Wenn Sie ein Wordstar (der Ver- 
sion 3.00-2.0) besitzen, der noch nie 
an den Schneider angepaßt wurde, 
oder wenn Sie statt des im Wordstar 
eingebauten deutschen Zeichensat- 
zes lieber einen eigenen, externen 
verwenden wollen, dann müssen 


Sie die Zeile 10590 so ändern: 


10590 DATA 40,EDB0C3,082Dll, 
E3,1001 

Beachten Sie, daß nach der Instal- 
lation im Druckermenü die neuen 
Aufrufe erscheinen müssen. Des- 
halb wird beim Ablauf von 
»NLO401COM« auch die Datei 
„WSMSGSOVR« verändert. Wenn 
Sie hier einen Fehler gemacht ha- 
ben, müssen Sie also auch diese Da- 
tei durch die Originalversion erset- 
zen. 

Zum Testen sollten Sie so vorge- 
hen: 
— Sehen Sie sich durch Eingabe 
von »!P« das Druckermenü an. Wer- 
den alle neuen Steuerzeichen kor- 
rekt angezeigt? 
Geben Sie (im Basic-Modus) das 


Programm »DRUCKER.BAS« aus Li- 
sting 4 ein und starten Sie es. Dieses 
Programm erzeugt auf der Diskette 


eine Datei mit dem Namen 
»DRUCKER2TST« Laden Sie Word- 
star und drucken Sie diese Datei 
aus. Es sollte jetzt eine Tabelle aller 
Grafikzeichen mit Hinweis auf die 
dazu nötigen Eingaben ausgegeben 


werden. Erscheinen in der Tabelle 


wirklich alle 135 Grafikzeichen? 

Dieser Test funktioniert aber nur 

auf dem NLO40]l, nicht unbedingt 
auf allen Epson-kompatiblen Druk- 
kern. Trotzdem schadet natürlich 
das Ausprobieren auch beianderen 
Druckern nicht. 
Geben Sie mit Hilfe der ausge- 
druckten Tabelle und des neuen 
Druckermenüs eine Datei ein, die 
alle Drucksteuerzeichen testet. 

Für Profis ıst wieder der Ässem- 
blercode (Listing 5) für den 
»DDTCOM« abgedruckt. Damit kön- 
nen Sie hier ebenfalls — wie oben 
beschrieben — die Druckeranpas- 
sung in Handarbeit vornehmen. Die 
Bytes, die im »WSCOM« zu ändern 
sind, zeigt Listing 6. 

Auch hier gilt, daß dieses Listing 
ohne Änderungnurfürein Wordstar 
erlaubt ist, das ursprünglich von 
Markt & Technik an den Schneider 
angepaßt wurde und den deut- 
schen Zeichensatz beherrschen 
soll. Wenn es den deutschen Zei- 


iSs "Basic-Lader fuer die Datei 'MLO4BI 
com’ [SCEA] 
EB7SC] 
[FBE4]1 
£E3358] 
CBFF2] 

THEN CLOSEOUTIPRINT"AII 
[F404] 


i1@ DPENDLUT"NLO421. EOM":zeile=-1B0008 
120 oruef=d 
178 FOR j=2 TO 7 
149 READ d# 
158 IF de=-"Ende" 
es D.E. "ıEND 
1223 deWAL "Et" + PRINTEF  CHRF (dI  spruef 
=zpruef+d 
178 MEAT 
189 READ o 
i?79 IF pruefi>p THEN ELOSEOUT:PRINT"Prue 
feummenfehler in Zeile"zeile: ENd 
a0 zeileszeile#+ih 
zid 80T0 129 
DATA CI,22,01,20,02,09,80,41, 
DATA 4E,70,61,73,73,79,6E,67, 
> DATA 20, 74,6F,5E,29,57,53,280, 
DATA 54,453, 72,73,28,33,2E,238, 
DATA 39,.20,32,2E,52,28,6i .5E, 
DATA 29,454,655,5E,20,44,72,75, 
DATA 43.448,43, 72,20,4E,40,51, & 
DATA 34,239.21,00,804,20,28,7%, 
DATA AF,50,.289,43,4F ,40, 78,75, 
DATA 74,55, 72,74,79, 780,20,75, 
DATA &E,61,42,58, TB,6E,57,4#, 
a DATA 547,27,00,B4,24,08,20,1A, 2 
DATA 21,098,408,F7,11,807,01,8E, 38 
DATA 97,C0,85,20,11,50,B0,.21, 
DATA BA,22,21,08,88,ED,Bd,BE, & 
DATA BF,11,5C,89,C0D,21,85,AF, 
60 DATA COo,A7,82,21,15,48,22,681, 
DATA BO,AF,COD,AE,B2,3E,B4,C0, 
DATA AF,02,21,E65,708,22,0C,08, 
DATA 3E,B4,C0,AE,B2,3E,BB,C0, 
DATA 89,82,21,01,0F ,22,B5,60, 
DATA 24,12,22,BA,889,24,1C,22, 
DATA BF,39,24,22,C04,09,21,03, 
DATA 16,22,0C7,89,22,CE,88,22, & 
DATA DD,9,22,E2,08,21,78,81, 
DATA 22,CB,09,25,22,09,80,2£E, 
iea2s0 DATA 57,22,E4,00,.24,22,.0F,00, 
DATA 21,Bi,.1E,22,03,00,24,22, 
DATA Da,20,7E,BB,C0,AE,B2,3E, 
DATA BC,CD,A9,22,3E,C0,32,90, 
DATA 00.21 ,49,70,22,9E ,B0,21, 4 
DATA B7,C7,22,A8,00,3E,8C,C0, 
DATA AE,B2,IE,FE,CD,AF,BZ, 21, 
DATA D9,02,11,95,09,01,50,B2, 
DATA ED,BA,3E,7E,CD,AE,82,BE, 
DATA 1A4,11,3B,83,CD,85, 82, 3E, 
DATA ?7F.CD,AE,82,BE,14,11,89, 
DATA B9,C0,235,88,BE,18,11,3£, 
DATA 29,C0,05.,209,.21,5C,00,56, 
DATA 29,54,50,13,01,23,00,ED, 
DATA B9,11,50,08,21,05,82,81, 
DATA BB,00,E0,E8,11,5C,80,BE, 
DATA BF,C0,21,85,3E,197,C0,#47, 
DATA 82,11,65,08,21,78,03,81, 
a DATA 4B,B0,E0,B90,3E,17,CD,AE, 
DATA 82,11,C4,83,BE,1A,C0,03, 
DATA 808,.3E,1A,CD,AE,B2,i1,45, 
DATA B4,8E,1A,C0D,805,B0,3E,1B, 34 
a DATA Ch.AE,B2,11,89,09,BE,1#A, 
04TA CD,85,08,3E.1C6,00,A7,82, 
DATA 11,89,88,21.C5,04,01.58, 
DATA BG,ED,„BR,3E.1C,CD,AE,B2, 
DATA 11,55, 29,8E,19,00,25,B4, 
DATA C7,BE„21,C3,Ba@,02,BE.22, 
DATA 32,70,809,11,5C,80,C0,85, 
> DATA 99,609,57,53,28,20,208,20, 
DATA 20,29,.45,4F,.40,57,55,90, 
0 DATA 52,47,53,280,28.47 ,54,32, 
Data B1,70,00,11,439,78,21,223, 
DATA 42,ED,.B8,C35.835,3F,11.E3, 


L75&&] 
[L&PFEE] 
EF&CA] 


[7448] 
LEBSAI: 
L7S23E] 
[E#42] 
LABCA] 
tCABCı 
[8474] 
[4598] 
[7484] 
[87C8] 
[8272] 
[B12@] 
CB78CI 
L?CE2] 
[SDFA] 
[DF6&1 
[B474] 
LöBEE] 
E3CE4] 
LAFA2] 
ECESA] 
[C30@1 
:  EF3SEI 
LFE?4] 
CBFaB] 
[A67C1 
E3EA2] 
C55AA] 
EBASCI 
C0??78] 
CBFECI 
CSFSC 
[325A] 
[4758] 
LE#S1E] 
CDDZ&J 
[136@] 
C4DFAI 
[SEC®B] 
EAT2&] 
Li&A2 
ChAFa] 
[21#E] 
cCacr7z1 
' 6608) 
CA4T4] 
[9440] 
[ES&A1 
EFiC4] 
[DeF4] 
[2BE4] 
CASF@] 
LAS2C1 
CFOSE] 
CF25&] 
[assc] 
LE?D&E] 
[D7B&] 
Carb] 
[bCB&1 
[5886] 
[84721 
LACBE] 


chensatz nicht beherrscht, müssen 
Sie an der Adresse 4020 hex »]JMP 
3F00« einsetzen. Inein Wordstar, das 
überhaupt nicht an den CPC ange- 
paßt wurde, müssen Sie an der Stel- 
le 4020 hex »]JMP 2D0% einsetzen. 
Das ist derselbe Befehl, der ur- 
sprünglich an der Adresse 0100 hex 
stand. 

Wenn Sie wollen, daß die neuen 
Druckerfunktionen auch ım Druk- 
ker-Hilfsmenü genannt werden, 
müssen Sie die Datei »WSMSGS. 
OVR« ebenfalls patchen. Die hier zu 
ändernden Bytes stehen im Listing 
7. Beachten Sie, daß »WSMSGS« fast 
25 KByte lang ist und deshalb nach 
Abschluß der Änderung mit »SAVE 
99 WSMSGSOVR« zurückgespei- 
chert werden muß. 

Danach sollten Sie Ihr Wordstar 
wieder einem ausgiebigen Test un- 
terwerfen. 

Wenn Sie Ihr Wordstar für den 
ständigen Einsatz vorbereiten, soll- 








Data 
DATA 
2a DATA 
a DATA 
DATA 
DATA 

Oo DATA 
DATA 
DATA 

® DATA 
DATA 

) DATA 
DATA 

a DATA 
DATA 
DATA 
:0760 DATA 
DATA 
a DATA 
Data 
DATA 
DATA 
DATA 

a DaTä 
DATA 
@ DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

a DATA 
Data 
DATA 
DATA 
DATA 
DATA 

’u DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

D DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Data 
DATA 
DATA 
DATA 
DATA 
DATA 

1 DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

@ DATA 
DATA 
DATA 
DATA 
Data 
DATA 
DATA 

ı DATA 
DATA 
DATA 





78.FE,10,02,3E,78,1A,A7, 1883 
Bi cd 
C3,70,78,FE,1D0,02,73,78,1184 


C2,56,78,21,CF,78,3D,12, 


1A4,47,21,03,78,CA,5#,78, 


F4B 


AF,12,21,07,78,03,90,70, 1833 


13, FE,1E,C2,84,78,14,A7, 
C2,84,79,30,12,21,9,78, 
C3,90,78,3E,C9,12,09,13, 
FE.1F.C2,AC,78,1A,2F,12, 


48 
E78 
Fa 
842 


21,E8,78,A7,CA,5D,78,21, 1256 
DD.79,44,25, 7E,E5,C5,CD, 1293 
C&,78,C1,E1,805,02,9E,78,1213 
29,18, 4F,1A,A7,CA,C7,78,i021 
FE,C9,79,C2,BF,78,E6,1F,1333 
2#,BF,7B,30,C0,C5,78,AF ‚1264 


32,E4,78,4F ,24.01,0@,1i, 
8C,04,19,E9,83,1B,53,08, 
@72,16,52,81,02,18,34,02, 
18.20,82,18,37,02,18,36, 
29,00,00,59,30,56,65,72, 
67, 72,66 ,65,73,73,65,72, 
74.20,20,28,65,6%,6E,2F, 
61,75,73,20,20,20,BE,53, 
30,55,6E ,78,65,72,73,74, 
72,65,69,63,48,2E,20,55, 
69 ,GE,2F ‚61,75,72,280,20, 
42,.30,53,63,48,51,74,74, 
65,6E,73,63,68,72,2E,28, 
65,69,5E ,2F ,61,75,73,28, 
20,20,290,44,12D,44,5F,78, 
7A.61,68,73,653,658,60,61, 


537 
383 
227 
255 
431 
E74 
573 
522 
18 


57,20,20,20,45,49,5E,2F, 3 


61,75,73,28,20,20,0E,41, 


30,53,63,68,6D0,61,60,73, ? 
53,68, 72,69,66,74,20,65, 77 


59,4E,20,20,20,20,20,20, 
4E,30,53,63,68,40,&81,&C, 


73,63,68,72,69,74,20,280, 


51.75, 73,20,20,20,28,20, 
20,20, 20,58, 50,44, 75,72, 
63,68,73,74,72,65,69,63, 
&8,63, GE , 28,63, 69, dE,2F, 
6l er FA 734 70.28, =a,BE,4Arf, 
30,66,65,73, 74,55, 72,28, 
40.,65,65,.72,73,63,68,72, 


549.74,74,20,20,20,20,28, 4 


45,20,47,72,61,70,68,69, 


65, 7A,65,69,65,608,65,6E, E 


20.44.65F,40,67,74,20,28, 
20,20,28,52,30,44,65, 75, 


74 ,2E,20,55,60,6C,51,75, 


74,65,28,28,61,73, 73, 2F, 
45.59, 6E, 28,20, 28,BE,43, 
30,44,72,. 75,535, 60, 78,61. 
75,73,65,20,.20,20,20,20, 
20,28,20,208,20,29,20,28, 
45,5E,58,45,3D,51,4E,64, 
65,72,65,28,47,72,&1,78, 
49,.69,58,70,55,69,63,48, 
&5,6E, 24.45, 4E,54,45 PP 
3D,59,65,69,40,65.20,75, 
55,62,65, 72,64, 72,79,63, 
55,55,bE,28,20,20,BE,5i1, 
30,53,63,68,6F ,65,6E, 72, 


43,58,72,697,665,74,20,55,. 7: 


49,66,20,20,20,20,20,20, 


37,30,53,57,68,&F ,65,4E, ! 


73,63, 40, 72,697, 65, 74,28, 
51,.75,.73,28,29,20,29,28, 
208,20,28,4C6,55,63, 72,73, 
b53,58,72,59,74,74,30,41, 
52,62,72,53,53,68,65,.6E, 
29,C0,85,808,3C,CH,BE,6#, 
11,2F,25,C0D.,85;,88,C7,48, 
49,4C,45,20,4E,4F ,34,28, 
45,4F ,55,4E,44,00,BA,24, 
Ende 


igaa2 'WS-Datei erzeugen, die eine Tabe 


ia 


Drucker2.tst" 


18815 PRINT#7,".PO@" 


igaza PRINT#F„CHR#F (ZI: "Unter WORDSTAR mi 


t dem Drucker NLO481* 


180350 PRINT#F,STA1ING# (37 ,"="] 
iga42 PRINT#? 


1B0520 PRINT#F,TABiZi)"zur Verf’qung steh 


ende 


1204 PRINT#?, TAB{Z1)STRING& (37, "="} 


Graphikzeichen" 


ima7a FRINTEF 
isBEn PRINTET 
iaara PRINTER? 


iBlBG PRINT#F,"Druck Eingabe ! Druck Ein 
gabe ' Druck Eingabe ' Druck Einga 


be |! 


1B118 PRINT#?," 


reist rs 


Druck Eingabe" 


=-— 4 oo - ————H 


igi20 FOR ii=d TO 3i 


18132 PRINT#F „CHR# (5) CHR# (SI CHRE (1 +64 1% 


{SSPACEI"PE*FE"CHRE II HBAN" I 


181430 PRINTWF „CHRS (SI CHRF 11 R+323 "CIGPACE 
'CHRE II +32 "C4BPACEI' "ı 
128158 PRINT#? „CHAS ISICHRE Ii Erd)" KÖSPACE 


+"PE' 


I*PE"CHRF LIFE LASPACEI! * 


12158 


BPACEI! *"ı 


18178 


iaiaB FRINT#? 


1B1P72 NEXT 


18280 ECLOSEDUT 


1@a2ia DATA 


@,luhnlatain” 


Listing 4. Ein Testprogramm 
für die Druckerroutine 


ile aller Graphikzeichen ausgibt 
DPENDOUT 


Er 


An nn nn mn 


13 
i 


IF i%X<>31 THEN PRINT#F,CHR# (SI CHR# 
ii +04" LISPÄACEITPE"CHRF II RI" TE 


IF i*<d THEN READ c#:PRINT#?7,CHR#FI 
181 C&CHRE (18) " CFBPACEI PR" CH" PR"; 


L2B7E]1 
tBEFA] 
ECFEC] 
[B28C] 
[2448] 
CB?F4] 
[EEFA] 
[B&44] 


C83sC9 | 
[AFFE] 


FEAR] 


Lach] | 


[&nC4] 
LE4B4] 
E22D6] 
LFFAZ] 














-L0100,0102 


0100 JMP 
0103 
-D035C,035D 


035C E6 78 .x 
-D0O6B5 ,06B6 


06B5 01 OF .. 
-DO6BA ‚, 06BB 


06BA 01 12 .. 
-DO6BF, 06C0 


06BF 01 . 
O6Ch IC . 
-DO6CA ‚ 06C5 


06C4 01 1D .. 
-D06C9,, 06CC 


06C9 03 1B 738 
-DOßCE , 06D1 


D6CE 03 IB .. 
0600 78 00 «x. 
-D06D3,06D4 


06D3 01 1E .. 
-DO6D8 ,06D9 


06D8 01 IF .. 
-DO6DD, D06EO 


06DD 03 1B 57. 


0O6EO 01 . 
-DOGE2,06E5 


O6E2 03 1B 57 
-L4015,401D 


4015 LXI 
4018 LXI 


401B LXI 
40lE 


-D401E,401F 


4015 


Ol 05% 


B.,009D 
D, 7849 
H,4023 


401E ED BO .. 


-L4020,40A3 


4020 JMP 
4023 LXI 
4026 CPI 
4028 JNZ 
402B LDAX 
402C ANA 
402D UNZ 
#030 LXI 
4033 DCR 
4034 STAX 
4035 .JMP 
4038 CPI 
403A JNZ 
403D LDAX 
403E ANA 
403F LXI 
4042 J2Z 
4045 XKRA 
4046 STAX 
4047 LXI 
404A JMP 
404D INX 
404E CPI 
4050 JNZ 
4053 LDAX 
4054 ANA 
4055 JNZ 
4058 DER 
4059 STAX 
405A LXI 
405D  JMP 
4060 MVI 
4062 STAX 
4063 RET 
4064 INK 
4065 CPI 
4067 JNZ 
406A LDAX 
406B CMA 
406C S5TAX 


36 Son de Ho Sc hr 





3F03 
D,78E3 
Ic 
7835E 


786B 
H., 78CF 


789D 


7873 


H. 78D3 
7859 


H,78D7 
789D 


lE 
T88A 
D 


7886 


H. 78DA 
789D 
A,C0 


IF 
T8AC 
D 


























406D LXI H,78EO0 
4070 ANA A 
4071 J2 789D 
4074 LXI H,73DD 
4077 MOV 
4078 INX 
4079 MOV 
407A PUSH 
407B PUSH 
407C CALL 
407F POP 
4080 POP 
4081 DCR 
4082 JNZ 
4085 RET 
4086 DCX D 
4087 MOV C,A 

D 

A 


= 


Fr 4 


Pe 
N 
je 


09 
wo 
m 


4088 LDAX 
4089 ANA 
408A J2Z 78C7 
408D CPI € 
408F MOV A,c 
4090 JNZ 73BF 
4093 ANI IF 
4095 JNZ 783BF 
4098 DCR A 
4099 CALL 78C6 
#09C XRA A 
409D STA 73EA 
40A0 MOV C,A 
40Al LHLD 0001 
4044 LXI D,DOOcC 
4047 DAD D 
40A8ß PCHL 
4029 
-D40A9,40BF 


40419 03 1B 53 00 03 1B 53 „.$,...8 





10100,0102 
4035c,035d 
d06b5 ,06b6 
d06ba , 06bb 
d06bf ,‚06c0 
406c4,06c5 
406c9,06cc 
d06ce,06dl 
40643,06d4 
40648,06d9 
4d06dd,06e0 
d06e2,06e5 
14015,401d 
d40le,401f 
14020,40a3 
d40a9,40bf 
gD 


Listing 6. Diese Bytes müssen 
in »WS.COM« geändert werden 


Listing 5. Die Druckerroutine im Assembler-Code 


40B0 01 02 1B 54 02 1B 3D 02 1B 37 02 1B 36 00 00 00 .„..T..=..1.:16... 


-G0 


ten Sie noch einmal Ihr Install- 
Programm zur Hand nehmen und 
die Standardvoreinstellungen Ihren 
Wünschen anpassen. 

Beispielsweise kann man im Kapi- 
tel »Terminal-Features« einstellen, 
daß sich Wordstar schon nach dem 
Einschalten in der Hilfsstufe 2 befin- 
det. Man kann auch die Standard- 
ränder und Seitenhöhe selbst be- 
stimmen. Wenn Sie sich die Mühe 
machen, diese Voreinstellungen 
vernünftig zu wählen, ersparen Sie 
sıch am Anfang jedes Textes einen 
Haufen unnötiger Arbeit. 

Wenn Sie wollen, dann können Sie 
auch die Einschaltmeldung (Druk- 
kername + Computername) frei 
wählen, so daß Sıe gleich wissen, 
welche Version Sie vor sich haben. 
Wie wäre es mit einem Wordstar, 
das Sie mit Ihrem Namen begrüßt? 

Beachten Sie bitte, daß manche 
Install-Versionen (nicht die des 
Markt & Technik-Verlages) die Er- 
gänzungen, die Sie ab der Adresse 
3F00hex angehängt haben, löschen. 
Sollte also nach der Verwendung 
des Install-Programms Ihr Drucker 
nicht mehr funktionieren, dann müs- 
sen Sie eben das Programm »NLO 
401COM« noch mal starten. 

Noch ein paar Tips, wie man 
durch geschickte Bedienung das 
Programm beschleunigt. Wenn Sie 


noch ein Anfänger sind, dann haben 
Sie es vielleicht noch gar nicht be- 
merkt. Der langwierige Neuaufbau 
des Bildschirms erfolgt nur, solan- 
ge Wordstar nichts anderes zu tun 
hat. Geben Sie aber vor Ende des 
Bildaufbaus einen neuen Befehl, 
so wird dieser sofort beachtet. Oft 
kommt es vor, daß diese neuen Ein- 
gaben die Vervollständigung des 
Bildschirmaufbaus überflüssig ma- 
chen. In den meisten Fällen ist 
Wordstar so schlau, das zu bemer- 
ken. 

Wenn Sie beispielsweise schnell 
zehn Bildschirmseiten zurückblät- 
tern möchten, dann brauchen Sie 
nicht nach dem ersten »tR« 
Kommando 10 Sekunden zu warten, 
bis der Bildschirm wieder reorgani- 
siert Ist, und dann erst die nächste 
Taste drücken. Sie geben einfach 
zehnmal ganz schnell hintereinan- 
der»tR«ein. Die jetzt angezeigte Sei- 
te ist gleich die richtige. Die Zeiter- 
sparnis ist enorm. 

Wenn Sie beim Schreiben so rich- 
tigin Fahrt sind, macht es gar nichts, 
wenn kurzzeitig in der oberen Bild- 
schirmhälfte nur Unsinn steht. Solan- 
ge der Cursor erscheint, können Sie 
ohne Sorge weitertippen. Sie wer- 
den sehen, daß der Text vervollstän- 
digt wird, sobald Sie eine Denkpau- 
se machen. 
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Dasselbe gilt übrigens für die vie- 
len Hilfs- und sonstigen Menüs: 
Wenn Sie schon wissen, welchen 
Buchstaben die gewünschte Funk- 
tion hat, dann tippen Sie ihn sofort 
ein — vielleicht wird dann das zuge- 
hörige Menü gar nicht erst aufge- 
baut. 

Generell können Sie sich merken: 
Sobald Sie wissen, was Sie als näch- 
stes eingeben wollen, geben Sie so- 
fort ein — gleichgültig, was gerade 
auf dem Bildschirm steht. Solange 
kein Zugriff auf die Disketten erfolgt, 
können Sie sicher sein, daß Ihre Ein- 
gaben schon irgendwo gespeichert 
werden, bis sie zur Ausführung kom- 
men, 

Wenn Sie einen längeren Text ein- 
gegeben haben und schnell ganz an 
den Anfang des Textes springen 
wollen, sollten Sie nicht »!OR« aufru- 
fen, sondern statt dessen »IKS« — al- 
so den Text sichern. Als Folge der 
verwendeten Datenstrukturen er- 
folgt das Zurückblättern so wesent- 
lich schneller und braucht außer- 
dem weniger Diskettenspeicher- 
platz. Gleichzeitig ist Ihr Text gesi- 
chert. 

Viele langdauernden Öperatio- 





u. 
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-DODBS ,DFSA 


0DBE5 3D 56 65 72 12 6F 
0bcC0 12. 74 20 65 69 
0DDbO 53 3D 55 6E 65 12 
üDEO 65 69 2F 73573 % 
öpFo 74 65 3. 68 72 
VEOO 20 20 20 3D 44 
nElo 61l 67 20 65 69 
DEZO 41 3D 63 ED 61 
DE30 69 20 20 20 
DEAO 73 63 68 69 745 
DESO 20 20 3D 44 
DE&D £d 65 BE 65 69 
DE7O 0 3D 65 74 65 
DEBD 59 14: 20 20 
DESD 6B 65 63 68 
DEAD 20 20 3D 44 
DEBO 74 65 20 61 75 
DECO 3D : 72 63 6B 
DEDN 20 20 20 20 20 
DEEO 54 65 65 47 726 
DEFO 8 65 GE 20 4E 54 
üroo 75 65 65 64 72 
oFlO 3D 63 GF 65 
0oF20 69 BE 20 20 20 
oF30 | 73 68 69 66 
OFr40 20 20 : 65 65 


-G60 


Gl BE 7: 8 5 


68 72 


YeVargroass 


ss 73 202 art ein/aus 

65 69 ‚S=Unterstreich. 
3D 53 
69 GE 


ein’aus Beöcha 
ttenschr. ein/au 
D=Doppansch 

ein’aus 
‚Aeöchmalschrift 
3D 53 ein N=5chm 
75 73 alschrit aus 
68 X=Durchstre 


75 73: lag 


TE ichen ein/aus 
65 6 A ‚Gefester Leersc 
3D 47 L 70 hritt E=Grap 
66 h hikzaichen folgt 
2E Rebeut., Uml 
69 aute aäus/ein 
v3 nn einfügen 
5sE “PE=a 
69 ndere Graphiksel 
5A chen ENTER=Zeile 
65 | weberdrucken 
68 ‚OsSchoenschrift 
3D% ein W=&6cho 
15 7: enschrift aus 


| 68 Leerschritt 
ürsoD 3 1 672 12 ı 63 68 u: 20 


=Abbrechen 


Listing 7. Auch die Einschaltmeldung kann geändert werden 





Im Zweifelsfall: 
ren. 

Stört es Sie, daß Sie vor dem Aus- 
drucken eines Textes erst einige 
Fragen beantworten müssen, ob- 
wohl Sie sowieso die Standardein- 
stellungen wählen? Besonders, 
wenn auch noch ein langes Inhalts- 
verzeichnis angezeigt wird, dauert 


einfach ausprobie- 


Sie können aber auch sofort, nach- 
dem Sie den Programmnamen ein- 
gegeben haben, »Esc« drücken. In 
diesem Fall beginnt der Drucker so 
fort mit seiner Arbeit. Wenn Ihre Ta 
statur nicht richtig belegt ist, er 
scheint beim Drücken der Taste 
»Esc« allerdings nur ein kleines »ö« 
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nen können Sie mit»!U« abbrechen. das »ewig«. 


»Hilfe« in Sicht 


Wenn Sie eine Datei verse- 
hentlich gelöscht haben, 
dann ist guter Rat teuer. Mit 
einem Diskettenmonitor ist 
das Problem schnell behoben. 


Kennen Sie das Problem auch? Das Kommando »ERA 
Name.Zusatz« ist schnell eingegeben. Doch das Programm 
wieder zu retten, ist schwierig. Auf der CP/M-Diskette von 
Schneider suchen Sie vergeblich nach einem Programm zur 
Rekonstruktion der versehentlich gelöschten Quelldateien. 
Die BAK-Dateien sind wegen der begrenzten Speicherkapazi- 
tät sicher schon gelöscht. 

»Help« gestattet den direkten Zugriff auf jede Spur der Dis- 
kette. Die Anzeige erfolgt gleichzeitig für 256 Bytes im Hex- 
und ASCII-Dump. Änderungen können sowohl im Hex- alsauch 
im ASCII-Teil vorgenommen werden (Wechsel durch TAB- 
Taste). 

Eine Spur wird jeweils am Stück eingelesen und im RAM zwi- 
schengespeichert. Dadurch erfolgt der Zugriff auf jedes Byte 
einer Spur sehr schnell und übersichtlich. Jede Datei auf der 
Diskette ist damit leicht zu ändern, auch das Betriebssystem 
(zum Beispiel durch Übersetzen der Fehlermeldungen). Die 
Anwendung von Help ist aber nicht ohne Risiko. Benutzen Sie 
deshalb nur Duplikate, um nach eventuellen Fehlern auf die ur- 
sprünglichen Daten zurückgreifen zu können. 
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In diesem Fall können Sie auch »tÄ 
(t [)« drücken. (Helmut Tischer) 


Unsere zirka 3 KByte lange Routine wird im CP/M-Modus mit 
»Help« aufgerufen. Die zu untersuchende Spur wird direkt ei 
gegeben. Mit den Cursortasten kann man innerhalb des Anzei 
gefeldes beliebig hin- und herspringen. Die weitere Tastenbe 
legung befindet sich in der Fußleiste der Maske. Im einzelnen 
sind das: 

Shift mit Cursor nach oben oder unten — Wechsel des An- 
zeigebereiches innerhalb der Spur 

Tab — Wechsel des Cursors in Hex- oder ASCII-Feld (wech- 
selnd) 

Copy — Verlassen der Spur mit Speichern der Änderungen 

Ctrl-C — Verlassen der Spur ohne Speichern der Ände- 
rungen 

Ctri-C (im Feld Spur) — Programmende 


Arbeiten mit Help 


Um eine gelöschte Datei wieder aufzurufen, geht man am 
einfachsten wie folgt vor: | 

1. Help aufrufen 

2. Spur 2 betrachten: 

Im Anzeigefeld erscheint jetzt die Hex- und ASCII- 
Darstellung des 1. Teiles des Directory. Es werden je Anzei- 
gebereich Einträge dargestellt. Gelöschte Files werden im 
Byte, das direkt vor dem Dateinamen steht, mit dem Wert E5 
hex markiert. Ersetzt man diesen durch 00 hex, so ist der 
Löscheintrag rückgängig gemacht. | 

3. Jetzt ist noch das Sichern der geänderten Spur mit’ 
»Copy« erforderlich und das Programm ist gerettet. | 

Mit einer Einschränkung: Die Rückbesserung des Inhalts- 
verzeichnisses der Diskette ist nur erfolgreich, wenn nicht 
schon andere Zugriffe auf die Diskette erfolgt sind. | 

(Heinz-Dieter Lange) 


.. 1/86 Sonderheft Schneider 
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20,20,35,30,0D,2A,20,20, 
20,36,30,0D,2A,20,20,.20, 

37,30,0D,0A,20,20,20,38, 
30,2D,2A.20,20.20,397,30, 
2D,0N,20,20,20,41.30,0D, 
DA,20,20,290,42,38,0D,0A, 
20,20,20,43,30,0D,2A,20, 
20,20,44,30,0D,0A,20,28, 
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20,20,6E,65,75.65,20,53, 
70.75,.72,.20,.28,.6F,68,6£, 
65,208,41,62,60,61,67,65, 
, 29.34,28,18.43,54,52,4C, 
2D,43,18,20,290,20,20,.20, 
20.20.20.20.28.18.20,6D, 

69,74,20.18,20,41,62,60, 
61,67,65,29,3A4,20.18,43, 
4F,50,59,18,24,07,2A,2A, 
24,20,44,69,.73,6B.2E,20, 
45,69,6E,67,61,62,65,2D, 
2F „41,75,73,67,61,62,65, 
65,65,68,60,65,72,20,2A, 

2A.2A,24,2A,3F ,09.E5.C1, 

CD,DF,28,3A,44,09,4F „Ds, 

00,24.4A,87.EB,CD,D1,08, 

44,4D,C3,D7,08,4F,2A,01, 
20.11,.18,08.19.E9,4F,06, 
00,2A,01,00,11,1B,020,19, 
E9.2A,01,00.2E,30,E9,2A, 
01,00,11,1E,00,19,E97,2A, 

21.00.11.21.020.19.E9.2n, 
21,00,11.24,00,19,E9,BE. 
02.2A.01,008,11,27.00,19, 
E9,CD,75, 
4F.D5.CD.21,89,D1,13,C3, 


E1,C1,C09,2A,01,00,2E,09, 
Er» 24.01.00.2E.0C.E7.00, 

‚20,20,009.00,00.00,00,. 
20: 20.20,00.00.00.20,00, 
20.,00,00.00.00.20.00,0R. 
 20.20,.00,00,00.00,.20,00, 
 20.,00,00.00.00.00,00,17, 
E?.2A.01,00.2E.30.E97.2A, 
21,08,11,1E,08,19,E9,.2A, 
21.00.11.21.00.19.E9.2A, 
01,00,11,24,00,19,E97,0E, 
02.24,01.00,11.27.00,19, 
E9.CD,7S.BB, 
21,21,01,01,01 


Ende 


ınchlubmarke ım Eb.FUF 
;FPreil nach oben 

ıPfeil nach unken 

‚Shift FPreil nach oben 
‚shift Freil nach unben 


iMinkel lırnks ungen 
iMinkel links oben 

‚Winkel rechts unten 
ıkinkel rechts oben 


MASPUR 


._— Betr iebssusten-Vektören —— 
SH 


Elälj BEE” 


SETCRS 


+ GETCRS EUU SBETEH 


A5Eu 


FG LussiH 


Listing 2. Freunde des 8080-Assembler-Codes geben das | 


Programm direkt ein (Teil 1) 


1/86 Bonderhet Schneider Sr 


are, ne ji Inga ne 


252 
233 
278 
272 
245 


266 
267 
268 
672 
6408 
747 
615 
Sa 
338 
441 
735 
511 
255 
517 
617 
487 
756 
393 
287 
256 
608 
740 
785 
464 
296 
333 
590 
523 
399 
547 
728 
743 
704 
656 
656 
782 
685 
384 
112 
645 
348 
351 
326 
126 


BB, 1A,FE,24,C8,1258 


962 


ri; 28.C5, ES, CD,1B,09, E1,1152 
LC1.6C7,0C5,E5,4F,CD,21,89,1146 


717 
ig 


d 

1) 

1) 
25 
645 
>48 
351 
326 
125 


1A,FE,24.C8, 1258 


8 


[2BE2] 
[31E8] 
[SEBC] 
[L7AF&6]I 
[1&BC] 
[2D85] 
[24F6] 
LSCcFC] 
[CEFB] 
[7B48] 
[2028] 
[5152] 
[444E] 
[21447 
[320C] 
[BiF2] 
[4122] 
[CAF40] 
[82AC) 
[SSEC] 
[5228] 
[AASA] 
[4B&B] 
[?4F6] 
ESSEE] 
[3EAB] 
[9722] 
[FC&2] 
[C771E] 
[A130] 
[B7EB] 
[&2E8] 
[431E] 
[8528] 
[B55A] 
ESESE] 
[7174] 
[B144] 
[3448] 
[SDAs] 
L397Cö5] 
[85C4] 
[BBSAB] 
[FA32] 
L7EDE] 
[7ABA] 
[443#A] 
[180A] 
[7588] 
[C5D8] 
[4850] 
[12B8] 
[7418] 
[4F06] 


[8784] - 


[6&48C] 
[24556] 
[3558] 
[3E28] 
[2D2A] 
[BOSSE] 
[EAB&] 
[SES36] 
[4885] 
[7516] 
[DEDE] 
L405E) 
[LAFSA] 
[2442] 


zul A 
 - 


= 











i——-) Bıldachirm loachen 
Mi Cs BuH 
CALL LEHULT 


je=m===) Fenster fur Sektoreinblendung setzen 
L#L H:EdeH 
CALL SETCKRS ;oben Links 
PEL + LKSOBH 
EALL ECHT vESke links oben setren 


MYL B:58 684 horizontalen Strich ausgeben 
Er HURSTR 


my Cs REUBEH 
CALL DiklUT Ecke rechts oben setzen 


L#1 H:Se5H 
B-18 18 Zeilen senämechten Strich ausgeben (links) 
YRISTR 


VRTSTR wie wor Krechts) 


H: 3345H 
8,17 ıTIrernline zwischen HE# und ASCLl 
YRTSTE 


H:6154 
SETCHS Ecke unten links 
EC LKSUHT 


=) 
HIRBETE untere Linie ziehen 


FIWL C,REUHNT 
SALL bEHAT (Ecke unten rechts 


4} Untertei lungsstr ich 
LAl H, TadH 
EALL SETCRS 
MW1 E:68 
CALL HURSTR 


i>—-—} Kofizeile (berachrift > 
L#l b,TKTl 
LKl KH, ielH 
CHLL FRISIR 


ju————), obere Leiste tur Sektordarstellung ausgeben 
L#l b,TATZ 
LAL H: =E3H 
CALL FRISTRE 


im) seitliche Leiste 
LEL 6,1413 
LFI a Na 
CALL FRTSIE 


im——--) Tertzeile unten 
L#L 1. 158714 
L#l H:2915H 
HL FFTSTE 


i-———--} SystenWerte zum Laufwerk höolen 

H 

SELDFY Laufwerk auswinhlen 
DSKOFH 

E+M 

H 

b,M 


TRSTAB ‚Ad. Übersetzunsstabelle ablegen 


bio 
] sie. Fos. ım BFH 


En ıHL = Anfans Parameter liste 
RECPT ıZahl der Records je Spur (je 128 Butes) 


ı 12 


SEIFT 125 Bite-Einheiten 


a] 
SHLL 
Mo 
INS 
W 
SHLo 
LAI 
LHLL 
bAL 
PRn? 
ine 
Peu 
ICH 
Put 
STA 
AH 
FR 
Fin 


= je) Spur ira 


EIHSPR:: LAI H-BAL?H 
CALL SETCKRS 
HVI B;3 ‚2 Stellen 
Ei EIHNGE 
Cri 3 


JE RESET 


CALL 
EFI 
Bra 
CPI 
JHL, 
STIA 


CALL 
Ar 
P.SEC: 8A SEKTOR 
CALL PRTSEL 
ö Er —— Editor -— #44 
STEING: RA A zer lermert 
SALL SETZL +Basıs-kerte für Zeilenanfars setzen 
IHLU PUFAUS »Startadr. ım Sektorbereich nach FUFRDR 


FLGCHR SHLE FLIF AUCH 
-——- Einwabshuiter sit den akt. Herten iHexi+z) ım BS versehen -—— 
FLGCH2 u A-b ‚Bindrwert aus Textrulfer 
CALL CHYHEHHE sumaandeln in Kekadez,. ASQll-Zeichen 
LHl HE. PUF 
[ua 1r Be ‚1.Bste der ES-Anzeise in den Eins.Puffer 
IMs 
| M.E ı2, Byte in ER, Pr 
bCH H iHL. steht auf EG.PUF-Anfans 


SO LH 
FF.UP 
LIPZL 1 Zeile aufwarts 
PF.D4H 
DAHZL 1 Zeile abwarts 
SPF „UP 
SEC. ZR il Sektor zuriick 
il Sektor wor 
sEIRL-CT 
ineus Spur (ohne Ablage} 


‚Sprung zum ASCLl-Editar 
1 Pos. nach Linke 


ıl Fos. nach rechts 
-—- Zeichenannahme (mur 0-3,.A-F) -——-_ 


ern BEE 


En 
ri A 
ARSTE ‚Fehler 


Je 

Ei 

JH, TASTE ‚Fehler 
un 


) MA ‚Abi23e ı06 Fuiter 
CALL BSRls 
IHR rl YES. FÜUF-Ade. #1 
Je InSTtE 
—- die Eingabe fur 1 Zeichen ım Textpuffer jat erledigt — 
CALL CHWE LH 
LHLEb PLUFADR 

I MA :binares Zeichen ın Texteufter ablesen 
IH& H ıPufferadresse erhöhen 
.,. FUF ADR: 

bu ri 


:Jeichen retten 

—- ee ran auf der ASClI-Seite —- 

CALL GETCHS 
H ‚sack, QDursor-Fos. rebken 
LHEASt 
A 
SETCKS ıilursor auf ASCll-Seite setzen 
A: 8) " Zeichen halten 

Anl ’FH ‚Bit ?” ausblenden 

{Fl Ph It BuHT 

AuSu3 nein 

FW At Punkt ausgeben 

CALL COMUT 

Fr A 

Ink H 

5 CRSASE aut machster Örichen ım ASCil-Bersich 
H 

ie ine Cursor wieder in HE#-Bereich 

FW 

r LEHLNNT iLeerraun ubersPfrinder 
ZEHE 

El 15 iger lenende? 

HZ AUScH imein 

—- Folgezeile — 

LER ZEILE 

cFl 13 ıletıte Zeile? 

Tu RISIRE ıAussangsreile Edıtar 

ALL SETZL neue Zeile einmichten 

„IR AUSG 

IHR Ai 

SA ZEHE ;Zeichenzihler+i 

LALD FÜFACK 

HF FLELH2 ınachate Position 


--- 1 Position nach rechts -—— 
MY are 
„JeUF AllsGz 


-—- 1] logische < 1) Posıtion nach links —- 
ba QUTFLG 

OR A 

„HZ SPLI2 +4. Pos. 1m Heu-borkelfeld 
--- 1 Pos. zuruck- — 

mL A:B 

CALL ESAUS 

JAHR TIASTE-I sıncl. Einsaberufferade. 1 


LoA ZZRE igeichenzahler 

üRf A sat 

JE T.BELL ‚Zeilenanfans 

DER 2] 

STA ZZAE ıgeichenzihler -1 

-—- | Grube ih Hesfeld zurück ——- 

LHLE 

Luiri5 ‚M ‚letztes Zeichen noch einmal 
CchLL 4% und auf de BE aussehen 


L#Al Er) 
CALL PRTSIR+3 58 nach links 


LALE CHRSRSt 

LER A 

SHLL CRaRSL, 

DER H ıl Stelle zurück 
FLECHR | 


1 Zeile aufuurts —- 
SEILE 


A 
l.BELL ;öberste Zeile 


A 
ZEILE = 


GUTFLG 

A ward. Pos. ım Hen-Feld? 
UFZLE aa 
A,8 

ESAUS ikonrektur der Position 


ehe 
As 
b.-16 ;Pufferade. -l& Zeichen 
D ' 
i FETHE# saltes Her, Zeichen noch eirmal ausgeben 
LEI b.ESPs+3 
CALL FRISTR+2 :Z Aussabenpos. wieder zurück 
er ii N a 1 Zeile höher setzen -— 
rl 
COHUUT ;Cursor 1 Zeile haher 
CRSHER ıZeils für Hex-lursor -1 
ERSASC 


A 
CRSASE Zeile Mur Aslil-Curser -1 
AUSGS 
i Zeile abwirts — 
ZEILE 


13 
T.BELL ‚letzte Zeile 


A 
ZEILE v#i 


SUTFLG 
Ä ‚word. Fos. im Hex-Feldt 
DHHZLZ ;48 


ıkarrektur der Position 


ıPutferadr. +16 Zeichen 


I hokteie a Zeichen noch sie äusseren 


Esfä* 
FRTSTR+3 ı2 Hu=ssaber?os. wieder zurück 
yes TEE LGEIOEN 1 Zeile Eisler setzen — 
COHUUT ılursor 1 Zeile tiefer 
CHSHEN 


A 
5IA CHSHEK »Zeile für Hew-Lursor + 


Fr 
* 
m 


Sing 





Er FRE Listing 2. Freunde des B080-Assembler-Codes geben das Programm direkt ein (Teil »| 





3 


Sa 
71: STEINZ2: CALL 
Al 


E 
A,EDbi: 


EALL 
ATASTE 
cr 


A 
CRSASC ;Zeile für ASCii-Cursor + 
AUSG 


.-._——— a 


RucksPpruns in Home-Position des Hex-Feldes 
O9 + BIEIG 
un  ASCHT - Editor mm 


CHLL GETCRS 

SHLD CRSHEX Jakt. Gursor-Pos, ermikbeln 
LbA QUTFLE 

In 2] A ‚Pos. im Hex-Feld linksbundist 
„JHZ A.Eb1 Mer 

-——- Position I Stelle zurücksetzen -— 

MYı 5 F-] 

SALL h ‚1 Stelle nach links 

LHLE 

DEF 

SHLO 


;Cursor im ASCIl-Feld setzen 


‚ı Zeile aufwarts 
1 Zeile abwärts 
‚l Sektor zurück 
‚il Sektor wor 


‚ETRL-GT 
ıngus Seur Cobme Ablage) 


‚1 Pos. nach lırka 


‚1 Pos. nach rechts 
ne dar ie CERH - FFEH) — 


CP1 
ATASTE 
cpi SH 
ÄTASTE 


coradı 

PUFADR 

fl. ‚Zeichen in Sektor schreiben 
H  adeier +1 

PUFRDR 


bu ‚Zeichen retten fur FRTHEA 
Aus@abe des Hexwertes -— 


H i 


SETCRS 
HA,D Zeichen 
PRTHEX 


H 
-—- Zrilerwechsel]? —- 
LbA ZZRE 
CPI 15 
A.Eb2 nein 
-— nee eile CEEendet) ——- 
L ZEILE 
CPI 
ae 


jagzagg 535 


speRgE 


iES-Ende = Ruckseruns ın Home-Pos. Hex-Feld 


ine Grundwerte fur Folgezeile und 
Cursor wieder auf AsSCli-Seite setzen 


ı2#ichenzihler +1 


ıFolgerfos. Hex-Feid 


CRSFSE; 
ATASTE-23 Schleife 


-——- Wechsel ins Hes-Feld (Einsabeı TAB) —— 
UHLO CRSHEH 
CALL SETCKS 
„Jr ALSGS 


——- | Zeichen nach rechts — 
Wil EI De 
: COMILF 

Pur AbH 


H 
URSHEN 
A.Eb3 


— 1 Zeichen nach links —- 
LbA ZZRE 

urri Al ‚ger lenanfang?r 
Je ATBELL ‚32 

DER A 
sTA ZIRE 
mi As8 
CALL  CUHOUT »CRrM-Pos. -1 


‚Zerlenzähler -1 


TITLE a das Uri lity-Programm HELP. COM 
T E73 en 


SUBTIL | 


18: STRYRT 
ii: STEHOR 
iz 

131 43 

id: ı 


Bd: ı 
23' WR.LP: 


11.08.1987 —— 


EXTRN SETCRS 
EXTRN  EINSFR 


Ei BOH 
Eu ‚Br 
Eu ICH 
Eu 95H 
Ei SH 


ıEndenmarke im Puffer 
ıserkrechter Strich 
horizontaler Strich 


Si Bengaee m 


t Spur ablesen (mit evtl. Änderungen) 


;Pufferade. 
CALL 
CALL HRITE 
FHLR 
,RECET 
SPRRET sevtl. neue Spur eingeben 


srl! 
Se 
573: 
“TEE 
Er] 


‚Pafjerade. -i 


ıHew-fos,. I Feld zuruck 


‚oberste Zeile 


PLF ACF 
b:-16 
8) 
A:ll 
COHOLUT iCurasr 1 Zeile hoch 
CRSHEX 
ri 
CRSHEH vZeıle für Hex-Fos. -1 
CRSASt 
L szeile 1 
A.Eb4 
i Zeile akwirts — 
ZEILE 
15 
ATBELL ıiunterste Zeile 
A 
ZEILE 


FUFADR 
b,16 
b 


ıCurasr I Zeile tiefer 


‚Zeile für Hex-Pos. *l 


izle + 


m. .-nnm|nnnn bechgel des Sektors - 
1 Sektor innerhalb der Spur zurlck —- 
SEKTOR 


A il. Sektor? 
ee i4E 


P.SEC 
BELL 
TASTE 
i Sektor innerhalb der Spur wor —- 
SEKTOR 


A i#+i 

H.SECPT 

N: letzter Sektor? 
T.BELL 

P,SEC 


Sektorwechsel aus dem Asllli-Feld heraus — 
SEKTOR 4 Sektor zurück 

A ıl. Sektor? 

ATBELL ısa 


| 


RNäg] SNSEES| SBransE 


& 


‚Cursor ins Hex-feld 


il Sektor wor 
+1 


‚letzter Sektor? 


FWT 
CALL 
sp 
Fi 
„ME SOHOLIT 


=] 2:8, 5 Aussaberositionen zurück 
EHD 


Listing 2. Freunde des 8080-Assembler-Codes geben das 
Programm direkt ein (Teil 1) (Schluß) | 


Schleife 


Fussabe Bildschirm im Hexafeld (mit DUTFLG) 


CALL COHGUT 

LbA ÖUTFLG 

CHA 

sTA GNFLG 

# Fi 

FET ‚Abfrage im Hauptprogramm 


numerisches Eindabefeld 


L*1 H: EG. PUF 
Ma C.B 
CALL COMNIH 
CPI 3 

RZ 

ErI OLRT 
Je 


[=] 
CPI BH ıEHTER? 


ic zum WVersleich mit Max. -bert füllen 


aan 


: 








Jeder kann programmieren 
Computersprache für Eltern und Kinder 
DANIEL WATT 


LOGO ...Ergebnis der Erforschung menschlicher 

Intelligenz 

Entwickelt von Seymour Papert, Pädagoge und Mathematik- 

professor. 

Erste Computersprache, die bewußt Strategien menschlichen 

Denkens dient - und in ihrer Logik der Realität gerecht wird, 

LOGO ersetzt BASIC, sagen Pädagogen und Mathematiker. 

LOGO kommt dem übergreifenden, assoziativen Denken En RR | 
entgegen. BASIC dagegen ist ein Setzkasten von Logik-Buch- ” % “ 
staben. 


DANIEL WATT...hat im Team von Seymour Papert “Buch des Jahres 1983” 
gearbeitet und ein Buch geschrieben, das voller Bilder seine in den USA 
Erlebnisse mit Kindern am Computer wiedergibt. Ein hochwer- 

tiges Textbuch für LOGO-Kurse. Ein Buch für Lehrer, die nach 

einem bereits von Schulbehörden empfohlenen LOGO-Kurs- 


buch suchen. er 


Ein Buch für APPLE IL, C-64, IBM PC, ATARI bis 520 ST., TI-99 und Schneider CPCs. te-wi Verlag GmbH 
384 Seiten, A4, DM 59,- Theo-Prosel-Weg 1 
8000 München 40 | 


Ein Buch für Kinder und ihre Lehrer — ein kindgemäßes Buch für die erste Be- 
gegnung mit Computern, ihren Eigenwilligkeiten, und ihren unerschöpflichen 
Möglichkeiten. Ein Buch zu unserer Gegenwart und zur Zukunft unserer Kinder. 
„Computer für Kinder” richtet sich an Kinder im Älter von 8 bis 13 Jahren, für 
P deren Interesse an Computern keines der unzähligen Computer-Bücher ge 
ee | schrieben wurde. 
ng er „Computer für Kinder” ist ganz auf Kinder eingestellt und be- 
PUTER FÜR Ki INDE R | raisc sich unterhaltsam und leicht verständlich mit folgenden 
hemen: 


Wie arbeiten Computer 

Wie funktioniert mein Computer 

Wie programmiert man mit einfachen Flußdiagrammen 
Wie kann ich BASIC leicht verstehen 
Programme aufbauen mit Befehlen 
Farbige Graphiken entwerfen 
Erklärung von Computer-Begriffen 


Sally Greenwood Larson war Kindergärtnerin, ehe sie 
selbst Computern begegnete und zwischen den Welten 
von Kindern und Computern zu vermitteln begann. 


Computer für Kinder, A4 quer, Fadenheftung, 
über 100 Seiten, je Ausgabe DM 29,80 
vorliegend für: VC 20, C 64, Apple Il, Atari 


1 
—  — 
a 


u Ei 


im 4416/2 


DM 29,80 DM 199.- 





i IHM 
EINGBE ' CALL 
Je 


FH 
BSFC ıDEL 
hi 
EIHLF 233 
BE Zahler -1 

EIHGEIL 

RN a = Feildlange überschritten ——- 

Ar ıBELL 

EIHGEZ 

Ale, Ablage im Puffer 


COroLT 
EIHLP Schleife 


J 
EINBET: Mwi — M.EEZ 
RET 


[) 
4 


ıB=CT wenn ja = Feldanfan® 


1 Sektor 1256 Butesı) auf dem Bildschirm Anzeigen 


PRTSEC: ı LAl HE 5H 
SHLo E 


4 


PASLI : 


Prsce: 


f} 
i 


ECRSHEN 
ALL Bern ıHose-Pos,. im Anzeisebereich 


sTA ZZHE sZeilenzahler 
H:FÜFFER 
SEKTOR 
5:A 
fi-H 


B 

H.f iHL = I. Fos,. des aussewahlten Sektors im Puffer 
FURADS 

FUFAbCR sakt. Zeiger vorbelesen 


A 
iZahler fur Zeilenausdabe 


iAnfanssadr, des ASCII-Fuffers 


‚Zeichen in B 


igeichen im Relll-Puffer ablesen 


As a 


iZeichenzähler #+| 
er 


PSEcLP ‚Schleife 


-- AScli-Zeichen ausseben — 

MYI A,3 

CALL 

WI A:3 

LALL COKIMIT 

EC aller noch i6 als Zeichenzähler) 
H:RScPUF 


CHI 
ic A«M 
AHi FH 
Eri in 
MW Artu! 
CALL LOHCT 
IHM H 

L r 

i& Zeilen eriediatT — 

ZZPE 


15 


‚Bit 7 ausblenden 


ıersatrreichen 


ZZRE 
L 'Folsezreile Cursor 
CRSHEN 
SEICHS 
FSCLPi 


1 Sur lesen 


I RDSTRCHH CAEL. " BELTRK akt, Spur aussählen 
KR A 


SA RECORE 
Lx1 H.PUFFER 
SHLD 


;SPur Gelesen 


Li 


AbR 
Fo.LP Schleife 


EL ae m. BEE m a a En a a u 


Umrechnung echnung der Tumer schen Eingaben 


Hl H.EG.PUF 
My 


4 
3 Wotejesyzh 


4 
4 


CHEN LI 


> CHYNIB: 


EREZ ikeine Einsabet 


H 
AsM 
EEZ 


„HZ HE#Z 
i-stellige Eingabe 
DER H 

[3 AM 

AHi wiFH 


REIT 
#=-stsllise Eingabe 
sFr 


bu 
H 

A.M 
SrH 


A 
B;A 
A 


aBsssEE 22082 


ze-- 


hexadez. Zeichen im EG.PÜF in Bimarzeichen wandeln 
ehe 

CHWEH ‚2. Zeichen 

So ımetteri 


1" 
CHE 1. Zeichen 
2] ;C-Bit loschen 


ilnhalt in 1.Hibble schieben 
ılnhalt won B verknüpfen 
‚An enthält jetzt Binärzahl 


398 UNTERE 


ızırfer 


= [ [Sn .——_— u onmolooeotj[i onen 


in Memaderimaler Fors in DE bereitstellen 


RET 


Al 
cri 
Ab 
RET 
AL 
BET 


| oo a nn 


Binärzeichen in hexadszinaien Form ausgeben 


Ant ansswerte einer Zeile setzen 

ZEILE 
5 auf Feildzeile 
‚fur ASCll-Qursor 
‚für HEK-Lursor 


ıSPalte E üHen-Feld) - DE' Hea-lursor-Posikion 
‚1. Spalte im AScli=sFeld - HLi wie vor CASCLL> 


;SPaltenzahler auf 8 
QUTFLG ıPrinteos,. linke im Her-Dorrelfeld 
CRSAS: 
ERSHEH 
SETERE 


;._ nano ao oc mm mu mm m — mm mu m mm nn 


Löschen des Zstellisen Einrgaberfeldes 


SPRRET:* LAI H.WAl’H 


L 
# 


LSCHF 
EIHSPR 
SETCKS 
ee f 
GEHALT 
0: [1 F 
DEHOL 


-—--—- Maskenerstel lung oo 
harzizontalen Strich aus@eben 


HORSTR:ı Wi A. STEHOR 


CALL COHOLT 
DCR B 
„HZ HORSTR 
RET 


vertikalen Strich ausgeben 


H 

SETCLRS 

H 

A,SIEWRT 

COHCHLIT 

- nächste Zeile 














ei 6123436 7EIRBLDEFS" - 
"aa .CH.LF: 18° VER. 2’ cE-LFr 


Sa" „CH+LF.* 68 „CR: 79 ‚CH4LF4" 


A’ s+CRsLF + * Bd’ CR. LF +’ GB" .CRsLF,' 


Fa’ 
LH; "Spur! '.„18H: Abbruch! CTRL=C} 
jeue Spur Lohne Ablage. 


bE ’ £’., 18h." mie "18H: Ablage ' ‚18H. COPY’ 
be 7.’ E81 Disk, Einsaber-Austgaberehler 1:8" 





--r- [PM - Schnittstellen —- 
Sektor ausuahler 
-t: LHÄLE FLIF AL 
PLSH H 
FÜr [= 
CcALL SETEHF 
LE FRECLED 
MC CA 
MYi =] 
LHLb TESTAB 
ICH uersetzungstabelle 
CALL SCTRAH 
-- HL = Fhöos. Sektornummer —- 
le") E.H 


Pi CL 

MP SEISEL 

--—- Diskettenroukinen —- 

[ul G+H ıLaufwerksmunmer ın © 


LHLE 
LM 


BE = SPurnummer 


:SE1 IRG 


8.858 
BE‘, 
30 ‚CR,LF,' 


’Wechsel HEX <-> HSCli-Cursor! *. 18H,’ Tre’ BH-ERLLF 
# ‚18H "CIRL-C 


88’ .CR,LF;’ 
bi’ ‚CH;:LF,+’ 


‚Sektor wa = zurueck | : 18H. "Shift Pfeil’. l8H-CH:LF 


: 1BH 


‚LEH.'W 





Mwi L.+ KH 
PCHL 


—- Datenfelder 
1E ıASclI-Purffer 
‚Zeiger ım AScllFurfter 


i = wie ar <Ascll=-Feid} 


r akt. Leiser im Textpufter 
OUTFLG:: DS ‚FPrintPos,. im He=borpelfeid 
ZEILE : 
SPUR 
RECORD 5 | 128 Buter 
, 1 5 2 Bates 
ZZRE 3 ‚zeilenzuhler (max. 163 


Antangsade, des DFH 
‚Anzahl der Records a Sur 
‚ubersetzunsstabelle 
‚Anzahl der Sektoren ve Spur 


Saba bb e 
num in, dh 0% 0 Oo LT N 
Soncde a Pi a al bi 


Eee 


‚Startadr. tür Textpuffer 


& 


ıHL-Hert dee Qursorfosition (Hes-feld) 


Ant andere im Textrufter rum seweil. 





Sertor 


Drucken ohne 
Platzprobleme 


Speicherplatz ist rar beim 
X‘, | Schneider-Diskettenlaufwerk. 
Da Verkürzen Sie doch einfach 
die Systemroutinen. 









Listing 3. Die Unterprogramme von »Help« (Schluß) 


Besitzer des Schneider-Diskettenlaufwerks sind ständig auf 
der Suche nach ein paar zusätzlichen KByte Kapazität. 
Schließlich sind 180 KByte schnell verbraucht. Dateien, die 
nicht unbedingt gebraucht werden, sind deshalb schnell ge- 
löscht. Zu diesen Dateien gehört das Dienstprogramm »PIP«, 
dessen Nutzen sich bei den meisten auf das Kommando »PIP 
PRN:=Dateiname.Ext« beschränkt. 

Mit LPRINT Dateiname.Ext« haben Sie unter CP/M 2.2 ein ei- 
genständiges Programm, mit dem Quelldateien entsprechend 
den besonderen Vereinbarungen, die für »PIP PRN« gelten, 
ausgedruckt werden können. Der Platzbedarf auf der Diskette 
beträgt aber nur 1 KByte. Angaben über den Assembler finden 
Sie bei dem Programm »Help« (Seite 101). (H.-D. Lange) 





12 ss 
















































11,44, 22, c3, 1E,B1,AF, 32, 5358 


- 


ba a 1, ng o 
u -- 


[PFCCI 
28 '’#* (c) Heinz-Dieter Lange * E[FDBB] 
3sQ '’# Kamper Weo 98, 2210 Itzehoe # L[BS5Eö] 
AD Er 7° [EFDD] 
sg "Basic-Lader fuer die Datei 'LPRINT.C 
DOM’ [EF44] 
&8 OFPENOUT"LPRINT.COM":zeile=-1B08088 [32Bö] 
78 pruef=® L192C] 
Ba FOR ji=i TO i+t7:READ d$: IF d$="Ende" T 
HEN GOTO 1i1B ELSE d=VALt"&"+df) : PRINT 
#7 ,CHR& (d) ; :pruef=pruef+d: NEXT [B4E2] 
8 READ p:IF pruef<>p THEN GOTO 148 [4ZBE] 
180 zeile=szeile+iß:GOTO 78 L7TE4C] 
118 PRINT"Alles 0O.K. [D7’DE] 
128 CLOSEDUT [aCc42] 
138 END [B4156]1 
148 FRINT"FPruefsummenfehler in Zeile"zei 
le [?A78] 
158 CLOSEOUT [1948] 
158 END [CEFiC] 
178 DATA 21,808.0809,39,22,57,802,31, 2&2 [71852] 
188 DATA 81,82,AF,32,7C,88,11,5C, 587 [8C88] 
198 DATA BQ,BE,BF,CD,B5,20,FE.„FF, 748 [F&ABA] 
288 DATA C2,25,81,11,29,02,CD,24, 534 [&4BC4] 
218 DATA 92,2A,57,82,F9,C9,11,81, 729 [CBiFB@] 
228 DATA 82,D5,BE,1A,CD,25,88,11, 482 [CBEFB]I 
238 DATA 5C,28,BE,„14,CD,285 ‚BB,Ei, Sal CB?PFE]I 
248 DATA B7,C2, 4E, 01,81,808,00,87, 594 [1iCD8B] 
258 DATA EB,SE, ‚SF, =D, ‚BA, ‚D2, ‚29, ‚ei, 955 [BEFC]I 
[BYEE] 





278 DATA 5A.82,32,57,82,21,8B0,802, 3974 


[L?779E] 


288 DATA AF,32,60,02,23,7E,FE,1A, 764 [CB4E] 
298 DATA CA,21,801,2B,E5,2A,59,82, 641 [52123 
30® DATA 23,22.59,02,CD,CD,01,21, 684 [92E4] 
312 DATA 5B.02.04.05,7E,CD,14,02, 457 LEBF8] 
328 DATA 23,05,C02,74,01,3E,3A,CD, 676 [L9F2B] 
33@ DATA 14,02,3E,2@,CD,14,82,E1, 568 [C6CF@] 
348 DATA GE,®1,23,7E,FE,89,CA,B3, 828 [CA1SE] 
35@ DATA 81.CD,14,02,FE,0A,C2,8A, 824 [4052] 
368 DATA 81,34,60,02,30,32,40,802, 365 LA9A2I 
378 DATA FE,49,C2,5C,81,84,88,3E,. 4Bi CDA2C]I 
380 DATA QA,CD,14,02,05,C2,A9,01, 606 CDIBAI 
390 DATA C3.58.01.3E,28,B9.D2,BE, 939 [266E 1 
408 DATA 01,C6,08,C3,B5,01,3C,F5, 889 CAA3B] 
410 DATA 3E.20,CD,14.02,F1.B9.C2, 941 [C6E38] 
428 DATA BF,B1,C3,8A,01,24,59,02, 659 [DO29) 
438 DATA 11,5B.02,01,F0,D8,CD,28, 772 [BBOCI 
440 DATA 02,81,18,FC,CD,28,@2,01, 487 [LEEE8] 
458 DATA 9C.FF.CD,28,02,01,F6,FF,1128 CBSA2] 
4450 DATA CD,20,02,7D,EE,38,12,21, 669 [SE28] 
478 DATA 5B.82,3E.30,06,04,BE,CO, 595 [C620] 
4808 DATA 36,290,23,85,C02,F6,01,C9, 768 LISFCI 
499 DATA 3E.30,89.30.DA,82,.02,F5, 646 [022A] 
598 DATA A7,7D,91,6F,7C,98,67,F1,1168 [318E] 
518 DATA 3D,12,13,09,F5,05,D5,E5,1183 LFB7A] 
528 DATA 5F,@E,@5,CD.05,20,E1,D1, 758 [F342] 
530 DATA C1,.F1,00,C09,0E.89,03,05, 878 [E448] 
548 DATA 00,0D,0A,07,44,61,74,65, 412 CD2B6] 


BR ADPYME 10' 
€ ONE BUTER! Ru 4 h 




















DATA 
DATA 
DATA 


DB DATA 


720 
738 
740 
758 
768 
770 
780 
798 
820 
818 
820 
838 


Listing 1. Der Basic-Lader für — 


SETOMRA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Aus 
LFR 


Es 
Eu 


69,20,6E,69,63,68,74,20, 
76,6F,72,68,61,6E,64,65, 
&E.0D,8A.24,00,04,07,44, 
61,74,65,69,20,7A,75,20, 
&C0.61,6E,67,0D0,0A.,24,00, 
20,00.00.00,00,00,00,00, 
20.20.00,00,20.00,00,00, 
20,00.00,20,00,00,20,20, 
20.20 .20.20.20,a0,0n,@n, 
20. 00.00,20,a0.00,a0.an, 
20.20,297,3C,DA,02,02,F5, 
A7,7D,91,6F,7C,98,67, Fl, 
3D,12,13,C9,F5,C05,D5,E5,1 
5F.BE.05.CD,05,0@,E1,D1, 
C1.F1.2C.C9.0E.09.C3,05, 
20.0D.0A,07,44,61,74,65, 
69.20.6E.69,63,68,74,28, 
76,6F,72,68,61,6E,64.65, 
&£E.2D.0A.24,0D,24,07,44, 
61,74,65,69,28,.7N,75,28, 
66 ,61,6E.657.00,0A,24,.00, 
20,2002,00,00,00,00,00,00, 
20.00.00,00 ‚20.00,00,00, 
00, 20,00, 20,20,00,00,00 
20.00,20.00,00,20,00,00, 
20,20,00,00,20,00,00,00, 
®21.21.01.01,01,01,01,01, 
21,0 '01.01.01.01,01,01,01, 


Sıbe einer ASCII-batei auf dem Drucken 
INT. MAC -— 95,09, 1 


ce bs KenumDieken Lanse. Itzehoe ' 
im Ausust 1985 ' 


mn nn m un u nn m m m m m m m mn 


nn 


EBU 


Ei 


ıHiehkbute für Textapeicherende 


Eau 
Ewu 
EOU 
Ei 


: „COMMENT 
Das Prosramm LPRIHT ist auf Drucker absestimat. für die keine besondere 
ESC-Seqauenz für den Seitenvorschub vorhanden ist (z.B. Seikosha GP-idM), 
Durch Festlegung won ZWMCHSL + ZWRSCH kann die Zahl der je Seite zu drucke 


Eu 


CABDA] 
CDP1CI 
[C441E] 
LFECCI 
C3F1A] 
[9BCH] 
[8102] 
[3AC4] 
[3BC6] 
[3468] 
[29ECI 
[7B9C) 
[5188] 
CES58] 
[2056] 
CC2B2] 
[C8D6] 
C7118] 
[4814] 
LCE2C8] 
[3316] 
[9SCEI 
(67D@] 
CBED2] 
[3DD4] 
[3CC4] 
[LI9E6] 
[7468] 
[D9IE2I 


i: den Zeilen (die Summe wuß für DIN-Ad-Hochformat 72 Zeilen sein!) variiert 
werden. s.auch Label '"PRT.FF’! & 


zuchsi Ei 54 
EU 8 


2 PRINTI: 
FRIHTZ: 


‚Grundwert Zeilenzahler 


1@aH 

H.8 

SF 

OLESP ıStackFointer retken 
SP,STETOF Iineu setzen 


A 

FEB+32 

b,FCH 

C.OPEHF 

Boos :bateı Sffnen 
-| 

Lb.bAT 


HZ i 
—- Ostei nicht vorhanden = 


LA 


G,FEHLRI 


CALL TAT 
LHLD ALDSP 
SPHL 


KET 


—- (Datei lesen — 


"LXI 


b, TETFUF 


PUSH b 


WI 


CALL 


LA1 
Wi 


EC: SETEMA 
Erüs 


b.FCB 
£ ,READF 
BDCS 


HH :bHA=Ädresse zurick (nach HL für Addition) 


A IA=d: Wenn Laden erfolereich 
DRUCK 


EB 
B 


ıLeerzeilen als Zeilenworschub 


ıPufferadr. um i28 Btes (il CPsatz) ertöhen 


A: TAE 
A ıerob minus 26 Brtsa 


[# ‚hat Dif-Adr. diesen Wert erreichtr 


Lbi insin. Schleife 


batsi zu larıg 


L#I 


KRH A 
STA ZEHT 
IH“ H 
MüNY AsM 


CPI 
Je 


E.FEHLRE 
ENDE-3 


ELTERN = 
HIETTE 
LOMB'Y'T u, 209 Hert Lfd. Hr. auf {=} 
H.TATPUF-i 
igeilenzähler auf & 
ıFolgezeichen in Textrurfer 


EUT 
EHLE 


bCH H 


PUSH H 


ı Textpufferadr. retten 


-—- Lfd,.Hr. errechnen —- 
LALE LOWENT 


SHALL LOWBNT 


H ıkexad, Wert der Lfd.Hr. #i 


CHVDEZ idez. kert der Lfd.Hr. errechnen 


-_———_ 


: „COMMEHT% 
ı Die folgenden Programmzeilen sind zu ändern, werm Drucker verwendet 


iAdır. LFOHRE +1 
‚5 Stellen ausgeben 


E 
FRTHR 


At! 

LPRT 

Ri # # | » 

LFRT 
Textzeile ausgeben --- 

A ide, ım Textfuffer zuruick 

Gl ‚Zähler jur Druckfosition 

H iFufferfos. #i 

A;H 

e) ı TABT 

LP.TAB ‚4a 

LPRT je=—=) Ausgabe Drucker incl. Ober 

Eu iZei lerende? 
FRINI3 Schleife 


aussehen 


ee eile -—- 
SICHT 
A zei lenzähler + 
ZCHT | 
ZUCHSLOA ıSeiterucheel? 
FRIHTZ ‚mein 


erden. die die Ausgabe eines Seitenworschubes als ESC-Seluenz er- 


: mönlichen. In der vorliegenden Form wird die notwendise Zahl von Leer- 


zeilen als Ersatz fur den Sıtemyorschub "ingerüst. # 


FEHLR2: 


 OLDSP: 


LOMEYT: 


3: HIBYTE: 
E LFOHE : 


ZCHT 


E# 


STKTOP 


4 


' TATPUF: 


3 


Fi 
MWi 


neue Seite —- 
B, ZURSCH 
A, BAH 
LPRT 
=) 
PRI.FF 
FEIHTI 


ıLe#erzei le 


start Teye Seite 


Vbertragung de® IAB-Pos. auf den Drucker -— 
A:8 
L akt. Fü: 
LFTHB 

[=] 

LP. TAb#+2 ıFol9e-TRAB 

A ‚Wert auf TAB-Fos. setzen 

FSH 

Ar 

LPET ‚1 Blank ausseben 

Fall 


n ‚Cah? 
LFTAB+L ‚nein 


Umwandlung der hexzadez, Zahl in bezimalzahl 
» LHLD LUWENT 


L#I 
LAIL 


E.LFOHR ;Ersebnisfeld 
B.- 1 da 


CALL UP.bEZ 


L#I 


EB: -i1e 


CALL UP.DEZ 


LAI 
or. 


Ers 
L#l 
MW 
Mmwi 
cur 
FEHZ 


PUSH Fall 


B,-16cı 
L UP.DEZ 
E,-=-18 
A+L :Einer“ 
sah ı= 1,Hibble auf 3 setzen 
[#7 ıAblase in Erseknisfeld 


etzen der tuhrenden Blanks im Ersebnisfeld 
H:LFOHR 
A: FH 
E.4 mas. 4 führende Blks. setzen 
I) 


HM. 36H 
H 
E 
BLK ‚Schleife 


Ende, Wwernn Enke ungleich 30H 
;Blarık setzen 


A. 3EH iSaähler 
: ‚m minus BE 
bEZ.LF 
Under los =-- 
ıfähler retken 
Ä ıC-Bit löschen 
A:L 
c iL minus C 
L., iersebnis “> L 
A,H u ao 
[= iH minus B cinel. Carry) 
HA ErYebnia in HL 
FEH ‚Zähler zurück 


ıziffer in Ersebnisfeld 
Adr. ın LFOHR +1 


CR:LF: 7, Datei nieht DE 
# ‚7, Dakei zu lana’ CK; LFi 'W 


‚Zähler fur lfd. Hr: 
ıdezimaler Wert der Ifd. Hr. 
‚Zei lenzahler 


L ‚Startadresse des Tertpuffers 
START 


nn = _—— 
[5 


CALL 
-—- Lfd.Hr. ausseben ——- 
4 LFOHR 


Listing 2. Der Assembler-Code für die speicherplatzscho- 
_nende Drucker-Routine 








Drucker- 
steuerung 
leicht gemacht 


Auch unter CP/M kann 
man den Drucker sehr 
einfach ansprechen. Eine 
kleine Routine hilft dabei. 


Steuerzeichen an den Drucker zu senden ist unter CP/M 
nicht so einfach wie mit dem normalen Schneider-Betriebssy- 
stem. Wenn Sie zum Beispiel von Schön- auf Schnellschrift 
umschalten wollen, dann finden Sie keinen direkten CP/M-Be- 
fehl dafür. Sie können normalerweise nur CP/M verlassen, un- 
ter Basic »PRINT #8,CHR$(27),;...« eingeben und mit »ICPM« 
wieder in den Ausgangsmodus zurückkehren. Wie Sie sehen, 
ist das aber ein sehr umständlicher Weg. Einfacher geht es da 
mit dem hier vorgestellten Hilfsprogramm. 

Wenn Sie sich mit dem CP/M-Assembler auskennen, dann 
erstellen Sie das Programm »LETTER.COM« anhand des 
8080-Assemblerprogrammes (Listing 1). Wenn nicht, dann 
sollten Sie zunächst das Basic-Programm (Listing 2) einge- 
ben. 

Während der Ausführung des Basic-Laders wird eine Prüf- 
summe berechnet. Erscheint die Meldung »alles o.k.«, ist das 
Programm wahrscheinlich fehlerfrei (absolut sicher ist das je- 
doch leider nie). Andernfalls müssen Sie die dann angegebene 
fehlerhafte Zeile korrigieren und einen neuen Versuch starten. 

Hat dann alles geklappt, haben Sie auf Ihrer Diskette eine 
neue Datei mit dem Namen »LETTER.COM«. Das ist das ei- 
gentliche CP/M-Programm. Sobald dieses fehlerfrei läuft, 
brauchen Sie das Basic-Programm nicht mehr und können es 
löschen. 

Sowohl am Ende des Basic-Listings als auch am Ende des 
Assembler-Listings stehen die Steuerzeichenfolgen für die 
verschiedenen Druckerfunktionen. Jeder Datensatz besteht 
dabei aus einem ersten Byte, das die Länge der zugehörigen 
Steuerzeichenfolge angibt und einer anschließenden Folge 
der eigentlichen Steuercodes. 

Die Reihenfolge der Sätze ist dabei folgende: 





oO 


Doppeldruck 
Hochgestellt 
Tiefgestellt 
Standardzeilenhöhe 
wählen 
Zeilenhöhe 'k 
Zeilenhöhe 1 
Zeilenhöhe 1'% 
Zeilenhöhe 2 
Zeilenhöhe 2'% 
Zeilenhöhe 3 


»Lückenfüller«e: nur im 
Assembler-Listing sichtbar 
Unterstreichen abschalten 
Unterstreichen einschalten 
Breitschrift ausschalten 


Breitschrift einschalten 
Schnellschrift einschalten 
komprimierte Zeichen 
Fettdruck 

Schönschrift (NLO) 
Zeichen normal ausgeben 





ENTFERNT 


Tabelle 1. Die verschiedenen Parameter rufen auf dem 
NLQ 401 diese Schriftarten auf 


Wenn Ihr Drucker irgendeine Funktion nicht bietet, dann soll- 
ten Sie die Zeichenfolge durch einen »unschädlichen String« 
ersetzen. Also etwa durch ein Byte OOhex in der Länge der 
Steuerzeichenfolge. Keinesfalls dürfen Sie den Datensatz 
aber ersatzlos wegfallen lassen. 





CP/M 


Die hier vorliegende Version ist für den NLQ 401 von Schnei- 
der angepaßt. Die meisten Parameter werden aber auch von je- 
dem Epson-kompatiblen Gerät verstanden. Der Aufruf der 
Routine erfolgt mit »LETTER abcd e«. Wie die einzelnen Varia- 
blen dabei zu wählen sind, das sehen Sie in Tabelle 2. Diesen 
Hilfszettel können Sie jederzeit mit »LETTER ?« aufrufen. Bei 





falschen Parametern wird er automatisch ausgegeben. 


(Helmut Tischer) 
Aufruf: 1) »LETTER ?« Helptexte 
2)»LETTERabed ie: 
a: Hervorhebung 1 0— nicht unterstreichen 
1- unterstreichen 
b: Hervorhebung 2 0— keine Breitschrift 
1— Breitschrift 
c: Schriftart 0— Schnellschrift 
1- Schmalschrift 
2— Fettdruck 
3- Near Letter Quality 
d: Schriftvarianten: 0— normal 
1- Doppeldruck 
2— Hochgestellt 
3- Tiefgestellt 
e: Zeilenabstand 1- 0,5 Zeilen (4 Zoll) 
2— 1 Zeile ('Zoll) 
3- 1,5 Zeilen (', Zoll) 
A 


3 Zeilen ('k Zoll) 


Tabelle 2. Standardeinstellung für fehlende Parameter: »0« 
beziehungsweise '-Zoll-Zeilenabstand. In der Schriftart 
»NLO« werden die Schriftvarianten nicht ausgewertet. 


Yerschi edene Schriftarten 
ich. 25.87.1985 by 
Helmut Tischer 
Asternstraße 40, 


#4 Konstanten 
Jos eQii BIEah 
wcrcei zqti ln bee 
wende OL Mad 
write Ee]tı BFh 
nrint eQqLi Kan 
stari Era EHEN 
Erg giıaaın 
ze 88 


*: Froyrammstart 
mi krart 


auf dem NLO481 


D-B032 Moosburg 


db “erachiedene Schriftarten auf dem HLOAGi ‚13,18 
db ic) 24.09.1955 by’ ,1i3,18 

db Helmut Tischer ',„13,18 

db Asternstraße 498, D-80932 Moosburg‘ „13,19, 24 


Lokalen Stapel anlegen 
start: lxi h , Ada 


da sp ‚alter Stackpointer 
ahlo stack-2 1lsischenspeichern 
ix} h,stack-? ineuer Stacı 


spam 


ei Hai iptaröogr Fe ilod) 


repeaät: 1da ward il, Far ameter 
cp 2 
jz help eHiltstert 
1x1 b,B2B1h ;2 Einträge ab I. Tabellensatz 
call zeiten 
Ida „ardi#+il 2, Parameter 
wi b,02235h +2 Einträge ab 3. Tabellenmatz 
eall ewitch 
ida wardi+2 ı3,. Parameter 
Iri b,B4B5h ;4 Einträge ab 5. Tabellensatz 
call switch 
lcda “ordl+3 ;4. Parameter 
Imi b,A4N9H 54 Einträge ab #9, Tabeliensatz 
call switch 
ıida wardz 5. PFaraämeter 
Lei b,Br’edh ı7 Einträge ab 13, Tabellenisäatz 
call uwitch 
mp iınis ı; Frogr anmende 


i 
p#re4+4# Zuständigen Tabellensats 


Ssaltcehni cpi 


suchen und ausgeben 
jLeerzelchen gilie als 8 


m end 
mwi a,38h 
chare mu u : Direkte Codierung berachnen 
ie error jwern kleiner, dann Fehler 
mp 'e] iMaxıimaler Wert 
Inne error 
add = ıVersatz 
#1 h,tabellıTabellenanfang 
ini d,Bdh 
suchr ma 24m : Satzlänge 
ins h 
dad el ; überspringen 
cicr F | 
Iniz Such ;Solange, bis gefunden 
je 2 b,m iLänge den gültigen Satıes 
rin Hh 
mwi c,brint +5teuercode Drucker ausgabe 


Listing 1. Das 8080-Assembler-Listing 








H 
seses 
arror 


[7 
zeeen 


help: 


man Ei 


Ä 


MEY t iAuszugehbendes Zeichen 
irım - 

push 

push 

call E ttelchen an Drucker 
Hop 

Bop 

der inoch ein Zeichen? 

inz druck 

rot 


.*- Fohleraeldung 
i pop HM sötapml korrigieren 
Iimi d,tehler;iMeldetert "Falscher Farameter 
mw 2C,write ;Teit ausgeben 
call bıom 
Mi, Wir cl 
nwi A, 
m,a 
Mh 
my, 
h 
Mi 
h 
Mm, 
h,sordz 
Ma 
Jınp ropmat 


jeEingabe löschen 


iFrogramm mit Standarteinstell ung 


“. Hılfsteite ausgeben 
mi d,hilfen 
mwi write 
call bocs 


Hs Frogrammende 


Fifiki 


F 
En 


tehlerı «db u, 
hilfenı db 13.10.24, ' 


tabel 


ikild stack-? salter Stackpainter 
zahl jzurück 
ret Sprung ins Syn Emm 


##+ Feldetexite 

Falscher Farameter ! ‚24,13,18 
Schriftartenwahl auf dem 
db 13,18, Aufruf: 1) "LETTER 7 

db 2) "LETTER abcd 1'' 21',13,18 
ta ai Herworhebung 1,7, RB» 
ek 9,3,9,'1 -> unkerstreichen' „13,18 


NL" 


dh "bt Hervorhebung 2',7,'B -> keine Breitschrift', 


ch 
[= |» ] 


Ehe 0: Bee 
Schriftart „Ft BD > 
- Echsalschritt „13,10 

-+ Fettdruck' „13,18 

-> Asar Lot ber Quality’,:s, 18 
iftvarianten: ',„9,'’8 -> normal '„13,{8 


Breitschrift asak dukes 


- on 
000 


= 


a 


I BE ce) 
As 
fi 
Eu 


ÄNSdn-Iun« 


> Donpeldruck " „13,18 
-> Hochgestellt’ „13,18 
-; Tiefgostealik' ‚13,18 
enabstand'’,„?,'1 -> 8.5. Zeilen 11/12" 


ee 


u- 


 ı Zeile ilfb 
>» 1.5 Zeilen 1174 
‚13,10 

ii > 5 Zuilen (17 ",",13,18 
arteinstellung für ante ten, 
db "ir " Zeilenabstand'’ „13,18 
cl "In der Schriftart HL 

db "nieht ausgeserter.#° 


",*,43,10 
",',13,18 


- 


ann BT a ln Ba Ba u BE 4 Be Ze 


Ber er EN, 
a Be u ED 


| 1a 


bi+ = 
Aa=- 


Steuerzeichenfolgen (jeweils Länge + Faramoter ! 
il: db Du Dummy, '"B-ter' Tabellensäatz 
ch =, bh ,2dh ‚38h nicht unterstreichen 
ab ‚ibh,2dh ,‚Blh unterstreichen 
dh ibn „37h „dh ;keine Breitschrift 
‚1ibh,S7h,Bih Breitschrift 
i®h,ibh,3öh,ibh, eh, B0h 
‚afh,ibh,4öh,ibh, oh „On 
bh „45H „16h, 78h, Beh :Fettdruck 
5.,1bh, 76h, Bih ıNLO 
4, 1bh,40h ,1bh , 54h ; keine Variante 
4,1bh,47h,1bh, 34h iDoppeldruck 
=, 1bh, 53h , 20h thöchgestellt 
3,16bh,323h, 81h ; liefgestellt 
S,41bh,#ih ,Bch,1bh „22h ıZeilenabstand 1’ " 
5,1bh,41h ,Qöh,1bh,32h ri # 
5,2bh,4ih,deh,ibh ,I2n a 
5, 16bh,41h,12h,1bh,32H ira" 
5, 16h ,4ih,i@h,1ibh, Fan ira " 
5,1bh,4in,leh,ibh, 32h sarız:.” 
5,1bh,41h „24h, 16h, 32h 1/2" 


ER ee 
= —; E 


Listing 1. Das 8080-Assembler-Listing (Schluß) 


TEE TEE TEE TE TE een 
'#* (C) HELMUT TISCHER ” 


"+ ASTERNWEG 40, 8852 MDOSBURG * 
EEE EETETEETELETTTTTTET 


"Basic-Lader fuer die Datei '’LETTER.E 
DOM‘ 


* 


' OPENOUT"LETTER. COM" 


1. Frogrammreil: mit Pruefsumme 
FOR zeile=-iß8id TO 1129708 STEP 18 
pruef=B 

FOR i=8 TO 7 

READ ds: d=VAL t"&"+d#) 
Es 
NEXT 


‚@ READ p 


IF pruef<>p THEN PRINT"Pruefsummenfe 
hler in Zeile"zeile:CLDOSEDUT:END 
NEXT 


"2. Frogrammteil: ohne Fruefsumme 
READ d#:WHILE d#s<>"Ende" 
IF LEFTFfid#,1)="'!" THEN p 
‚1) ELSE P$=CHR$ (VAL ("&"4+d$) ) 


Listing 2. Der Basic-Lader für »LETTER.COM« 


#=RIGHT$ (d$ 


.24 


: Helptente „13,18 


' nicht unterstreichen’ ,13,18 


13,10 


Sehnellischrift' „13,18 


B"’’ BEWM, 


»serden die Schriftwarianten ' 


;Scehnellschrift 
:5chmalschri#t 


EFIFCC) 
[2224] 
[7035] 
LE?D2] 


[D532] 
[8454] 
[C8A4] 
[Bs5E]I 
[öA1lA] 
[777A] 
[BB82] 
[2854] 
[7D48] 
LAFBAI 
[CDEA] 
1505] 


[C544] 
[S1F8] 
[a5c2] 
[44532] 
[AB18] 


[SAFE] 


238 PRINT#?7,p$; 


READ 


ELDOSEOUT:FRINT"Alles 0.K. 


d#:WEND 
":END 


"Hauptprogramm 


2 DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


C3,77,81,56,65,72,73,63, 
68,69,65,64,65,6E,65,28, 
53,63,68,72,69,66,74,61, 
72,74,65,6E,20,61,75,66, 
20,64,65,6D,28,27,4E,4C, 
51,34,30,31,27,0D,BA,28, 
63,29,20,32,36,2E,30,39, 
2E,31,39,38,35,20,62,79, 
0D,0A,09,48,65,60,6D,75, 
74,20,54,69,73,63,68,65, 
72,0D0,04,089,41,73,74,65, 
72.46. 73.74.72.61.7E,65, 
20,34,30,2C,20,44,2D,28, 
30,35,32,20,4D,6F,6F,73, 
62,75,72,67,0D,BA,1A,21, 


, 20,020,39,22,FE,7F,21,FE, 


7F ,F9,3A,5D,@8,FE,3F,CA, 
02,02,01,81,02,CD,B7,2i, 
3A,5E,20,01,03,02,CD,B7, 
21,34,5F,00,01,05,804,CD, 
B7,01,34,60,028,01,89, 24, 
CD,B7,01,3A,6D,00,01, 

07 'CD’B7'aL CS Bn'D2FE) 
20,C2,BE,21,3E,30,D6,30, 
DA,E6,81,B8,D2,E6,B1,8B1, 


| 21,07 ,805,168,80,5E,23,17, 


3D,C2,CD,®1,46,23,BE,05 

5E,23,E5,C5,CD,05,00,C1, 
E1,05,C2,08,01,C9,E1,11, 
OF ,02,0E,09,CD,05,20,21, 


ı 5D,89,3E,28,77,25,77,23, 


77, 23, 77, 21, &D, ‚20,77, 63, 


| 82,01, 11 ‚29,.02,0E, 07?,CD, 


05,00,2A,FE,7F,F9,C9,18, 
20,46,61,60,73,63,68,65, 
72.20,50,61,72,61,6D,65, 

74,65,72,20,21,20,18,0D, 
DA,DD,@A,18,20,53,63,68, 
72,69,66,74,61,72,74,65, 
6E,77,61,68,60,20,61,75, 

66,20,64,65,6D,20,27,4E, 


Ä ac, 1, 34, 3Q, s1, 27, ‚28,18, 


2D,0N,41,75,66,72,75,66, 
3A,20,31,.29,20,27,40,45, 
54,54,45,52,20,3F,27.20, 
20,20,20,20,20,3A,20,48, 
65,60,70,74,65,78,74,65, 
2D,2A,20,20,20,20,20,20, 
20,20,32,29,20,27,4C,45, 
54,54,45,52,20,61,62,63, 
64,28,60,27,28 »SA,@D, ‚on, 
61,3A,20,48,65,72,76,6F, 
ur HR, 
31,09,38,20,2D,3E,20,6E, 
69,63,68,74,20,75,6E,74, 
65.72,.73,74,72,65,69,63, 
68,65,64E,2D,0N,09,09,09, 
31,20,2D,3E,20,75,6E,74, 
65,72,73,74,72,65,69,63, 
68,655,64E,0D,0A,62,3A,20, 
48,65,72,76,6F ,72,68,65, 
62,75,6E,67,20,32,09,30, 
20,2D,3E,20,6B,65,69,6E, 
65,20,42,72,65,69,74,73, 
63,68,72,69,66,74,0D,BA, 
09,07,09,31,20,2D,3E,28, 
42,72,65,69,74,73,63,68, 
72,69,66,74,0D,BA,63,3A, 
20,53,63,68,72,69,66,74, 
61,72,74,09,09,30,20,2D, 
3E,28,53,63,68,6E,65,6[, 
60,73,63,68,72,69,66,74, 
2D,0A,09,09,089,31,20,2D, 
3E,20,53,63,59,6D,61,64C, 
73,63,68,72,69,66,74,0D, 
2A,09,09,09,32,20,2D,3E, 
20,46,65,74,74,64,72,75, 
&3,6B,0D,0A,29,09,09,33, 
20,2D,3E,20,4E,65,61,72, 
29,40,65,74,74,65,72,20, 
51,75,61,6C0,69,74,79,0D, 
0N,64,34,20,53,63,68,72, 
69,66,74,76,61,72,69,61, 
6E,74,65,6E,3A,09,30,20, 
2D,3E,20,4E,6F ,72,&D,61, 
&C6,2D,2A,09,29,09,31,20, 
2D,3E,20,44,6F ,70,70,65, 
6C,64,72,75,63,6B,0D,@A, 
09,09,09,32,20,2D,3E,2®, 
48,6F ,63,68,67,65,73,74, 
65,6C,6C,74,0D,0A,09,09, 
09,33,20,2D,3E,28,54 A 
65,66,67,65,73,74,65,6C, 


| &6,74,02D,BA, 65, 3A, 2®, SA, 


[2832] 
[BACAI 
CE1BCI 
[3792] 
CESC®] 
[®OCC2] 
[4492] 
[F8BE] 
[ODE6] 
LBIBCI 
CE6E6] 
[DIFEI 
CB4ACI 
[52B4] 
[&9C0] 
[3AS4] 
CC3D2] 
LF8CCI 
CF186] 
C40BA] 
[4204] 
[22E@] 

LBOCSCI 
[SBE®] 
[85C2] 
CB312] 
CBBF4] 
[6796] 
[DB22] 
[CF962] 
LOF22] 





































1248 DATA 65,69,60,65,6E,61,62,73, 835 


[FS66] 
1258 DATA 74,61,6E,64,89,31,20,2D, 558 L[BD48] 
1268 DATA 3E,20,30,2E,35,28,5A,65, 464 [5248] 
1270 DATA 49,6C0,65,6E,20,28,31,2F, 592 [7574] 
1280 DATA 31,32,20,22,29,0D,0A,89, 238 [3714] 
1298 DATA 89,09,32,20,2D,3E,2@0,31, 288 [4924] 
1300 DATA 20,20,20,54,65,69,6C0,65, 681 L[@S1E] 
13128 DATA 20,20,28,31,2F,36,20,20, 318 C[6AE4] 
1320 DATA 22,29,0D,24,09,09,09,33, 176 [8326] 
1338 DATA 20,2D,3E,280,31,2E,35,20, 351 L[A422] 
1348 DATA 5A,65,69,60,65,6E,20,28, #87 [2284] 
1350 DATA 31,2F,34,20,20,22,29,0D, 388 CED@0) 
1268 DATA BA,09,09,09,2E,2E,2E,@D, 188 L[AF94] 
1378 DATA 0A,09,09,09,36,20,2D,3E, 238 L[9&43E]) 
1388 DATA 29,33,20,20,20,5A,65,69, 475 L[&6AB8] 
1398 DATA 60,65,6E,28,28,31,2F,32, 537 L[B264] 
1488 DATA 20,20,22,29,0D,04,53,74, 361 [1188] 
1410 DATA &1,6E,64,61,72,74,65,69, 848 LFF3A] 
1428 DATA 6E,73,74,65,6C,60,75,6E, 885 L[9EB4] 
1430 DATA 67,20,66,7D,72,20,66,65, 711 L[4926] 
1440 DATA 48.60,65,6E,64,65,20,50, 736 [9658] 
1458 DATA 61,72.61,6D,61,74,65,72, 845 [2938] 
14658 DATA 3A,20,27,38,27,20,62,7A, 468 L[AC28] 
1478 DATA 77,2E,28,31,2F,36,28,22, 413 L[9928] 
1488 DATA 29,5A,65,69,60,65,6E,61, 744  L[AB7CI 
1498 DATA 62,73,74,61,6E,64,0D,0A, 659 L[BC74] 
1500 DATA 49,6E,20,64,65,72,20,53, 645 L[@A22] 
1510 DATA 63,698,72,69,66,74,61,72, 851 L[B62A] 
1522 DATA 74,20,27,4E,4C0,51,27 28, 493 [2832] 
1530 DATA 77,65,72,64,65'6E,20,64, 777 LCA44AC] 
{540 DATA 49,.65,20,53,63,68,72,69, 743  L[@42A] 
1550 DATA 664,74,76,61,72,69,61,6E, 859 [95601 


1568 DATA 74,65,6E,20,6E,69,63,68, 777 


Verschiedene 
Tastaturen 
unter CP/M 


Was man in Basic einfach 
3 | mit den Befehlen »KEY 
vu! DEF« erreicht, ist unter 

“w” | CP/IM manchmal ein schwie- 
riges Unterfangen. Die Tastatur läßt 
sich zum Beispiel nur mit ein paar 
Tricks umdefinieren. 


Normalerweise kann man unter CP/M die Tastenbelegung 
nur ändern, wenn man das Programm »SETUP« auf der 
Schneider-Systemdiskette, beziehungsweise »Install« auf der 
Systemdiskette von Vortex, aufruft. Oder man benutzt eine 
schon vorbereitete Diskette mit der gewünschten Tastenbele- 
gung. Angenehmer ist es, wenn man eine beliebige Tastatur 
»mit Tastendruck« aufrufen kann. Also beispielsweise einfach 
»WSTASTEN« eingeben und schon steht eine für »Wordstar« 
besonders geeignete Belegung zur Verfügung. Das ist vor al- 
lem dann wichtig, wenn man verschiedene Programme besitzt, 
die unterschiedliche Codes zur Cursorsteuerung benutzen. 
Je nach Anwendungszweck passende Funktionstasten soll- 
ten sich leicht aufrufen lassen. Mit der hier vorgestellten Routi- 
ne geht das. 

Alle ».. TASTEN. COM«-Programme haben einen gemeinsa- 
men Kernteil und einen individuellen Anhang, der die spezielle 
Tastenbelegung enthält. Beim Aufruf durch den Namen setzt 
der Kernteil zunächst die Tastatur in den Ausgangszustand zu- 
rück und belegt sie dann mit den im Anhang angegebenen Co- 
des. Dabei kann die Nummer der Funktionstaste als auch der 
String, der auf diese gelegt werden soll, frei gewählt werden. 

Zum Schluß wird noch eine vom Benutzer bestimmte Mel- 
dung ausgegeben, die beispielsweise den Namen der Tasten- 


[287E] 












1578 DATA 74,28,61,75,73,67,65,77, 8808 


CEEIE] 
1588 DATA 55, 72,74,65, 74, 2E, 24,00, 5308 [7325] 
1598 °' CBE2C]I 
1588 Hier beginnen die Druckerstrings [53578] 
1518 '"Unterstreichen aus/ein [CFD&C]I 
1520 DATA 83,1B,2D,80 C1iBA&] 
1538 DATA 85,1B,2D,Bi [EF1AA] 
1548 "'Gro”schrift aus/ein [L2CFE] 
1558 DATA 83,1B,57,08 [4478] 
15658 DATA 8B3,1B,57,B1 [82PC] 
1578 "Schnell/Schmal /Fett/Schoen [5460] 
1584 DATA B54,12,1E,45,1B,78,08 [DDS32] 
15908 DATA Da, öF,iB, 46, 1iB, 78, ul) Lac5A] 
1782 DATA 85,1B,45,1E, 78,00 [CDB82] 
1718 DATA 83,1B,78,01 [329A] 
1728 "normal /Doppeldruck/Hoch/Tiet [B75C] 
17308 DATA B4,1B,48,1B,54 LEBE8] 
1748 DATA 84,1E,47,1B,54 [3BEB] 
1758 DATA 83,1B,53,08 [F3?2] 
1768 DATA 83,1B,553,B1 [07976] 
1778 "'Zeilenhoehe: Standarteinstellung [E3F4] 
1788 DATA 85,1B,41,8C,1B,32 LSAICI 
1798 'Zeilenhoehen 1/2, 1,1 1/2, „..,3 [DADZ2] 
18980 DATA 85,1B,41,85,1B,32 C74F4] 
1818 DATA 85,1B,41,8C,1B,32 £7D18] 
1828 DATA 85,1B,41,12,1B,32 [4BF2] 
1838 DATA 85,1B,41,18,1B,32 [BaROB] 
1848 DATA B5,1E,41,1E,1B,32 LEösiC]I 
1850 DATA 85,1B,41,24,1B,32 [BCFE] 
1B&0 DATA Ende [4B4A] 


Listing 2. Der Basic-Lader für »LETTER.COM« (Schluß) 


belegung oder eine Farb-/Modeeinstellung des Bildschirms 
enthalten kann. 

Für alle, die Ihre Programme nur in Basic eingeben wollen, ist 
Listing 2 gedacht. Tippen Sie es zunächstbis zur Zeile 10400 
ein. Das wird später der Kernteil des COM-Programmes. Am 
besten speichern Sie die Zeilen dann, um später die Grund- 
funktionen immer wieder zur Verfügung zu haben. 

In den Zeilen 100 und 120 können Sie den Namen eintragen, 
den später Ihre Tastenbelegung haben soll. Achten Sie aber 
darauf, daß der Namensteil nach dem Punkt unbedingt »COM« 
heißen muß. Da unser Beispiel das Programm »Wordstar« ver- 
bessern soll, heißt die Routine aus Listing 2 »WSTASTEN«. 

In der Zeile 10 410 beginnen die Definitionen der maximal 32 
Funktionenstrings mit Nummern zwischen O und 31. Sinnvol- 
lerweise schreibt man in eine Zeile genau einen Funktions- 
string, so daß an erster Stelle immer die Nummer des Strings 
steht. An zweiter Stelle steht dann die Länge und an den fol- 
genden Stellen die Zeichen, die den String bilden. 

Dabei haben Sie die Wahl zwischen zwei verschiedenen 
Wegen: 

— Wenn es sich um ein Zeichen mit ASCIl-Code handelt (bei- 
spielsweise »A«), dann schreiben Sie ein Ausrufezeichen, ge- 
folgt von dem jeweiligen Zeichen. Diese Methode kann jedoch 
nicht bei Symbolen benutzt werden, die im Basic eine beson- 
dere Bedeutung haben. Diese müssen mit Hilfe des zweiten 
Weges eingegeben werden. 

— Wenn es sich um ein Zeichen handelt, das nicht darstellbar 
ist (zum Beispiel Wagenrücklauf), dann müssen Sie es hexa- 
dezimal eingeben. Soll im String also ein Anführungszeichen 
vorkommen, so muß es mit Code 22 eingegeben werden (oh- 
ne vorausgehendes »&«). 

Die Strings dürfen dabei übrigens auch durcheinander im 
Programm stehen und — auch wichtig — es müssen nicht alle 
Strings definiert werden. Das Ende der Tabelle wird mit einem 
Byte FF hex gekennzeichnet. 

Unmittelbar nach der Stringtabelle (in unserem Beispiel ab 
Zeile 10 760) folgt die Belegung der Tastatur. Der Aufbau einer 
Zeile der Tabelle ist mit Ausnahme des Repeat-Flags (Wieder- 
holungsfunktion) analog zu einem »KE\Y DEF«-Befehl. In jeder 
Zeile steht zunächst die Tastennummer, danach der Code der 
Taste im Normalmodus. Danach der Code der Taste, wenn Sie 
zusammen mit Shift gedrückt ist und zum Schluß der Code der 
Taste im Ctrl-Modus. Die Codes 80 bis 9Fhex repräsentieren 
jeweils einen Funktionsstring mit einer Nummer zwischen 00 
und 1Fhex. Sie können also die 32 oben definierten Funktio- 


il, 7 2127 



































nenstrings nicht nur auf den Zahlenblock der Tastatur legen, 
sondern auf wählbare Tasten. 

Die Eingabe der Codes erfolgt genau wie bei den Funktio- 
nenstrings entweder als Hexzahl oder als » ! «-Zeichen-Kom- 
bination. Die Länge der Tabelle ist hier ebenfalls beliebig und 
wird durch ein Byte mit dem Wert FF hex gekennzeichnet. 

Als letztes folgt die Meldung, die beim Aufrufen der Routine 
ausgegeben werden soll. Der Meldetext muß hier allerdings 
durch ein Zeichen »$« mit dem Code 24 hex beendet werden. 
Sinnvoll ist, in diesem Text auch gleich die Definition der Bild- 
schirmfarben und des Bildschirmmode einzufügen. 

Das Ende des Datenbereichs ist im Programm durch den 
Text »Ende« gekennzeichnet. 

Geben Sie jetzt das Programm vollständig ein und starten 
Sie es. Wenn sich ein Fehler im Programm befindet, wird Ihnen 
die Nummer der fehlerhaften Zeile mitgeteilt. Wenn das Pro- 
gramm korrekt ist (also die Prüfsumme auch stimmt), dann er- 


scheint die Meldung »Alles o.k.«. Auf Ihrer Diskette befindet 


sich nun eine neue Datei mit dem Namen, der in der Zeile 120 
hinter »sOPENOUT« angegeben ist. Das Basic-Programm brau- 
chen Sie jetzt nicht mehr — außer Sie möchten die Tastenbele- 
gung noch einmal ändern. | 

Schalten Sie nun in den CP/M-Modus um und tippen Sie den 
Namen der neuen Datei (ohne »COM«). Sofort steht die neue 
Tastenbelegung zur Verfügung. Wenn Sie im Basic-Programm 
den Namen in Zeile 120 ändern, können Sie auf derselben Dis- 
kette mehrere Tastaturbelegungen mit verschiedenen Namen 
ablegen. 

Falls das Programm nicht funktioniert, dann befindet sich ein 
vom Prüfsummenzähler nicht entdeckter Fehler im Basic- 
Programm, Das kann beispielsweise eine vollständig verges- 
sene DATA-Zeile sein. Dann hilft nur genaues Überprüfen der 
einzelnen Zeilen. 

Listing 1 enthält den Kernteil aller Tastenbelegungen in 
8080-Assemblercode. Dieses können Sie analog zu der oben 
angegebenen Beschreibung mit Ihrer persönlichen Tastenbe- 
legung ergänzen und mit Hilfe des CP/M-Assemblers »ASM« 
und dem »LOAD«-Programm übersetzen. Der Aufruf des ent- 
standenen COM-Programms belegt dann die Tastatur ent- 
sprechend Ihren Wünschen. 

Das abgedruckte Beispiel-Programm enthält die Funktions- 
tastenbelegung für ein »Wordstar«-Programm. Diese Tasten- 
belegung wurde so ausgewählt, daß wirklich jede einzelne 
freie Taste sinnvoll belegt ist. Erst jetzt ist das Arbeiten mit 
»Wordstar« optimal möglich. In Tabelle 1 finden Sie die Tasten- 
belegung dieses Beispiels. ? 

Natürlich können Sie eigene Änderungen einbauen — bei- 
spielsweise bei den Sonderzeichen, die wegen der deutschen 
Umlaute umpositioniert werden mußten. Beachten Sie aber, 
daß bei einer Standard-Tastatur die Lage der Control-Codes 
durch die übrigen Tasten vorgegeben ist. Wenn Sie sich nicht 
daran halten, kommen Sie bei komplexen Programmen leicht 
in Schwierigkeiten. 

Alle Tasten, die mit Codes zwischen 40 und 55 hex belegt 
sind, müssen in der Ctrl-Ebene mit dem um 40 hex verminder- 
ten Code belegt sein. Die Taste »A« (mit dem Code 41 hex) lie- 
fert also in der Ctrl-Ebene den Wert 41 — 40 = 01 hex. Wenn 
Sie die »Y«- und die »Z«-Taste vertauschen oder die Umlaute auf 
der Tastatur positionieren wollen, müssen Sie das beachten. 
Eine unbelegte Taste müssen Sie mit FF hex kennzeichnen 
und nicht mit OO hex. (Helmut Tischer) 


CAPS 
LOCK: 


SPACE: 


GUR LEFT: 


DOWN: 


Fi: 


F2: 


F#: 


F4: 


FE: 


F&: 

















Randlöser (10%) 
Großbuchstaben feststellen 
Großbuchstaben feststellen 


Suchen wiederholen (!L} 
allgemein wiederholen (100) 
Leertaste 


zum linken Rand (1CS) 
Wort nach links {1A} 
Zeichen links (15) 


Zum Textende (1OC) 
Seite vorblättern (1C] 
Zeile runter (1X) 


abwärts rollen (12) 
Blocksatz ein/aus (10J) 


Directory ein/aus [IKF} 
Absatz einrücken (1OG) 


aufwärts rollen (TW) 
Zeile zentrieren (10C) 


Text sichern (I!KS) 
Laufwerk wechseln (1KL) 


Text beenden [!KD)} 
Datei umbenennen (IKE) 


{IMIKRBRIEFVOR!M) 
Datei löschen (IKJ) 


1, Zeile: Taste + Cirl 
2, Zeite: Taste + Shift 
3. Zeile: Taste allein 


Hinweis zur Taste F6: Nach Eingabe des Dateinamens beim Start von WS statt } 


CUR UP: 


FT: 


FB: 


F8: 


FO: 


F; 


FENTER: 








Einfügemodus ein/aus (‚W) 
Leerzeile einfügen (IN) 
Absatz (CR) 

Zum Textanfang (tOR) 
Seite zurück (1A) 

Zeile nach oben (TE) 


Hilfe (1) 
Absatz formatieren (1B) 
Cursor Home (1GÖS1GE) 


Zum rechten Rand (10D) 
Wort rechts (TF} 
Zeichen rechts {!D) 


Block speichern (1KW) 
Biockanfang merken (IKB) 


Block’Datei einfügen (1KR) 
Biockende merken (IKK) 


Block löschen (!KY) 
Block invertieren (TKH) 


Rand links zum Cur. (TOLI) 
Linken Rand stellen (1OL)} 


Cursor an letzte Position (1GP) 
Rechten Rand stellen (IR) 


Merker setzen (IK) + Ziffer 
Merker suchen (10) + Ziffer 
neue Zeile, ohne Absatz 
{t9S1X) 


| Enter die Taste CtrI+F6= > alle wichtigen Voreinstellungen für Brief. 
Hinweis zur Taste Fenter: Unmittelbar nach Merker setzen/löschen muß eine Zahl 
eingegeben werden, um Merker genauer zu bestimmen. 
Die mit F gekennzeichneten Zahlen beziehen sich auf den Ziffernblock. 





















oldso 
stktoo 












entrwi 















noreks; 


































v 
nOeHkn? 




























































Hilfe (14) nach rechts bis Ende 


Befehl abbrechen (!U) löschen (1OY) 
Escape {![) rechtes Wort löschen (IT) 
rechts Zeichen löschen (1G} 
TAB: Tabulator löschen [tON) DEL: links bis Anfang löschen 
Tabulator setzen ((101) (1ODEL) 
Tabulator ausführen (11) ganze Zeile löschen (1!) 





linkes Zeichen löschen [DEL) 









444444 Kernporooramm ##4#444 
org DiDEh 
eau La90h :ı Zwei unbelegote Speicherzellen 


egLu SOdah tLokaler Staoel im zentralen RAM 


Lokalen 


call Zbbaan 


1%1 


1£ 


Immo 


Tastenbeleoungen 
le") Auf Nummer der Taste 
iris H 
inr 


Don 











more 








a 








Tastenbeleoung für Schneider CPE444 frei wählen 
unter EF/M 2,2 
ic4 11.09.1785 bv Helmut Tischer 


Stapel initialisieren 


Exbansionsstrinos setzen 
h.esoan ıÄdresse der Stringtabelle 


setzen 


imE noe* DE ınaechste Taste 


Listing 1. Das 8080-Assembler-Listing 





lxi h.e salterı Stasbel holen 
dad fe 
shld oldse iretten 


sn, stktöso:neuer Stapel (im zentralen Ram!) 
keyboard initialisieren 


may a.m :Stringonummer 
ins h 
in a tZoo=fnde der Tabelle 


der a 

imhr) E«mM Länge eines Batzes 

ins h 

bush H :iStacktoo! auf Stringeanfang 
mwi b,8 

dad b ıhl zeiot auf Stringende 
“thl Jetzt hl auf Stringantano 
m b.a :b=Nummer,„ c=Länge 

call übhbefh v:KM SET EXPAND 

pop h tädresse nächster Satz 






iz nokevw :255=Ende der Tabelle 
der a 

may b.m : Code Translate 

ins h 

push DSH :a ebthaelt Tastennummer 
bush Hi 

call Bbb27h :KEM SET TRANSLATE 

gon Hi 


DSW 

MO b.m Code Shift 
inmK h 

gush DsWw ia enthaelt Tastennumner 
Dush H 

call Abbe :KrM SET SHIFT 
[s[=]#) Mi; 

oon psw 

Mmoaw b.m Code ECTRL 
inH A 

push h 

call 2bb 33h :EM SET CTRL 
bob a) 
























Fi Proorammende. Rücksoruna in CCP 


nokey: cha hl enthaelt Adresse des Meldetestes 
mwi e.f :s Textausagabe 
call 5 
Iihid oldso Stapel restaurieren 


sohl 
ret 






” 
Eitbansionsstringos: 
(jeweils: “Nummer >.%Lsaenoe>, 
Exbani Jh n.1%, 
2 - 





Bytesds un 
serino Mr. 








tdie Tabelle kann beliebia lanca sein) 





db 31.14, 


db 232 


letzter Strina’ 
Kennzeichen Ende 

















ı Tastenbeleoung 
: fjieweils “Mummer>.<Translate 
db „I er eh Se. 





‚<enitt>,.tEEr!> 








idie Tabelle kann beiiebio lanco sein) 





- b Fi = [| 
db eh] :Endenarkierung 








iMeldetext. 


wird bei Aufruf ausoeoeben 
strino: db Ich bin das Prooramm” 
db '# :Endemarkierung 
end 


Listing 1. Das 8080-Assembler-Listing (Schluß) 


E1D18] 


FE = 2 2 2 2 02 20502 20202020 202 2 2 2 2 2 220502500 0 00002 2 2 20203 






2 '# (c) Helmut Tischer * CB184] 
3 '* Asternstr. 40. 8852 Moosburg * E[DFFE]I 
Pe ee 22 2 2 2 2 212 272 ZZ 2 2 2 2 ZZ ZZ 2 2 2 2 2.2.0 [CBFIE] 
1i@8@ ‘Basic-Lader fuer die Datei '’WSTASTE 
N. COM [CFCDC)I 
118 CDDB2I | 
128 DPENOUT"WSTASTEN. COM" CSD4E)2 | 
| 138 CDFB&ö] | 
| 148 ‘1. Programmteil: mit Pruefsumme [4876] 
| 158 FOR zeile=-1i@Bia TO 1802708 STEP 18 CBC7E]I 
18 pruef=D C4C8C] 
178 FOR i=@ TO 7 LESSE]I 
188 READ dfF: d=VAL("A"+d#) [7452] 
198 FRINT#F,CHR#(d): :pruef=pruef+td [4D14] 
zu00 NEXT CDGEZ] 
218 READ p | CZ1BE] 
228 IF pruef“>p THEN FRINT"Pruefsummenfe 
hler in Zeile"zeile:CLDSEDUT:END [C&3C] 
238 NEXT [78E8] 
240 " LEBBA] 
250 '2. FProgrammteil: ohne Pruefsumme [?73C] 
260 READ dt:WHILE d$<>"Ende" [3A22] 
278 IF LEFT£(d$,1)="!" THEN p#=RIGHT# (d# 
„1) ELSE p$=CHR#$ (VAL("R"+d$)) [5508] 
288 FRINT#7,p#: L1B3C] 
2978 READ d#t:WEND CDACE] 
sea " [EZB4] 
>18 CLOSEOUT:PRINT"Alles DO.K.":END [368A] 
328 LEBBEB] 
330 [CDFBA] 
0000 "Hauptprogramm [8SB3E] 
1Ba1D DATA C3,85,21,.00.,08,08,088,54, 438 L[3C&2] 
18028 DATA 61.73,74,65,6E,62,65,6C, 8454 L[öBBA] 
12038 DATA 55.57,75,6E,67,208,66,7D, 773 LE[B4CC] 
10840 DATA 72,20,53,63,68,6E,65,69, 748 TEAA2] 
10058 DATA 54,655. 72,290,43,52,43,34,. 513 [6348] 
iaBasa DATA 34,34,20,55,69,6E,73,74, 685 [43AB] 
10078 DATA &5.4C.5C,65,6E,2PD,BA,8D, 554 [DD1A] 
10088 DATA 8A,43,6F,78,79,72,69,67, 743 LCE4C2] 
188970 DATA &8.74,20,28,63,29,20,31, 513 L[1758] 
18108 DATA 31,2E,38,39,2E,531,397,39, 4989 [85898] 
ıiB11@ DATA 35.0D,8A,48,65,6C,6D,75, 583 [B3SEB] 
1B1208 DATA 74,20,54,69,73,53,68,65, 756 [A282] 
18138 DATA 72,0D.8A,41,73, 74,65, 72, 648 L[8597A] 
18148 DATA 4E,73,74, 72,61, 7E,65,28, 811 L[ESA6] 
18158 DATA 34.39,2C,28,44,2D,38,30, 3973 L[837A] 
| 18150 DATA 35,32,20,4D,65F ,6F,73,62, 647 L[FBCB] 
| 18178 DATA 75.72,67,0D0,08A,1A,21,80, 416 [2194] 
| 12188 DATA 09,39,22,08,10,31,20,50, 234 L[3B12] 
| 12190 DATA CD,298,BB,21,DA,B1,7E,235, 885 L[FEBE] 
182880 DATA 3C,CA,AC,„Bi1,3D,4E,23,E5, 838 [Bs35C] 
ıB218 DATA 85.,.088,297,E3,47,CD,GOF,BE„, 728 L[D?F4] 
18228 DATA E1,C3,96,81,7E,23,3C,CA, 9774 L[ES318] 
19238 DATA CF„81,30,454,23,F5,E5,CD,1853 C[FA4A] 
18240 DATA 27, BB, Ei,F1,454,23,F5,E5,1271 [8854] 
132580 DATA CD, '2D. BB, Ei: Fi, ab, ‚23. ES5,1237 L[5ASCI 
18248 DATA CD,33,. BB,E1, c3 ‚AC,@1, EB, 1271 L[938E] 
18278 DATA DE.89, CD.85,288,2A,08,10, 271 L[357C] 
182808 DATA FF,C? E3SCF8] 
10298 ' [3785] 
18500 ' [1278] 
18318 "Tabellenbereich des Frogramms: [79745] 
183280 ‘darf vom Anwender angepa”t werden 
(ohne Fruefsumme) [ZF4E)] 
183358 '’Entweder - Hexzahlen [4728] 
10340 °' oder -— '!'„, gefolgt von Ascii 
-zeichen [C8F1i8] 


Listing 2. Der Basic-Lader für eine neue CP/M-Tastatur 


"Nach, 


; 
in Ban Fall 


den! 


# 


ER ‚Verboten: 


# L.ı 
.@ 


Hexzahlen 


verwen 


"####++ Strings auf den Funktionsta 


sten 


"jeweils Nummer, Linge und Zeichen 
kette 
aB.02,.BF, 
801,82,0F,.'!I 


DATA 
DATA 
DATA 
DATA 


) DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


22.02, 


03.02, 


BF, 
il, 


'N 


'xk 
ei 


@4.02,11,7F 


05,02, 
24.02, 
27,02, 
28,02. 


11, 
il, 
11, 
11 


'IR 
'S 
E 
'D 


29,04, 11, 18,1 11, 
Da. ‚OD, 2OD,OB, 


„!.2!V, 


2B, ‚a2. 


„'R, an 


2B. 


aC,B5,@F, 
2D.82,.DB, 


GE,32,0B. 
OF.@2, 
10,02,11, 
11.83.11 
12,02.0B. 


BB, 


13,82,BB, 


14.802,06.‘ 
15,02,0B,' 
16,02, 

7,02, 
18,02, 


17.02, 
1A,02, 


, 1B,82, 
1C,02,0B,'! 
1D.22. 
1E,@22,0B, 
iF,B2, 


BB. 


OF, 
BF, 


11.! 
or, 


OF. 
OF, 


OB, ' 


17 
'L,iB 
ıK 
ıYy 
'H 
ıp 


‚'5,18 


IE 
IR 


IE 


IE 


„'B,'R, 


"Code f}r Tabellenende 


DATA 


FF 


##+##+ Tastenbelegung 
"Laoe der 
42.1B.15.0A 


DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


DATA 
DATA 


44,09 


‚81 


‚80 


18.07.14,83 
AF,7F,19,84 
20.25,12,85 
08,13,01.86 
02.18,03.87 
01,04,06,.88 
12,.BD,BE,1& 
2F „20.98.0C 
29.89.02.04A 


BA,'7, 


3, 


74 


0B.'8.80,93 
03,'9,8F.8E 
14,.'4,.9F,9D 
8C.'5,92.9C 
84,'6.8B,8A 
0D,'1,97,1A 
BE,'2.96.9E 
05,'3,.99,17 
aF.'9.9B,8C 


07,' 


.„9A.90 


205.71,.11,0B 
45,.FD,FD,.82 
"Deutsche Umlaute 
DATA 1A,!3,']1,1D 
DATA 1C,„'{,„![,„1B 
DATA 1D,7C,'!\,1C 
ZB, 1z,1Z,1M 
DATA 47,!y,!Y,197 


19,1”, 


1 
4 


1E 


Funktionstasten 


'I, 


'E, 


‚Sonderzeichen im Zentralblock 


DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


ii, 


= 


FF 


13, ee ‚SA,FF 
i6.1-,2° FF 


18,!=, 


'@, 


41.!2,22,FF 
"Code Tabellenende 
F 


'"##4#+#+#+ Meldetext: 


"Farbwahl+ "WORDSTAR -Tastenbeleau 


ng aktiw" 


DATA 
DATA 
DATA 
DATA 
DATA 


ı DATA 


1C,008,01,01,10,01.18.18 

„‚B1.0D0.BA, 'W, 'O, 'r 

Id, Is, ie 1a, 'r „28, 1- „28 

EB UT En ee 

I DR Alain, 
A 


1D,B1 


5 
iklit) 


i,!w, 
"äbschlü*zsichen 
DATA 24 


"Frogr ammende 
DATA Ende 


ıF 


[8418] 


[45C8] 
[3584] 
[LSAB&] 


[E186] 


[BEF4] 
[SAF6] 
[?BFB] 
[8112] 
ECAFB] 
[BiFA] 
EC5EA] 
CB7FB] 
[C2D4] 
[C35DA] 
EFDZE) 


[8142] 
L4AQBE] 
[2ASE] 
[5A18] 
[5538] 
[C2A1A]I 
CABE2 
CC9181 
C97F4] 
[BERQ] 
[79BE] 
[LFBEB] 
L72FE] 
CC408] 
LIFF2] 
(54821 
[2832] 
[832A1 
[B216] 
[7626] 
[751®8] 
[12281 
[DE2A] 
[2404] 
[1788] 
C32DE] 
LAB14) 
CD31C] 
CF282] 
[57DEI 
[CB44A] 
[35DC 
CADEA] 
[CSFB] 
[ö2EE] 
[22208] 
[5638] 
CC318] 
[F288] 
CB316] 
[7022] 
CA1L20@] 
[D216] 
[L7C14] 
[2604] 
[3026] 
[38E4] 
[5@3A] 
[C9BF4] 
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Anwendungs-Listing 


Immer auf 
dem neuesten 
Stand 















x] Samstag abend, 18 Uhr 30. 
x, „| Jetzt kommt die Tabelle 
SW der Fußball-Bundesliga in 
1“ | der Sportschau. »Alte Ka- 


melle.« können Sie sagen, wenn Sie 
»Ligaverwaltung« benutzen. 


Interessieren Sie sich auch für einen Sportverein, dessen 
Ergebnisse nie in der Zeitung stehen? Dann kennen Sie die 
Probleme, den aktuellen Tabellenstand des nächsten Gegners 
zu erfahren. Hier — aber auch bei Vereinen, die regelmäßig in 
den Medien auftauchen — hilft »Ligaverwaltung«. Der Weg »zu 
Fuß« (Kopfrechnen) wird vom Computer übernommen. Sie ge- 
ben nur noch die neuesten Ergebnisse ein und Ihr Schneider 
sagt Ihnen, wo Ihr Favorit gerade steht. 

Und das für jeden Verein in jeder Sportart (die in einer Liga, 
bei der es um Tore und Punkte geht, gespielt wird). Das Pro- 
gramm »Ligaverwaltung« ist menügesteuert und damit sehr 
leicht zu bedienen. Das Hauptaugenmerk wurde auf Komfort, 
Übersicht und Benutzerfreundlichkeit gelegt. Fünf der 15 
Punkte im Hauptmenü behandeln die Ergebnisse von drei 
selbstdefinierten Gruppen. Die Daten (Spielpaarungen, Ver- 
einsnamen und so weiter) für diese fünf werden an das Pro- 
gramm mit DATA-Zeilen übergeben. Die ersten neun Routinen 
dienen der allgemeinen Ligaverwaltung, so daß (theoretisch) 
jeder Verein verwaltet werden kann. Im folgenden werden die 
einzelnen Menüpunkte erklärt. 





Menü mit vielen Punkten 


1. Tabelle aufbauen 

Die Überschrift erscheint, wie bei jedem Menüpunkt, in ei- 
nem blauen Kasten. Es folgen die Fragen nach dem Namen der 
Tabelle und der Anzahl der Mannschaften. Nach der Eingabe 
dieser Daten kehrt das Programm zum Hauptmenü zurück. 
Dieser Menüpunkt dient zum Erstellen des Grundgerüstes ei- 
ner Tabelle. Er wird nur bei der ersten Eingabe gebraucht. Spä- 
ter kann die Tabelle leicht mit Menüpunkt 3 (Aktualisieren) ge- 
ändert werden. 
2. Tabelle ansehen 

Die Tabelle wird entweder in der Reihenfolge der Eingabe, 
oder (wenn sie schon geordnet ist) mit dem Besten startend 
auf den Bildschirm gegeben. Mit der Enter-Taste kommt man 
wieder zum Menü zurück. 
3. Tabelle aktualisieren 

Dieser Punkt dient der Erweiterung der Tabelle um die neue- 
sten Spielergebnisse. Ist die Eingabe korrekt, so muß eine be- 
liebige Taste gedrückt werden. Es empfiehlt sich aber, wie am 
Bildschirm gefordert, die »]«-Taste zu benutzen. Bei falscher 
Eingabe muß »[« gedrückt werden. 
4. Tabelle speichern und 
5. Tabelle laden 

Mit diesen beiden Menüpunkten kann die Tabelle als ASCII- 
Datei gespeichert beziehungsweise geladen werden. Das Pro- 


Ks pr > Be. Br: 



































gramm arbeitet mit dem Kassettenrecorder. Benutzen Sie die 
Diskettenstation, so müssen Sie einen Namen mit übergeben 
(bei OPENIN und so weiter). 

6. Tabelle löschen 

Man kann zwischen »ganze Tabelle löschen« und »bestimm- 
te Mannschaften löschen« wählen. Auf diese Weise kann eine 
neue Tabellenrechnung vorgenommen werden. 
7. Tabelle ordnen 

Die Tabelle wird nach folgenden vier Kriterien (in gleicher 
Reihenfolge) geordnet: 

1. Pluspunkte 

2. Punktedifferenz 

3. Tordifferenz 

4. geschossene lore 
8. Tabelle verbessern 

Es kann gewählt werden zwischen 
— neue Mannschaft einfügen 
— einen Fehler verbessern 

Die Daten werden wie bei »Tabelle aufbauen« für die neue 
Mannschaft — beziehungsweise fehlerhaft eingegebene — 
angegeben. So können Sie Fehler korrigieren. 

9. Tabelle ausdrucken 

Analog Punkt 2 erfolgt die Ausgabe auf den Drucker. 
10. Ergebnisse eingeben 

Wird dieser Menüpunkt gewählt, so befindet man sich im er- 
sten Punkt, bei dem es um die Verwaltung von Ergebnissen 
geht. Zuerst hat man die Wahl, welche der drei angegebenen 
Gruppen man bearbeiten will. Wer jetzt denkt, daß dieser Me- 
nüpunkt eigentlich dasselbe ist wie Punkt 3, hat sich geirrt. Die 
Spielpaarungen dieser drei Gruppen sind nämlich im Pro- 
gramm ab Zeile 10000 fest vergeben. So muß der Anwender 
nur noch Gruppe und Spieltag eingeben und die Begegnun- 
gen des gewählten Spieltages erscheinen. Die Ergebnisse 
können nun sehr schnell und sicher eingegeben werden. Die 
Resultate sind, im Gegensatz zu Menüpunkt 3, fest durch Va- 
riablen im Speicher abgelegt. 

Natürlich kann jeder die zur Demonstration dienenden drei 
Gruppen (Handball, Fußball, B-Jugend) ändern zugunsten 
von Mannschaften, auf deren Ergebnisse und Tabelle er be- 
sonders oft und schnell zurückgreifen möchte. Wie das am) 
schnellsten geht, zeigt das »Schema zur Änderung der Grup- 
pen«. 

Nach der Eingabe erscheint die Frage, ob die Ergebnisse 
auf die Tabelle übertragen werden sollen. Will man dies, so 
werden die neuen Ergebnisse entweder zu einer schon defi- 
nierten Tabelle dazugezählt — oder wenn noch keine Tabelle’ 
im Speicher ist — wird aus den Ergebnissen eine neue Tabelle 
berechnet. Für die drei Gruppen müssen jetzt nur noch die Er- 
gebnisse abgespeichert werden, da sich die Tabelle aus den 
Ergebnissen errechnen läßt. Sämtliche Menüpunkte stehen 
für die Tabellen dieser Gruppen zur Verfügung. Will man eine 
zweite Eingabe machen, so muß nur noch der neue Spieltag 
angegeben werden. Die Gruppe wurde ja schon vorher ge- 
wählt. 

11. Ergebnisse ausgeben 

Dieser Menüpunkt ist das Gegenstück zu »Ergebnisse ein- 
geben«. Es wird zuerst gewählt, ob die Ergebnisse eines be- 
stimmten Spieltages oder einer bestimmten Mannschaft aus- 
gegeben werden sollen. Wurde nicht schon vorher eine der 
drei möglichen Gruppen festgelegt, so kann das jetzt nachge- 
holt werden. 

Will man die Resultate einer bestimmten Mannschaft sehen, 
so muß die Mannschaft und der höchste auszugebende Spiel- 
tag aufgerufen werden. Der Computer gibt dann alle Begeg- 
nungen und Ergebnisse der gewünschten Mannschaft bis zu 
diesem Spieltag aus. 

12. Ergebnisse speichern 

Es können die Ergebnisse einer gewünschten Gruppe bis 
zu einem bestimmten Spieltag unter einem einzugebenden 


1/86 Sonderheft Schneider 


> a u 

















Namen gespeichert werden. 
13. Ergebnisse laden 


Auf Kassette gespeicherte Ergebnisse können geladen 
werden, wobei man nach dem Ladevorgang erinnert wird, wie- 
viele und von welcher Gruppe die Ergebnisse geladen wur- 
den. Es besteht danach wie bei »Ergebnisse eingeben« die 
Möglichkeit, sämtliche Resultate auf die Tabelle zu übertragen. 


14. Ergebnisse löschen 


Ergebnisse werden gelöscht, die Tabelle bleibt jedoch un- 
berührt. Wenn man die Ergebnisse einer anderen Gruppe be- 


handeln will, so ist zuvor dieser Menüpunkt zu wählen. 


15. Programm beenden 
Beenden des Programms 


(Thomas Sommer) 


| Schema zur Änderung der Gruppen: 


1. In den Zeilen 5610 bis 5630 müssen die Namen der drei 


| Gruppen geändert werden. 


2. In den Zeilen 6080 bis 6110, 6130 bis 6160 und 6180 
bis 6210 müssen für jede Gruppe folgende Daten geändert 


werden: 


| — die Variable az muß auf die Anzahl der in der Gruppe be- 


teiligten Mannschaften gesetzt werden. 


— »gruppe« muß den Namen der Gruppe enthalten. 
— in der DATA-Zeile müssen die in der Gruppe beteiligten 


Mannschaften angegeben werden. 


| 3. In den Zeilen 10000, 20000 und 15000 müssen die 
_ einzelnen Begegnungen als Code in Form von DATA-Zeilen 


| angegeben werden. Der Code funktioniert folgenderma- | 


_ Ben: Es werden für die einzelnen Mannschaften Zahlen ge- 
setzt, wobei für die erste Mannschaft jeweils eine »1« ge- 
setzt wird, für die zweite eine »2« und so weiter. Immer zwei 
Zahlen nebeneinander bilden eine Paarung. Gibt es eine 
ungerade Anzahl von Mannschaften — also ein spielfreies 
Team — so muß dieses an den Schluß der DATA-Zeile ge- 
setzt werden. Ein Spieltag wird immer in eine DATA-Zeile 
gesetzt. Der nächste Spieltag in die nächste und so weiter. 


Wer mit diesem Programm die Ergebnisse von mehrals drei 


Gruppen verwalten will, kann die DATA-Zeilen separat ab- 
speichern und sie mit »merge« ins Programm zurückholen. 


| Bundesliigdg mann 


Hannschafte Spiele Tordif. 
; Werder Bremen 
„;„ Bor. Fönchengladbach 
; Bayern München 
. Bayer Leverkusen 
: 1.FC Kaiserslautern 
: EWW Mannheim 
„ Hamburger 5W 

.« WEB Stuttgart 

; WEL Bochum 

: 1,FC Käln 

.„ Bayer Verdingen 

: FE Schalke B4 

. Eintracht Frankfurt 

: 59V Hannover 975 

« I-FC Mürnberg 

.: 1,.FEC Saarbrücken 

; Borussia Dortmund 

: Fortuna Düsseldorf -11 


Schneller als die Sportschau sind Sie 
mit »Ligaverwaltung« 


ES» 


Eh En a u nn u ME nn a u 














Be ee ee ee a ee a ae 2 2 2 2 ee 2 
##++ Sporttabellenberechnung ### 
**% CPC 4654 **% 
**%* **#+ 
### ”#H 

-M ### 7981 Dorndorf *+* 

78 “nr Ringstr. 29 **# 

BB REM RBB 

78 name# (25) „spiele (25) „pu (25) „mipu( 

25) „tor (25) „dif (25) 
100 DIM kator (25) ‚w(25, 25) „mas$ (25) „er#( 
25,25) ‚er (25,259) 


(c) by Thomas Sommer 


En a En 


.:- em me u 





[8936] 
[5084] 
CCOAEI 
CB248] 
CB3E6] 
[7EAA] 


LS35D2] 


[Ds44] 
[3ESCI 
LSEFö] 


118 
138 
148 


| FEN 1: INPUT" <CTRL 











Anwendungs-Listing 


MODE i 

ON ERROR GOTO 5218 

INK 1,18:INK 2,25:INK 3,5: INk 8,8:BO 
RDER 8: PAPER B:PEN 3 
WINDOW#1,1,40,1,2 

PAPER#1 ,3 

CLS#1 

TAG 

MOVE 48,390 
PRINT''"TTABELLENBERECHN 
UN G"; 

PEN 1 

MOVE 1,358 

PRINT "Author: THOMAS SOMMER{iS SPACE}D 
esign: ARNDT JANZ"; 

TAGOFF 

LOCATE 1,5 

SPEED INK 18,18 


PEN 2 

PRINT"{14 SPACE3M EN UE :" 

FEN 3 

PRINT; TAB (3); STRING# (36,284) ; 

PEN 1 

PRINT"{5 SFPACE}Tabelle erstellen.... 

.-:-.-iCETRL X}-1-{CTRL X}" 

PRINT" 5 SPACE}Tabel le ansehen. . u... 
„. TETRL %3>-2-{CTRL X3" 

PRINT"<5 SPACE}Tabelle aktualisieren 

«...tCETRL X3-3-{CTRL %X3" 

FRINT"£{5 SPACE}Tabelle abspeichern.. 

“.„„ILTRL %X3-4-{CTRL X}3" 


|‘ PRINT"£5 SPACE}Tabelle laden........ 


.... tECTRL %3-5-{C6TRL %3" 


A FRINT"{i5S SPACE}Tabelle loeschen..... 


„.„..iLTIRL %X3-6-{CTRL %3" 
PRINT"{5 SPACE}Tabelle ordnen....... 
.e.. {CTRL “+-7-AiCTRL x} = 
PRINT"{5 SFACE}Tabelle verbessern... 
„-„..tLCTRL X3-8-{CTRL X" 
PRINT"{5S SPACE}Tabelle ausdrucken... 


.... iCTRIL A}- 9-{CTRL xr" 

PEN 3 

FRINT; TAB (3) ;STRING$ (36,285); 

PEN 1 

ag SPACE}Ergebnisse eingeben.. 

PRINT" {5 SFPACE}Ergebnisse ausgeben.. 
„13-" 

PRINT" CS SPACE}Ergebnisse abspeicher 

n. .-172- 

FRINT"{S SFACE}Ergebnrisse laden..... 

et ade 

PRINT"{5 SPACE}Ergebnisse loeschen.. 

FE Kun © all 

PEN 3 


PRINT; TAB(3) ;STRING$ (36,204); 
PEN 1 
PRINT"{5 SPACE}Frogramm beenden..... 


„„„iLTRL %3-15-{CTRL X" 

FEN 2 

FRINT 

INPUT"Ihre Wahl bitteiZ SPACE} (I1-15) 


£2 SPACE} >enter< 
SPEED INK 48,4 


ON auswahl SÖSUB 588,720,1150,1518,1 


"auswahl 


ng 1950,2440,2700, 3240 ‚>4490,41640,47 
28,5110,5410,5580 

Bein 118 

REM 

REM #+#*+ Tabelle erstellen ### 

r= 


usf="T AB ELL EiS SPACE}erstellen" 
:GOSUB 5678 

PRINT=:PRINT 

PEN 3 


INPUT"Wie heisst Ihre Tabelle ";na# 


PEN 1 
ı PRINT:FRINT"Wieviele Mannschaften si 


nd an der Tabel-le"; 

INPUT " beteiligt (2-28) "sanz:IF an 

z<2 OR anz>28 THEN CLS:60T0 598 

PEN 3:PRINT:FRINT"Geben sie erst Nam 

e, dann Spiele, FPlus-" 

PRINT"punkte „Minuspunkte ‚geschossene 
Tore, und"; 

PRINT"zuletzt kassierte Tore an. " 

FRINT:PRINT 

WINDOW #2,1,40,168,24 

WINDOW SWAP 3,2 

FÜR n=e r TO anz 

PEN 2:n$=STR# in} ın#$=MID# in#,2):PRINT 
n#;". Mannschaft:":PRINT Er 

X}Name{7 SPACE}: {C 

TRL X3"s;name#$ (n) 

PEN 3: INPUT" {CTRL X3Spielei5 SPACE}: 


- £{ETRL %X}";spiele(in) 


PEN 1: INPUT" {CTRL 
{CTRL X3"spuin) 


X}Punktef5 SPACE}: 


Listing. »Ligaverwaltung« 


[8AS5B] 
[DA78] 


[28A2] 
[4412] 
CAEC2]I 
[51DA] 
[9328] 
[&B88] 


[811lC) 
[21CC] 
[L18BE] 


[25D8] 
[83D8] 
[D548] 
[8778] 
[37DA] 
LASSC]I 
[s5EB] 
[8F?&] 
L41CE] 


L7FEE) 
CA2D2] 
[23001 
CBFAEI 
[56DA] 
CBD64] 
[4FBA] 
[8B98] 
[6689] 
[29041 
[BS8C 
[23D4] 
L1C5A2 
[SF78] 
C&AFDCI 
[BAGB] 
[14923 
[31E4] 
[SF9A] 
C2DD23 
LFF7AI 
[2DD8] 
[468A] 
C8SECI 
[CFES2] 


[&D48] 
[CF4E] 
[S5E42] 
[1B4A] 
[AB34] 
L1D2E) 


[ö8CE] 
[C11A] 
[HIER] 
L2Adb6] 
EZFEB] 
[4BBC] 
L749A] 
[4728] 
[2F72] 
[SB1A] 
[AA1A] 
[5932] 
[C558] 
[39758] 
[&97D2] 
[7814] 
[C7Dö] 
L1CC4] 


EM APPYR 





den 1 # 
are ec L 


-* “ 
. - x _ “ er | a 
a. 228 200 EEE 5 

































































788 
778 


1208 
1818 


1028 
1050 
1840 
10580 
1858 
1078 
1088 


PEN 3: INPUT"{CTRL X}Minuspunkte:s {CTR 
L X3"s;mipui(n) 

PEN 1: INPUT"{CTRL X}Tore{7 SPACE}: {C 
TRL X}";tor (n) 

FEN 3: INPUT"{CTRL X}Gegentore{i2 SPAC 
E}=: {CTRL X}":kator (n) 

CLS 

NEXT 

WINDOW SWAP 2,8 

PEN 2:LOCATE 1,17 

PRINT STRING$(40,"-"); 
PRINT"i8 SPACE}Das war ’s schon 
PRINT STRING$ (48,"-") 

FOR w= 1 TO 1BB8Q@: NEXT 

RETURN 

REM 

REM #*#* Tabelle ansehen ##*# 


RE 

MODE 2 

PEN 1 

LOCATE 15,1 

PRINT" ana 2 SPACE} "ına$; " 
i2 SPACEF#HHHH HEHE" 

PRINT 
PRINT"Mannschaft"; TAB(33); "Spiele"; 
TAB (42); "Tordif."; 

PRINT, TAB (54) ; "Tore"; TAB (69) ; "Punkt 


PRINT STRING# (80,154) 

FOR n= 1 TO anz 

PRINT CHR$(24) 

LOCATE 1,n+4:FRINT STRING$(8BQO," ") 
LOCATE 1,n+4 

dif (n)=tor {in} -kator {n) 

PRINT n;". "zname# in); TAB(32) ;CHR$ 
(149) ;spiele(n) ; TAB (4B) ;CHR$ (149) ıd 
if in)s TAB (SB) ; CHR& (149) stor (n); TABL 
7); ":"skator in}; TAB (45) s CHR$ (149); 
pu(n)z;TAB(72);5":"smipuin) 

NEXT 


PEN 1:PAPER & 
LOCATE 29,25:PRINT"Zum Menue-Progra 
mm geht '’s mit >enter“" 


ııı9 
. 0." 


1128 a$=INKEY# 

1138 IF as#=CHR#(13) THEN RETURN 

1148 GOTO 1128 

11580 REM 

11580 REM ##*+ Tabelle aktualisieren ###* 





REM 

ust="T ABELL E{S SPACE}aktualisi 
eren":GDOSUB 55978 

FRINT=:PRINT:PEN 3 

PRINT"Ich nenne ihnen nun die einze 
Inen Mann-" 

FRINT"schaften, und sie geben dazu 
ein,wieviel"; 

PRINT"Tore sie geschossen und kassi 
ert hat." 

PRINT"Wenn sie bei der angezeigten 
Mannschaft" 

PRINT"nichts aktualisieren wollen, 

dann geben" 
PRINT"sie bei 
9997 ein."; 
PRINT:PRINT:PEN 1 

WINDOW #3,1,490,14,14:WINDOW #4,1,48 


„18,25 
1 TO anz 
PEN 2:LOCATE 1,14:PRINT "{CTRL X+"; 


geschossen’ die Zahl 


name# (n)s "{CTRL X}" 

FRINT 

FRINT STRING# (49,"-") 

PRINT 

PEN 1:LOCATE 1,18: INPUT"{CTRL X}ges 


chossen :{iCTRL X3";gesch 

IF gesch=997 THEN GOTD 1468 

PEN 3:LOCATE 1,19: INPUT"{CTRL X}kas 
siert{3 SPACE}: {CTRL X}";kass 

PEN 2:LOCATE 1,21:PRINT"Eingabe kor 
rekt: ’]1'{i2 SPACE}#falsch: '[L'" 
“»t=INKEY$: IF x$="" THEN 1370 

IF x$="]" THEN 1488 

IF »*="[" THEN CLS#4:60T0 13308 

IF gesch>kass THEN puin)=puin)+2 

IF gesch=kass THEN putin’=puin)+1:mi 
puin)=mipuin)+i 

ig gesch<kass THEN mipuin)=mipuin)+ 


tor {(n)=tor (n)+gesch 

kator (n)=kator ({n) +kass 
spielein)=spiele(n)+1 
CLS5#3:CL5#4 

NEXT 

PEN 2 

LOCATE 1,14 

GOTO 878 

REM 

REM #*** Tabelle abspeichern ##*# 


REM 
us$="T ABEL L E{S SPACE}abspeiche 





[5D7C] 
[S5QS5C] 


LEBC&] 
[223A] 


CB1Bö] 


LSEAE] 
ED47E] 


[5S2F8] 


[öA1A] 
[5414] 
[1225] 
L[E874] 
[L7A265] 
[4ED2] 
[1878] 


C4F6A] 
EFFS2] 
[5AS3B] 


[ABBE] 
£C474] 
[BEB&ö] 
CB405] 
[2D96] 
CEFE4] 
[3BFA] 


[7978] 
[C25E] 


[C558] 
[5A44] 
EF2F6] 
L185E] 
CDB22] 


[FBF&6] 
[A356] 


[28CA] 
[ASS54] 


[BB1C] 
EB1iE2] 
[A?FBE] 
LAFESö] 


[35604] 
[4238] 


[6546] 


[CABB4] 
[BES5B] 
[#772] 
[C82C] 
[42BE] 


[F84A] 


[D415] 
[5184] 
CB8868] 
[BABA] 
[öB2C] 
[F756] 
[EB44] 
ECBiB] 
[öFBC] 
[31965] 
[5D@A] 
[SFPFA] 





2278 
2280 


2298 
2300 
2318 


| INPUT 


rn":6G05UB 5498 

PEN 3 

LOCATE 1,„&:FRINT"Ihre Tabelle wird 

abgespeichert, bittei2 SPACE}warten 
sie." 

FRINT:FRINT 

PEN 1 

OPENOUT "Tab" 

PRINT #97,na# 

FRINT #9,anz 

FOR n= 1 TO anz 

FRINT #7 ,name# in) 

PRINT #7,spielein) 
FRINT #97,pu(n} 
FRINT #7,mipu(in) 
FRINT #%,tor {n) 
PRINT #97,kator {n}) 
NEXT n 

ELOSEOUT 
FRINT:PRINT 


REM #+#*# Tabelle laden ### 
REM 


uf="T ABEL L E{i3 SPACE}laden":60 
SUB 56978 

PEN 3 

LOCATE 1,5:FRINT"Ihre Tabelle wird 

geladen, bittef{iß SFACE}warten sie." 


FEN 1:PRINT:FRINT 


| OPENIN " 


INPUT #9,na$ 
INFUT #9,anz 

FÜR n= 1 TO anz 
INPUT #9 ,name$ (n) 
#7 ,spielein) 
#9 ,puin) 

#7 ,mipu(in) 
#97 ,tor (n) 

#9 ,kator in) 


INPUT 
INPUT 
INPUT 
INPUT 
NEXT n 


| CLOSEIN 


FRINT:FRINT 


REM ##* Tabelle loeschen ### 
REM 


uf="T AB ELL EÄi3 SPÄCE}loeschen" 


: GOSUB 5698 
FRINT:FRINT:PEN 3 


FRINT"{iCTRL X>Wollen sief{CTRL X}":P 
RINT 
PEN i 
PRINT"die ganze Täabelle.....-..... {C 


TRL %>-1-{CTRL X3":PRINT 

FRINT"o d e r":PRINT 

FRINT"eine bestimmte Mannschaft..{C 

TRL X}-2-{CTRL X}":PRINT 

FEN 3 

PRINT" {CTRL X}loeschen FTICTRL X}":P 

RINT:FRINT 

FEN 2 

INFUT" {CTRL X>Ihre Wahl 
“}"zwahl 

FRINT:FRINT 

WINDOW#S,1,40,4,25 

ON wahl GOTO 2388,21498 


(1-2) {CTRL 


REM bestimmte Mannschaft loeschen 


ECLS#5 
LOCATE 1,6 

FEN 3 

INFUT"Welche Mannschaft soll aus de 
r Tabellei2 SFPACE}geloescht werden 
"10% 

PRINT:FRINT:PEN 1 

INFPUT"Wollen Sie diese Mannschaft w 
ırklichi4 SFACE}loeschen (j/n)"z;qg$ 
IF q$="j" OR q$="J" THEN 2238 ELSE 


G60TO 2318 
n2=B 
FOR n= 1 TO anz 


IF name#(n)=1l1o# THEN n2=1 

IF n2=1 THEN name$ in) =name# (n+1):sp 
ielein)=spiele(n+1):pu(n}=pu(n+i):zm 
ipuin)=mipu(n+1):stor (n)=tor (n+i1):ka 
tor (n}=kator (n+1) 

NEXT 

IF n2=8 THEN PRINT:PRINT"nicht vorh 
anden '":FOR n=1 TO 15B0:NEXT:GOTO 
2318 

anz=anz-1 

FEN 2:FRINT:FRINT: GOSUB 
FEN 3 . 


878 


Listing. »Ligaverwaltung« (Fortsetzung) 





[359E] 
[E342] 


[OBAs] 
[5382] 
[E644]1 
CA428] 
[Fö1E] 
C7DCCI 
[C138] 
CE146] 
[9402] 
CABBA] 
[5238] 
[206E ] 
CE188] 


[5DAB] 
[Eö4C] 


[CH24] 
[2156] 
E3FEA] 
[C82C] 
[87DA] 
[LAFS8]1 
[1654] 
[2508] 
[A878] 
[8646] 
£D?7C]I 
[D294] 
LAA7B] 
LFIFZZ 
L7F82] 
EFB44] 
[87CE] 
[9048] 
[29Bö] 
[35AC] 


[LZE4A] 
[DB4C] 


LEEFA] 
[E338] 


[E888] 
[EF1B] 


LEBBA] 
L[FSSE] 


L3758] 
LEF3E] 


LA?56] 
[236E] 
.SSE8] 
[B4BE] 
EBBiA] 
[SFF2] 
LIT71EI 
[CD45] 
[FBAA]I 
[ES42] 


EF45E] 
[FB4C] 


[B297C] 


[FD28] 
[8BEB] 
[CBHZE] 
[SCAA] 


[BOF8] 
CDFS4] 


E[DBBö] 
[A134] 
[CD42] 
[0438] 








2328 
2358 


2348 


2300 
2360 
2370 
2388 
2390 
2400 
2418 
2420 
2430 


2440 


25970 


LOCATE 1,24 


INFPUT"Wollen sie noch eine Mannscha 
ft loeschen (j/n) "sfr$ 
IF fr$="]1" OR 1 " THEN GOTO ?14 


13) 
IF fr£&="N" OR fr#="n" THEN RETURN 
GOTD 2328 


REM ganze Tabelle loeschen 


ECLS#5 

FEN i 

LOCATE 1,6 

INFUT"Wollen Sie die Tabelle wirkli 
ch loeschen ( j/n)";fr# 

IF fr£="j" OR frt="J]" THEN ERASE na 
niet, kar Katar nu ehe 


DIM name# (25) ,spiele (25) „pu(25) „mip 

u(25) „tor (25) „kator (25) :na$="" :PEN 
2:PRINT:FRINT:GOSUB 878 ELSE RETUR 

N 

GOTO 118 

REM 

REM ##*+ Tabelle ordnen ### 

REM 


uf="T AB ELL E{iS SPACE}ordnen":6 

0OSUB 54r8 

FRINT:PRINT 

FEN Z:INPUT"Soll Ihre Tabelle wirkl 
ich geordnet wer-den {j/n)";w# 

IF wE="j" OR w£="J" THEN FEN 1:60T0 
25538 ELSE RETURN 

FRINT:FRINT:FRINT"Bitte warten sie" 
:FRINT:FPRINT:PRINT 

FOR i= 2 TO anz+i1:fl=B 

FOR ji= anz TO i STEF -1 

IF pu(j-1})<pui(j} THEN GOSUB 2428 

IF pu(j-i)=pu(j} THEN IF putj-1)-mi 

putj-i)<pu(j?-mipu(j) THEN GOSUB 26 
28 


IF putj)=puti-1) AND pulj-i1)-mipu(j 
-1)=pu(j}-mipui(j} THEN IF tor(j-i1)- 
kator (j-1)<tor(j)-kator(j) THEN GOS 
UB 2428 

IF putj)=puti-1) AND putj-1)-mipu(j 
-1)=pu(j?-miputj) AND tor (j)-kator { 
jI=tor (j-1)-kator (j-1) THEN IF tort 
3j-1)<tortj) THEN GOSUB 2428 

NEXT ji: IF fl=8 THEN FEN 2:60T0 878 


NEXT i:PEN 2:60T0 878 
h=pu(j)rputj)=pulj-L):sputj-1)=h 
h=mipu(j)zmipu(j)=mipu(j-1):miputj- 
i)=h 

h=kator (j) :kator (j)=kator (j-1) :kato 
rtj-1)=h 

h=tor (j) tor {j)=tor (j-1):tor tj-1)=h 


h=spieleij):spielel(lj)=spieletj-i):s 
piele(j-1l)=h 

hf=name# ( j) zname$ ( j)=name$ (j-1) nam 
e#+ ( j-1)=h# 

tl=1 

RETURN 

REM 

REM #*+*#* Tabelle verbessern ### 

REM 

uf="T AB EL L E{i3 SPÄACE}verbesser 
n":GO5SURBR 55970 

FRINT:FRINT 

FEN 1 | 

FRINT"Eine neue Mannschaft einfuege 
n {CTRL X3-1-£CTRAL X"; 

FRINT STRINGF(38," _")=:PRINT:PRINT 
FRINT"o d e r":PRINT:PRINT 
FRINT"Einen Fehler verbessern{iB 5PA 
CE}XCTRL %3-2-{CTRL X3";5 

FRINT STRING$ (23,"_"}: PRINT: FRINT:F 


FEN 3: INPUT" {CTRL X>Ihre Wahl bitte 
>enter< {iCTRL X+":wahl 

FRINT 

WINDOW #5,1,40,4,25 

ON wahl GOSUB 2878,38030 

RETURN 


REM neue Mannschaft einfuegen 


r=anz+tl:anz=anzt+tli 

IF anz >28 THEN anz=28:LOCATE 1,21: 

FEN 2:FRINT"Tabelle ist ueberfuellt 
FOR n= 1 TO 2888:NEXT :RETURN 

ECLS#5 

LOCATE 1,4:PRINT:PRINT"Geben sie er 

st Name, dann Spiele, Flus-" 

PRINT"punkte „Minuspunkte „geschossen 

e Tore, und": 

PRINT"zuletzt kassierte Tore an. " 

GOSUB 738 

PEN 3:LOCATE 1,24 

FRINT"Wollen sie noch einmal eine M 


[88084] 
L[C5B4] 


[4AöC]I 
[LO7FE] 
[688016] 
2726] 
[4EAB] 
[FF2A] 
[A540] 
LEö4S35] 
[E3A6] 


[öD2ZE) 


[BC54] 
[AAAC] 
[33AB] 
[9518] 
[47A4] 


[Lö 7/AC]I 
[5376] 


L71B8] 
EF3SC] 


LFBSB] 
[17D5] 
L2ES2] 
[BSFE]I 


L8DDA] 


L3F58B] 


[DEF&] 


ECH?FE] 
[5FA4] 
L1E42] 


[35F4] 
L 7226] 
[42C8] 
[ABS2] 


[BBDC] 
[7850] 
[8DA2] 
[3S5F7A] 
[EF84] 
[419E] 


CEE18] 
[S5B82] 
[7444] 


LOFSA] 
[8AS2] 
E15B4] 


[S2ZFC] 
[D2D8] 


[2BD4] 
L12F2] 
[393A] 
[8DB4] 
[8397E] 


ECBZE] 
[48356] 


[Cc232] 
[4058] 


E1B88] 
[224C] 


[E1EA] 


[3SEB] 
[3588] 
[C854] 
[88F8] 





29780 
29970 


>aaB 
S@a18 
>028 
>030 
S>a40 


annschaft" 

INPUT"einfuegen (j/n)";fr# 

IF fr£="j" OR fr$="J" THEN GOTO 287 
1") 

IF fr$="n" DR fr#t="N" 
GOTD 29778 


THEN RETURN 


REM Fehler verbessern 


LLS#5 

FEN l:aush=sanz 

LOCATE 1,5 

INPUT"Bei welcher Mannschaft wollen 
Sie einei2 SFACE}Verbesserung vorn 

ehmen ";ma# 

FOR n= 1 TO anz 
m matf=name# (in) THEN r=n:anz=n:op=i1 

NEXT 

IF op“ >123 THEN GOTO 3188 

FEN 3:L0OCATE 1,8 

FRINT"Geben sie erst Name, dann Spi 

ele, Flus-" 

PRINT"punkte „Minuspunkte ‚geschossen 

e Tore, und"; 

PRINT"zuletzt kassierte Tore an. " 

GOSUB 738:G0T0O 31970 

FRINT:FRINT:PRINT"nicht vorhanden ! 
sä 


r=l:anz=aush:op=®B 

FEN 3:LOCATE 1,24 

FRINT"Wollen sie nocheinmal eine Ve 
rbesserung" 

INPUT"vornehmen {(j/n) ";fr# 

IF fr#="j" OR fr$="J" THEN GOTO 383 


u) 

IF fr&="n" OR fr#="N" THEN RETURN 
GOTO 3208 

REM 


REM #** Tabelle ausdrucken ### 

REM 

ut="T AB EL L E{i3 SPÄäCcE}ausdrucke 
n":GOSUB 5678 

PEN i 

FRINT:FRINT: INPUT"Ist der Drucker b 


ereit (j/n) ";fr# 

IF fr$="n" OR fr£="N" THEN RETURN 
FEN 3 

LOCATE 1,9:PRINT"Tabelle wird ausge 
druckt - "etwas Geduld" 


FRINT#8, TAB (18) 3" ataeataeataZ =} 
PACE} "sna$; "> SPACE Fr 
[7] 


PRINT#B 

FRINT#8,TAB{(2); "Mannschaft": TAB (33) 
"Spiele": TAB{42);:"Tordif.": TAB (54) 
"Tore"; TAB (59) ; "Punkte" 

FRINT#8B 

FÜR n= 1 TO anz 


 dif (n)=tor (n)-kator in) 


Slecnrı tan: ":name# (in)s TAB(35) 3; 5p1 


elein)sTAB(44);dif (n) ; TAB{5?2) ;tor (n 
)z TAB(58) 5": "skator (n); TABt57) ;puln 
I: TAB(72)3":":mipuin) 
NEXT n 

 GOTO 848 
REM 


A *+#+ Ergebnisse eingeben ### 
EM 
u$="ERGEBNI1S5S3S3 E{iS SPACE3ein 
geben":6OSUB 5470 

z$5="":5pt= 

FRINT:FRINT 

PEN 3 

IF wa<i OR wa>3 THEN 3528 ELSE FRIN 
T"{iCTRL X3";gruppe#; ":{CTRL %}":GOT 
0 5680 

FRINT"Sie koennen zwischen folgende 
n Gruppen{2 SPACE}waehlen:" 
FRINT:FRINT 

FEN 1 
PRINT"Fussball-Bundesliga......{CTR 
L %3-1-{CTRL %X}":PRINT 
FRINT"Handball-Bundesliga......{CTR 
L %3-2-{CTRL %}":PRINT 
FRINT"B-Jugend (Kreisstaffel)..{CTR 
L X3-3-{iCTRL X}" 

PEN 3:PRINT:PRINT: INPUT"iCTRL X}Ihr 
e Wahl bitte (1-35) {CTRL X3":wa 

IF z#$="+" THEN RETURN 

FEN 1:FPRINT: INPUT"{CTRL X}Welcher 5 
pieltag bittei3 SPACE}{CTRL X}";:st 
PEN 3 

IF z$="##" DR z#$="###" THEN 34708 
FRINT:FRINT:FRINT"Sollte eines der 
angegebenen Spiele" 

FRINT"nicht stattgefunden haben,so 
geben sie" 

PRINT"zwei mal die Zahl '7979' ein." 


Listing. »Ligaverwaltung« (Fortsetzung) 


C6QAEI 
[2858] 


L7396] 
[BDFB] 
[1BI1E] 
[B?18] 
EB33E] 
[931C] 
[A544] 
LCF1C)I 
LE3A8] 


C7D523 
IFA36] 


[SDD8] 
[Eö448] 
L2ASB] 
[C388] 


[S5s8C] 


L1BDö] 
E317E] 
[1B9A] 


[iDGE] 
[E288] 
[F797EB] 


[76445] 
[BCB8B] 


[41658] 
[BDFC] 
[7518] 
[3BF7E] 
[2274] 
[82A2] 


[8508] 
[7054] 


CAASCI 
L1iSFA] 
LEBSE] 


[3174] 


[LFAABI 
[Z2AAB] 


[D824] 
[94AC] 
[?&43C] 
[S46E] 


[75Bö] 
LEB&SCI 
[87C2] 
[4EFE] 
[7720] 
L1CA2] 


C7CB4] 
CB118] 
[5188] 
[EBSCI 
[8162] 
[1340] 
[597E] 
[F840] 
[E276] 
EFDZE] 
EFCF2] 


[SEEö] 
L7F78] 


[FöFE] 
CDF48] 
[3474] 
[77BC] 
[F23C] 


[OBSFB] 











4 4040 
4070 

4980 
Ei | 4090 


4100 


4110 
4128 
4130 
4148 


4158 


[" 4140 
“ 4170 
ie. 4188 
Be 41708 

42008 


Anwendungs-Listing 5 


' FOR n= 1 TO 3000: NEXT 


ON wa GOSUB 4828,40790,4128 

IF az/2<>INTtaz/2) THEN az2=az-1 EL 
SE az?=az 

FOR k= i TO az 

READ mas#(k) 

NEXT k 

IF wa=i THEN RESTORE 42808 

IF wa=2 THEN RESTÜORE 4340 

IF wa=3 THEN RESTORE 4408 

IF z$="#+" THEN RETURN 
FOR n=i TO st-1 

FOR m=1 TO az 

READ wim,n) 

NEXT m,n 

n=st 

MODE 2:PEN i 

PRINT gruppe# 
PRINT"{CTRL X}"sst;". 
L X3":PRINT:PRINT 

IF z#="##*" THEN RETURN 
FOR m=1 TO az2 STEP 2 
READ wim,n’:READ wim+1,n) 

ent mas$(w(im,n))s" — "smas#(wim+1 
‚n)) 
PRINT 
INPUT 


Spieltag: {CTR 


CHR# (11); STRING$ (58,9); : LINE 
er$(m,n) 

PRINT CHR#t11);5TRING$ (53,9);" : "3; 
:LINE INPUT er#(m+i,n) 

er im,.n!=WAL (er$&(m,n}’) ter (m+i1 ,n)=VAL 
(er#im+i1,n)) 

NEXT m 

IF az2<>az THEN READ wim+1,n) PRINT 
:PRINT"Spielfrei: "imas#(w(m+i1,n)) 
WINDOW#7,1,80,24,25:LOCATE 1,24 
GOSUB 5818 

spt=d 

LOCATE 1,25 

er eine Eingabe {(j/n) ";zwah 


THEN z#$=" 
THEN GOTO 


IF wahl$="j" OR wahl$="J" 
*#*":LOCATE 1,24:60T0 3680 
IE unhle=tnt OR wahls="N" 


1 
4000 GOTO 3958 


REM Fussball-Bundesliga 

RESTORE 42858: az=18 
gruppe#*="Fussball-Bundesliga":RETUR 
N m 


DATA Bremen „Moenchengladb „Nuernberg 
„‚Mannheim,Frankfurt „Muenchen,Leverk 
usen „Koeln ‚Bochum Kaiserslautern ,Ue 
rdingen „Hamburg ‚Stuttgart „Duesseldo 
rf ,Saarbruecken „Dortmund ,Schalke,Ha 
nnover 


REM Handball-Bundesliga 
RESTORE 4188: az=14 
BE DDRET TARONAE I BUNERBN ER ERE TER 


DATA TV Grosswallstadt,FA Goeppinge 
n„VfL Guenzburg,TuSEM Essen,TBV Lem 
g0,TuRu Duesseldorf ,OSC Dortmund,MT 
SV Schwabing,Weiche-Handewitt,THW K 
iel,VfL Gummersbach,R. Fuechse Berl 
in,GW Dankersen,TuS Hofweier 


REM B-Jugend (Kreisstaffel) 
RESTORE 4158: az=11 
gruppe#="B-Jugend 
ETURN 
DATA SG Tiefenbach/Au,TSV Kellmuenz 
‚SF Illerriedeni,SV Ingstetten,SV Be 
uren,SV Grafertshofen,SC Voehringen 
IIl,SSV Illerberg,FV Bellenberg,SV 
Jedesheim,TSV Buch 
REM 
Sa *+*+ Ergebnisse ausgeben ### 
EM ö 
MODE 1:PEN 2 
u$="ERGEBNI 
geben":60SUB 56978 


(Kreisstaffel)":R 


55 E{3 S5SPACE}aus 


4218 PEN 3 


E | 4220 
R 4230 


F | 2248 
| 4258 
4268 


| 4270 
| 4288 


4298 
4308 


4518 


4328 
4330 





PRINT:PRINT 

PRINT"{CTRL %}3Sie haben die Wahl, E 
rgebnisse von: {CTRL X}" 

PEN 1 

FRINT: PRINT 

PRINT"einem bestimmten Spieltag.... 
{CTRL %}-1-{CTRL %X}" 

PRINT:PRINT"o d e r" 
FRINT:FRINT"einer bestimmten Mannsc 
haft.. {CTRL X}-2-{CTRL X}r" 

PEN 3 

PRINT: PRINT=:PRINT"{CTRL X}anzusehen 
{CTRL X3" . 

PEN 2:FRINT: PRINT: PRINT: INPUT"Ihre 
Wahl bitte t{1-2)";wahl 
WINDOW#5,1,48,4,25:CLS#5 

ON wahl G0TO 4340,4520 


[4622] 
LAFEA] 


[749C] 


L1iEA2]I 


ES?BE] 
CDBCH] 
[42EB] 
£C73A] 


[A658] 
ESFCA] 
L727C] 


[0B88] 
[EB872] 


[5688] 
[7F18] 
EC9BCI 
[BAAAI 
[451C] 


LODFCI 
CD72E] 
CB37A] 
[801C] 
[BF18] 
[25A2] 
[3@SE] 


[AS42] 


C4CD4] 
[7A22] 
[4160] 
[2958] 


[BAUR] 


EFSD4] 
£C351A] 
[?C16] 
[4754] 


[25Bö] 


[2EC82 
LIFFEI 
[3BSA] 
[2542] 
[BIA&] 


CBFBE] 
[D453A] 
[4778] 


[CA4E] 
L775C] 
ESEFE]I 


[&1DE] 
[A41E] 


[6758] 
[5C4A] 


[738E] 
[L15A8] 


E?CDA] 
Eöcic] 





4340 
4358 
4360 
4378 


4388 


4390 
4400 
4410 


44208 


44308 
4440 


44508 
4468 


4470 
4458 


44970 


4500 
4518 
4528 
4532 
45408 
4558 


45608 
4578 


4588 
45978 


4:00 
4618 
46520 


4430 
4648 
4650 
4668 
4478 
4680 
4970 


4700 
4718 


4720 
4750 


4749 


47208 
49738 
4740 
4750 


4960 
4970 


REM bestimmter Spieltag 
LOCATE 1,6 


PET UReN 
OR wa>3 THEN GOSUB 3580: 60T 


IF waii 
0 4398 

PEN 3:PRINT"{CTRL %}"sgruppe$; ": {CT 
RL X3":GOSUB 34088 

FOR m= 1 TO az2 STEFP 2 

READ wt{m,n):READ wim+i1,n) 

Be: mas# (w{im,nd)s" — "zmas#(wim+1 
‚n’) 

IF er (m,n?=?77 THEN PRINT CHR#$(11); 

STRINGE (51,7); "ausgefallen !":6GOTO 
4450 

ec CHR$ (11); STRING$ (50,9) ;er (m, n 

PRINT CHR#(11):STRING$ (53,9)3" : "; 
er (m+1,n) 

NEXT 

IF az2<>az THEN READ spf:PRINT:PRIN 
T"Spielfrei :":smas$(spf) 
LOCATE 1,25 

INPUT"Noch eine Ausgabe (j/n) 
IF fr$="J" OR fr$="j" THEN MODE 1:6 
DOTO 4178 
IF fr$="N" OR fr$="n" THEN RETURN 
GOTD 4470 

REM bestimmte. Mannschaft 

ze" 

LOCATE 1,5 

IF wa{i1 OR wa>3 THEN GOSUB 3508:605 
UB 35478: CLS#5:LOCATE 1,5 ELSE PEN 3 
:PRINT=:PRINT"{CTRL %X}3"sgruppe$;" :{ 
CTRL X3":GOSUB 3578: PRINT 

PEN 1 

INFUT"Von welcher Mannschaft wollen 
sie diei3 SPACE}Ergebrisse sehen " 
ıman$ 

PEN 3:PRINT 

INPUT"Bis zu welchem Spieltag ";spt 


MODE 2:PEN 1 

PRINT gruppe# 

PRINT"{CTRL %3";man#; "{CTRL X>":PRI 
A ea 

k= 


FOR n= 1 TO spt 

FOR m= 1 TOD az2 STEP 2 

READ wim,n):READ w(m+1,n) 
IF mant=mas# (w(m,n}) OR man$s=mas# (w 
(m+1,n)) THEN GOSUB 4730 

NEXT m 

IF az<>az2 THEN READ spf: IF mas# (sp 
f)=man$ THEN ken: spt=spt-1 

NEXT n 

IF k<>@ THEN PRINT:PRINT man$#;" hat 

te am":k:;". Spieltag Spielfrei !" 
GOTO 4478 

IF mas# (wim.n))=man$ THEN PRINT"{CT 
RL X3";mas#(iw(im,n))z; "{CTRL X}"5" — 
":mas# (wim+1l,n)) 

IF mas#$twim+1,n))=man# THEN PRINT m 

as (wim,n)!)s" - {CTRL X3"3masf(wim+ 
1,.nd); "tETRL X" 

IF er (m,n)!=9979 THEN PRINT CHR#&(11); 

STRINGF (51,9); "ausgefallen '":GOTO 

4780 

Ari ECHR# (11); STRING$ (58,9?) zer (m,n 
PRINT CHR#i11);:5TRING$ (53,9) 5," 

er {m+1,n) 

RETURN 

REM 

REM #*#+ Ergebnisse abspeichern ###* 

REM 

u="ERGEBNISS E#£S 

peichern":6G0O5SUB 54978 
PRINT: PRINT 

IF waf{il OR wa>3 THEN 4858 ELSE PEN 
S:PRINT"£{CTRL %3"sgruppe#$; ":{CTRL X 
+":PRINT:GOTD 4938 

FEN 3 

FRINT"Von welcher Gruppe wollen sie 
die Er-" 

PRINT"gebnisse abspeichern *?" 

PRINT:PRINT 

=" 4" 

GOSUB 35408 

WINDOW#5,1,408,4,25:CLS#5 

LDOCATE 1,6 

ON wa GOSUB 4020,409790,4120 

FEN 1 

INFPUT"Bis zu welchem Spieltag wolle 
n sie diei2 SPÄCE}Ergebnisse abspei 
chern ":spt 

PRINT:FPEN 3 

INPUT"Unter welchem Namen 


& "ıfr$ 


“ 
uy 


SFPACE}abs 


"»ab# 


Listing. »Ligaverwaltung« (Fortsetzung) 


[8AUB] 
LEAAE] 
[45CB] 


L718C] 
LC25C] 
[397280] 
[CC2B] 


C4F45] 


[aiF2] 
[1808E] 


[BC] 
[F158] 


[BAFB] 
[FD16] 


[CE458] 


L72Eö] 
[2@FC] 
[35A24] 
[C3EBB] 
[305A] 
CBAAE]I 


[78841 


[ED45] 


[BFBA]I 
[7DDC] 


[C7B6] 
[EBAFE] 
EFCEFEI 


E3B2A] 
[D88A] 
[7856] 
LE41E] 
[CE38] 


[LSAFC]I 
LAF7C]I 


CDEBA] 
[7878] 


[428C] 
[C12A] 


[2F7EC] 


[DDEB] 


LZEOA]I 
EFFiA]I 


LFECCI 
[BEAB] 
C4ABB] 
LEIAE] 
[25A2] 


[4442] 
LECB61 


LEBFA] 
[B44E] 


[6EF6] 
[7@2E] 
[5198] 
C777C] 
[32B2] 
[LIAE4I 
C44B4] 
LEAEA] 
[D34A] 


[F2A4] 
[C8BEB] 
[2C58] 























FRINT 

PEN 1 

üOPENDOUT ab*# 
FRINT#7 „wa 
FRINT#?,spt 
FRINT#97,az 
PRINT#?,gruppe*# 
FOR n=1 TO spt 
FOR m=1 TO az 
PRINT#?7,er (m,n) 
NEXT:NEXT 


| ELDSEDUT 


GOTD 858 

REM 

REM ##**+ Ergebnisse laden ###+ 

REM 

u$s="ERGEBN ISS E{tS3S SPACE}1lad 
en":GDSUB 55670 

' PRINT:FPRINT 

PEN 3 

PRINT"Ihre Ergebnisse werden gelade 

; MR 

PRINT"bitte warten Sie." 

PRINT: FRINT 

PEN 1 

OPENIN " 

INPUT#9 ,wa 

NEUE /ABE 

INPUT#?, 

INPUT#? ‚gruppes 

FOR n=1 TO spt 

FOR m=1 TO az 

INPUT#7,er (m,n) 

NEXT m,n 

CLOSEIN 

PEN 3 

FRINT=FRINT:PRINT"Es wurden die Spi 

eltage 1 -":spt:;:"der " 
PRINT:PRINT"{CTRL X3";gruppe#; "{CTR 

L.:%#" 

PRINT:FRINT"geladen." 

FOR n= 1 TO 1588: NEXT 
WINDOW#7,1,40,24,25:LOCATE 1,24: 
1:60SUB 5818 

CLS5#7 

' PEN 2 

LOCATE 1,22 

GOTDO 870° 

REM 

IREM #** Ergebnisse loeschen ### 
REM 
us="ERGEBNI 
schen":6GOSUB 56578 

LOCATE 1,&6:PEN 1 
PRINT"Wollen sie ihre Ergebnisse wi 

rklich" 

INFUT"loeschen (j/n) ";zlo# | 

IF lot="J" OR lo$#="j" THEN 5518 

IF lo$="N" OR lo#="n" THEN RETURN 

GOTD 5428 

FOR n=1 TO st 

FOR m=i1 TO az 

er (m, n)=B8 

NEXT m,n 

st=B: az=9: wa=sß: az2=B: gruppe#="" 

PRINT:PEN 2 

GOTO 878 

REM 

REM #** Frogramm beenden ### 

REM 

ut="PROGRAM M{3 SPACE}beenden 
":GOSUB 5678 

PEN 1 

PRINT: FRINT 

PRINT"Wollen Sie das Frogramm wirkl 
ich be-" 

INPUT"enden {(j/n?)";zende# 


PEN 


5 5 E{iZ SPACE}Iloe 


IF ende#="j" OR ende#="J" THEN MODE 
Z:END " 
IF ende$="n" OR ende#="N" THEN RETU 
RN 
REM 


REM ##* Routine fuer Ueberschrift 


MODE 1:PEN 2 

WINDOW#4,1,40,1,3 

' FAPER#6 ,2:CL5#& 

PRINT CHR# (24) 
LOCATE 5,2 

| PRINT u# 

LOCATE 1,3 

FRINT CHR# (24) 

' RETURN 

REM 

REM #*+ Routine zur Vebertragung de 

r Ergebnisse auf Tabelle 

REM 

FRINT"Sollen die Ergebnisse auf die 
Tabelle" 
INPUT"uebertragen werden 


tj/n) ";ue 


LF984] 
[FAS4] 
[1B2C] 
[56A6] 
[51A6] 
CSAB®] 
CADsAI 
[270E) 
CA416] 
[(3B68] 
[8B4A] 
CFDBB] 
[76BA] 
[3596] 
[69A6] 
[439A] 


[6E5A] 
[SD7E] 
[F444] 


[715C] 
[&4EEE] 
[E186] 
[Fö436] 
[Z2FEö] 
[42B2] 
[&97B2] 
CSABCI 
[CED75] 
[5514] 
L1F1C] 
LES6öC] 
[DFACI 
L7FEA] 
LFFSE]I 


[6EAB] 


[9448] 
[29794] 
[6024] 


[653A] 
[CB56] 
[EC4A] 
[4814] 
[8CcC2] 
[35197C] 
[4645] 
[33AQ] 


[S54DA] 
[RAEBE] 


[4BFC)] 


[7AS4] 
[7842] 
[4584] 


[8D88] 
[4082] 


[C75C] 


[CC1E]I 
[4CAE] 
L99AB] 
L32AB] 
LAZA4] 
CDF9@] 
[8926] 
[BBAA] 
[26B89] 
CF279) 
L1CB6) 
[B3B2] 
[BEAA] 
[24A2) 


[7372] 
[S6A6] 


[455C] 














ber # 

IF ueber#="n" OR uveber#="N" THEN CL 
S#7:RETURN 

IF veber#+="j" OR ueber$*="J" THEN 58 
38 


ECLS#7:LOCATE 1,24:60T0 5838 
ELS#7:LOCATE 1,25:PRINT"{CTRL X3Wir 
d gemacht !{CTRL X>" 

z$="#":6D5UB 3578 

IF spt=8B THEN spt=st:anf=st ELSE an 
f=1 

anfZ2=anf-1:IF anf2<1 THEN anf2=1:6G0 
TO 59768 

FOR k=1 TO anf2 

FOR 1=-1 TO az 


FOR n= anf TO spt 
FOR m= 1 TO az2 STEP 2 
READ wim,n):REÄAD wim+i,n) 


| kani=ß: kan?=®d 


FÜR k=1 TO anz 

IF mas#(wim,n))=name#(k) THEN kanls= 
l:zu=8:GO5SUB 4128 

IF mas# (w(m+t1,n))=name#(k) THEN kan 
Z=1:zu=1:60SUB 4128 

NEXT k 

IF kani<>1 THEN anz=anz+ti:k=anz:ınam 
et (k)=mast{iw(im,n)):zu=ß: GOSUB 64128 
IF kan2<>1 THEN anz=sanz+i:ksanz:nam 
e#fi(ik)=mas# (wim+tl1,n)):zu=1:GO5SUB 512 
u 


NEXT m 

IF az2<>az THEN READ zahl:IF n=i TH 

EN anz=anz+i:name#(tanz)=mas# (zahl) 

NEXT n 

na#=gruppe# 

IF anz>28 THEN anz=28 

RETURN 

IF anz >28 THEN anz=28: CL5#7:LDCATE 

1,25:PRINT"Tabelle ueberfuellt '!":F 

OR n= 1 TO 28B8:NEXT:GOTO 3958 

IF er (m+zu,n)!=99797 THEN RETURN 

IF zu=s® THEN g=i ELSE g=8 

spieleik)=spiele(k)+1:tor (k)=tor (k) 

+er (m+zu,n) :kator (k}=kator (k)+er (m+ 

g,n) 

IF er (mtzu,n)>er (m+g,n) 

puik)+2 

IF er (mtzu,n)=er {m+g,n) THEN puik)= 

puik)+1:mipu(k)=mipuik)+i 

IF er {im+tzu,n)“er ({m+g,n) THEN mipulk 

J=mipu(k)+2 

RETURN 

REM 

REM ##+ Routine bei 
"Data exhausted'’ 

REM 


THEN pu(k)= 


Auftreten eines 


I PEN 1 


PRINT: PRINT"Data’s sind ausgegangen 
FOR n= 1 TO ZBBB: NEXT 

RESUME 118 

REM 

REM Data’s fuer Fussball-Bundesliga 
REM . 

Es 17,1, a lee 

10,8, 5, 5,16 

DATA” 1,1 8°72.12,4,11,6,13,7,15.18,8 
3,3,97,14 2,47 

DATA 14,5,4,9,15,1,3,10,8,16,18,2,1 
Ele a A 


RE 
REM Data’s fuer Handball-Bundesliga 


REM 
DATA 7,6,5,10,3,12,2,13,1,14,11,4,8 


DATA 13,7,12,1,14,11,6,9,8,5,4,2,10 
3 

DATA 11,12,3,5,1,10,9,13,2,14,8,4,6 

REM 

REM Data’s fuer B — Jugend 


REM 
DATA 1,2, 23 EN bey 51 
DATA 8, ‚9, 4,5,2,5,11,1,18 


DATA si16a’ 2,758,9,6,8,10,1 


Listing. »Ligaverwaltung« (Schluß) 


De 


[7318] 
[D1E&S] 


[FDDsö] 
[20D8] 


[F?24] 
[31D2] 


[22D4] 


[D11C] 
[22534] 
[DD28] 
L772C) 
[FBAA] 
[8B5A] 
[F72A] 
[F344] 
[D7C4] 
EDDE4] 


[2BB4] 


[4372] 
[E766] 


{[FD54] 


[8512] 
[B178] 


[DBE4] 
[A376] 
LEEACI 
CBIACI 
[C69@1 


LES4E] 
[FES3S2] 
EZAEE] 


[2156] 
LBCSE] 
[B8SDE)] 


[43B&] 
[FAAD] 
[5578] 


[712C) 
[579C] 
[FC3E] 


[2898] 
EZA1C] 
[3FE2] 
[S56A6] 


[D7’C2]} 
[38AA] 


[D9FZ2] 
[AiF4] 


[öcFö] 
[LFAAB] 


[3578] 
[58A4] 


[8152] 
[4964] 


[D766] 
[44AC] 
CD?) 
[589E] 
[64FC) 
[D&FE] 
[8700] 























Anwendungs-Listing 


Geld- 
überweisen — 
natürlich mit 
Computer 

Von Ihrem Schneider-Com- 
puter können Sie auch 


7 Ihre Banküberweisungen 
| bearbeiten lassen. 






















































Banküberweisungen, die mit der Hand geschrieben wurden, 
sind oft schlecht zu lesen. Falls Sie auch das Problem mit der 
Schrift kennen, sollten Sie Ihren Schneider-Computer einset- 
zen und die Aufträge mit dem Drucker beschriften. 

Die Druckbefehle werden von jedem Epson-kompatiblen 
Gerät verstanden. Aber auch andere Drucker machen (wenn 
sie nicht allzu exotisch sind) keine Probleme. Der Befehl 
»CHR$(27),"E”« steht für Fettdruck, »CHR$(27);”G”« für Dop- 
peldruck und »CHR$(27);”0”« für Nichterkennen der Perfora- 
tion. 

Das Programm benutzt einen deutschen Zeichensatz. Die 
Sonderzeichen liegen auf den Tasten 17, 19, 26, 28 und 29 
(siehe auch im Handbuch). Bis zu zehn Überweisungen kön- 
nen auf einmal bearbeitet werden. Zum korrekten Beschriften 
sollten Sie sich bei Ihrer Bank spezielle Computervordrucke 
besorgen. (Heinz-Peter Drücker) 




































Überweisungsauftrag an 
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MODE 2 


ZB REMO Her 
>38 REM * DRUCKFROGRAMM 

40 REM * FIR 

Be] REM * BANK JBERWETSUNGEN 

Fa REM * von 

78 Rem * Heinz-Feter Dr’cker 

80 Rem * Liebfrauenweaga 17 

78 Ren * 4838 G}tersloh 


100 REM Kun 
* 
i1l@ MODE B:GOSUB 278 
128 FRINT"{tCTRL J3tCTRL JItCTRL JItCETRL 
J+{iCTRL JIECTRL JIECTRL JICTRL JIt3 
SPACE} DRUCKFROGRÄAMMZCTRL J}YÄiCcTRL J} 


138 PRINT"{8 SPACEIFIR{CTRL JIECTRL II" 

140 PRINT" BANKIBERWE ISUNGEN" 

15@ FOR p=1 TO 3@@8@:NEXT p 

168 SPEED WRITE 1 

170 DIM .es(12,1®) 

18@ MODE 2:BORDER @: 

17@ WINDOW #1,13,58,1,3:WINDOW #2,1,808,4 
‚25 

208 PRINT#1,"{CTRL J}f{12 SPACEID RUCK 
E Ri4 SPACE}O K ?£3 SPACEIJ/N" 

218 Z$=INKEY$ 

220 IF z$="j" OR z$="J" THEN PRINT #8,CH 
R$ (27) 3 "DO"; CHR$ (27) 3 "E" HCHR$ (27), "G" 
::G60T0 268 


238 IF z$="n" OR z£="N" THEN END 

240 IF z#<>"j" AND z#<>"J" AND z#$<>"n" A 
ND z#$<>"N" THEN GOTO 218 

258 IF z#="" THEN GOTO 218 

250 CLS#1:G60T0O 1188 

278 REM--——-— —- mm nn nn nn nn nn 


u RÄe[WneÄÖÖöÖeeÖ Mn mn mn m m EEE) Dom Em du HE HE ME Hama dam aa au 


288 REM +*%# DEUTSCHER ZEICHENSATZ ## 





308 SYMBOL AFTER 32 
318 FOR b=1 TO 7 
328 READ a 

FOR c=1 TO 8 


Buchungsvermerke der Bank 








[DFFB] 
[2829] 
1732] 
[ZBE2] 
[3E88] 
[CDAZ]I 
[EB44] 
7158] 
[FAAA]I 


LEE3EI 
[53354] 


[&C4C] 

[D&1C] 
[L7s5A] 
[A294] 
[8048] 
[F4FB] 
[09754] 


ISARAE] 
[F43A] 
[8D24] 
EiF?7C] 
LES@A]I 
EFFB2] 


L74CB] 
[D5F5] 










[CABSA]I 
[EDAA]I 






EF&BE]I 
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a KEY 


READ atc) 

NEXT c 

SYMBOL a,ati),a{i2),at3),a(4),a(5),at 
6),a(7),a(B) 


NEXT b 
KEY DEF 71,1,121,89 
KEY DEF 43,1,122,978 
KEY DEF 28,1,123,.91 
DEF 25,1,125,973 
DEF 29,1,124,92 
' DEF 24,1,126 
17,1,58,.42 
17,1,57.453 
Buchstabe ’sz’ 
B1111Ban 
11801108 
11881108 
11111008 
118B1108 
11801108 
%x 11111000 
11B002008 


Buchstabe ’ae'’ 


B11liB11® 
Wlululaluin Tel) 
Buchstabe 
124 
A11B11B8 
lulaiuiula Tele) 
Ba1111Bl 
Bi1BB1ıd 
B11BB11® 
B1l1lBB1ı1® 
BB1111i1BU 
BARDDBRH 
Buchstabe 


Bi11lB11ı1BO 
BRBRDBE 
: B11BB11D 
B1llBB11d 
B11BB11® 
B11BB11R 
BBıi1iiliil 
allein Tran) 
Buchstabe 


11811811 
BR1111BB 
Bi1BB11m 
B11BB11® 
Bi1l11i1i® 
B11BB11R 
BıiılBa1ıiı 
BEBDHBRRA 
Buchstabe 


i8111B18 
B11B110R 
118081108 
11B@B11D8 
11BBB118 
gB1ilBi1idn 
BRa11ı1BBO 
BOBABBRAR 
Buchstabe 


"ue'’ 


"AE' 


"DE ' 


"UE # 


1BiBa1B1 
B11BB11B 
81188118 
B11BB11B 
B11BB118 
Bilaaıı® 
BB111100 
ll eat Tralta ls) 


REM *##+ EINGABEN ”* 
REM------ 1111 1 


ELS#2 

INPUT#1,"{CTRL J}i{5 SPACE}Wieviele 
]lberweisungen wollen Sie schreiben 
?{23 SPACE} max. 10) {5 SPACE}",i 
GOSUB 2058 

FOR a=si TDi 

GOSUB 1898 


I PRINT #1,"{CTRL J+{iCTRL J}3t197 SPACE 


E[SA18] 
[397F4] 


CB848] 
CBBF&] 
CBBAA] 
[C489C] 
[5196] 
LCACSCI 
LCEDAB] 
CADSE] 
[7E48] 
CAD4A] 
[A934] 
CAABCI 
[241E] 
[9372] 
[BE#2] 
8264] 
L9F&B] 
[3A68] 
[C6EAA] 
[6I6E] 
CADsA] 
Ca9C®] 
[7514] 
[D274] 
LIFSCI 
[6D66] 
[CES4] 
[9160] 
[BS6C] 
[2970] 
[4768] 
[B4DE] 
[CBö1E] 
[7176] 
[BESE] 
[4068] 
[BO6A] 
[9440] 
CABsE] 
[3970] 
[766A] 
LIFECI 
[9722] 
[4C78] 
CD96@] 
[?BAA] 
[17601] 
[734E] 
[SF781] 
[4676] 
CD16C] 
[3A45] 
[C1C8] 
LBSC7EI 
[LIESA] 
[16560] 
LIASEI 
[9974] 
[4272] 
(A674 
L7@6E] 
[ES564) 
CADCCI 
[22BE] 
LE7BA] 
[6ö3BC) 
[L9FBEI 
[7BC0] 
LF?C2] 
C&BC2] 
[CF9BEI 
[5AC®] 
[S5ö1E) 
[LA9CCI 
CFABCI 
CBEBE] 
[4208] 
[CF&C2] 
[C4AC41 
[2206] 
[58C8] 
[E880] 


C@D921 
[7B60] 


[5A84] 
[AD35] 


[BF4E] 
[SBF7AI 
C7712] 
[ECB4] 





1888 
1898 


1780 


Anwendungs-Listing 


G A B Ei2 SPACE}":as"{iCTRL J 


3EIN 

y" 

LOCATE 14,8: INPUT"" ‚e$(1,a) 
LOCATE 14,9: INPUT"" e$(2,a) 
LOCATE 56,9: INPUT""  e#(3,a) 
LOCATE 14,11: INPUT"" e$(4,a) 
LOCATE 38,11: INPUT"" e$(5,a) 
LOCATE 14,14: INPUT""„e$(6,a) 
LOCATE 14,15: INPUT"" „e$(7,a) 
LOCATE 14,16: INPUT"",e$(B,a) 
LOCATE 54,15: INPUT"" e$(9,a) 
LOCATE 14,18: INPUT"" ,e$(10,a) 
LOCATE 38,18: INPUT"" ,e$(11,a) 
LOCATE 32,20: INPUT""„e$(12,a) 
PRINT #1,"{CTRL J>{CTRL J3{17 SPACE 


+E I 6 AB E{iS3S SPACEIO K{2 SPACE}?T 
> SPACE}J/N{CTRL J3" 


z+=INKEY$ 

IF z$="j" OR z$="J" THEN GOTO 1458 
IF z$="n" OR z$="N" THEN GOTO 1258 
IF z$<>"j" AND z$<>"J" AND z$<>"n" 
AND z$<>"N" THEN GOTO 1408 

IF z$="" THEN GOTO 1498 

NEXT a 
REM------------- 
REN ** DRUCKER ANWEISUNG ## 

PRINT #1,"{CTRL J}{CTRL J}15 SPACE} 


J]BERWETISUNGE N<3 :-SPACE}D 
RUCKE N{i3 SPACEI?E2 SPACEIJ/NI 
CTRL J}" 


z$=INKEY$ 

IF z$="j" OR z$="J" THEN G60T0 1558 

IF z$="n" OR z$="N" THEN END 

IF z$<>"j" AND z$<>"J" AND z$<>"n" 

AND z#<>"N" THEN GOTO 1588 

IF z$="" THEN GOTD 15088 

PRINT #1,"{CTRL J}{CTRL J}{8 SPACE} 


IBERWETISUNGE N{3 SPACE}IW 
ERDE N{29 SPACEEGEDRUCK TI 


CLS5#2 

FOR a=1 TDi 

PRINT #8,"{CTRL JItCTRL Jr" 

FRINT # (3)seftl,a) 

PRINT (S)se#tl2,a): 

PRINT (4ö)se#(3,a) 

PRINT #8 

PRINT #8,TAB (F);ef#(4,a); 

PRINT (19?)se#(5,a) 

FRINT #8,"{iCTRL J}" 

PRINT #8, TAB (3);efl(ä,a) 
(Z>)set(7,a); 

(44) ,e#(7,a) 

(3)sesti(d,a) 


(Z)se$titlBß,a); 
(Zi)se#tlil,a) 
#8,"{iCTRL J}" 

PRINT #8,TAB (1P),e#Ft12,a) 

PRINT #8,"{iCTRL J3ÄiCTRL JIiCTRL J3t 
ETRL JItCTRL JItCTRL JIiCTRL J}” 
NEXT a 

PRINT #1,"{CcTRL J}+{CTRL Jıtil SPACE 
‚WE ITER E{S3 SPACEIE IGABE 
N{3 SPACE}?T2 SPACE}YJ/N{CTRL J}"” 
z#=INKEYF 


PRINT 


IF z$="j" OR z$="J" THEN RUN 

IF z$="n" OR z$="N" THEN GOTO 1838 
IF z$<>"j" AND z$<>"J" AND z$LC>"n" 
AND z$<>"N" THEN GOTO 1788 

IF z$="" THEN GOTD 1788 
en ee 
REM #»#ENDE ** 
REM----- ---- --- - - -—-- - -- - -- - -——- 
CLS#1:CLS#2: 

PRINT#2,"£CTRL JICTRL JIECTRL JI£C 


TRL J3tCTRL JrtCcTRL J>tECETRL JItcTRe 
J}{12 SPACE}DAS PROGRAMM KANN MIT 
G0OTD 1458 WIEDER GESTARTET WERDEN{C 
TRL J}i36 SPACE}OHNE DASS DATEN{2 5 
PACE}VERLOREN GEHEN !!" 

END 


*# ZEILEN LY\SCHEN 


“=# 





[52BC] 
CAABA] 
CBEC®] 
CB&D®] 
[F3@8] 
(49081 
[E716] 
CCEICI 
[2922] 
[28203 
[617C] 
[CA77C1I 
[2D76] 


L6A32] 
[CE2C8] 
LIAF4]J 
[6F@2) 


[ES7AI 
[1388] 
[8F54] 


[3494] 
C4EB2] 


CD478] 


[88B4] 
EDECA] 
L75F8] 
[2478] 


[CF7ZE] 
[AF?8CI 


[B256] 
[BB5C] 


LEECHB] 


[FADE]I 


[B1AE] 
[FDBE] 


CAFF4] 
[19A2] 


[1496] 
EFSEA] 


[&17C)] 
[2098] 


[SAA2] 
[D5SACI 


Listing. »Druckprogramm für Banküberweisungen« 





RE BE ED Bere Be mern rau ran un ae van a a er 2228 MOVE 415,228:DRAW 415,134 [B&AFA] 








------- --- -- 0000. 2238 MOVE 417,136:DRAW 543,136 CA&14] 
--—- [E794] | 2248 MOVE 964,247:DRAW 543,247 [38C8] 
1928 LOCATE 14,8: PRINT SPACE$(48) [E4B2] 2250 MOVE 227,247:DRAW 227,228 LASBE] 
1938 LOCATE 14,9: PRINT SPACE$ (48) [D3B6] 2248 MOVE 428,247:DRAW 428,295 [9AS4] 
1948 LOCATE 56,9: PRINT SPACE#(12) [6CC2] 2278 MOVE 543,295:DRAW 96,295 LA2DA]I 
1958 LOCATE 14,11:PRINT SPACE$ (15) [77D8@] 2288 MOVE 246,75:DRAW 331,75 [585C] 
1960 LOCATE 30,11:PRINT SPACE$ (38) C2DD8] 2298 MOVE 3498,75:DRAW 529,75 LAC76] 
1770 LOCATE 14,.14:PRINT SPACE$ (38) [DIE4] 2388 REM--------------- 
1988 LOCATE 14,15:PRINT SFACE# (38) [CBDES] --------- 
1998 LOCATE 14,16:PRINT SPACE$ (38) [41EC] -__ [CEFBB] 
2000 LOCATE 54,15:PRINT SPACE$ (14) [8904] 2318 REM **+BESCHRIFTUNG ** [43ACI 
2B1® LOCATE 14,18:PRINT SPACE$ (13) [2FC2] 2328 REM--—-———- Te 
2020 LOCATE 30,18:PRINT SPACE$ (38) [73CE] Te 
2030 LOCATE 32,208: PRINT SPACE$ (10) [A2B2] -- CD18CI 
2848 RETURN [LF18C] 2330 LOCATE 27,24:PRINT "Bitte nicht bes 
En N En tn rt rnit a TEST ea TEEEE ET chriften" [5782] 
| ——————————— 2348 LOCATE 35,22:PRINT "Datum" CSBBE] 
| --- [368C1 235@ LOCATE 49,22:PRINT "Unterschrift" LCASD6] 
2068 REM ** MASKE ++ [C65CA] 2368 LOCATE. 14,17:PRINT "Konto Nr" [54A4] 
Es a a Ba VE air TER EEE FEB EEE 2378 LOCATE 35,17:PRINT "Auftraggeber" [aD74] 
Bee ei aba abc en ne A re Bd 2388 LOCATE 14,13:FPRINT "Verwendungszwec 
-—— [&07&] k (nur f}r Empfinger?}" L2AS6] 
2080 MOVE 96,10:DRAW 543,1@ [61DC] 2398 LOCATE 59,12:PRINT "D M" [893E] 
2098 MOVE 543,18: DRAW 543,342 [53A8] 2488 LOCATE 14,1@:PRINT "Konto Empf {nger 
2180 MOVE 543,342:DRAW 96,342 CE1AE] " [FBöA] 
211@0 MOVE 96,342: DRAW 96,18 [DB26] 2418 LOCATE 31,1@:PRINT "bei ?" C4BD4] 
2128 MOVE 76,48:DRAW 543,40 [S6DE] 2428 LOCATE 48,10:PRINT "o.e.a. Konto" L[9BSC] 
2130 MOVE 7658,539:DRAW 5453,37 CAFOB] 24308 LOCATE 14,7:PRINT "Enmpf {nger (genaue 
2148 MOVE 76,185:DRAW 543,105 LSCAA] Anschrift) | [D892] 
21580 MOVE 96,134:DRAW 543,134 [SCB4] 2448 LOCATE 56,7:PRINT "Bankleitzahl" [A128] 
2158 MOVE 96,133:DRAW 218,133 CSCAB] 2450 LOCATE 30,5:PRINT "JBERWEISUNGSAUFT 
2178 MOVE 97,133:DRAW 97,184 [E45A] RAG" [82CE] 
ae MOVE 97,186: DRAW 218.186 L2Sah] 
170 MOVE 96,22@0:DRAW 543, oh een .. U 
5200 MOVE 543.219: DRAW 417.219 [97161 Listing. »Druckprogramm für Banküberweisungen« 
2210 MOVE 417,219:DRAW 417,136 CF114] (Schluß) | 
4 
5 
E. 
( 
u. u = z - 
$ 
En 
% 
F Be 
: Schneider CPC 
Seuls 
: Programmierung | 


Die tree ee ee 
erkkit  Boneeihen Aa Kap ee 
Mil warten Times ir Inch 
Betas ö LE 23 








EEE FT! 


“ 
Zn le 








} Dr. P. Albrecht Dr. P. Albrecht J. Hückstädt 
ö MULTIPLAN für den dBASE II für den Schneider CPC Schneider CPC Der Schneider CPC 6128 
h! Schneider CPC September 1985, 280 Seiten Grafik-Programmierung September 1985, 273 Seiten 
| September 1985, 226 Seiten Das vorliegende Buch gibt nach einer Dezember 1985, ca. 300 Seiten Dieses Buch ist für jeden CPC 6128- 
II MULTIPLAN wurde ursprünolich für das kurzen Einführung in den Komplex Diesss Buch wendetsich an.die Schnel- Besitzer eine wertvolle Hiite, die viel 
N 16-Bit-Beiriebasysiem MS DE eine »Datenbarken« eine Anleitung für den der CPC-Besitzer. die alles über die fachen Möglichkeiten dieses bisher ein- 
J intra: | i praktischen Umgang mit dBASE Il. inieieniten ; maligen Computers kennenzulernen 
| wickelt. Inzwischen ist aber auch die in Grafikfähigkeiten ihres Computers wis d den.D f kin 
\ diesem Buch beschriebene CP/M- Schon nach Beherrschung weniger sen wollen. Es bietet einen umfassen- ch year Pe or Com ne Aus g 
N Version für den Schneider CPC auf dem Befehle ist dar Anwender in der Lage, den Überblick über die verschiedenen wird Schritt für Schritt in den Umgang 
Markt, die den vollen Leistungsumfang Dateien zu erstellen, mit Informationen Anwendungsbereiche der Grafikpro- mit dem Computer und die BASIG-Pro- 
| der 18-Bit-Version enthält. zu laden und auszuwerten. Dabei hilft grammierung: zwei- und dreidimensio- grammierung eingeführt, bis er alle not- 
| Das vorliegende Buch soll eine prakti- ihm ein integrierter Reportgenerator, nale Diagrammdarstellungen, Definition wendigen Kenntnisse besitzt, die man- 
sche Einführung in den Umgang mit der im Dialog mit dem Benutzer Berichte und Bewegung von Sprites, Entwurf von cher Profi bereits mitbringt. Aber an die- 
MULTIPLAN auf dem Schneider GPC gestaltet und in Tabellenform ausdruckt. Titelgrafiken oder den Einsatz der Grafik ser Stelle wird das Programmieren mit 
| ER A i dem CPG 6128 erst Interessant, näm- 
geben. Anhand von praxisnahen Bei- bei der Unterstützung anderer Pro geriet 





spieler werden alle Befehle und Funk- 
tionen in der Reihenfolge bechrieben, 
die der Arbeit in der Praxis entspricht. 
Bereits nach Abschluß des ersten Kaplı- 
teils werden Sie in der Lage sein, eigene 
kleine MULTIPLAN-Anwendungen zu 
realisieren. Ein Merkmal von MULTT- 
PLAN ist, daß Kalkulationen schnell und 
einfach erstellt werden können 


Best.-Nr. MT 835 
ISBN 3-89090-186-7 DM 43,- 


Best.-Nr. MT 837 
ISBN 3-89090-188-3 DM 49,- 


gramme, 
Best.-Nr. MT 782 
ISBN 3-89090-184 DM 46,- 


Markt & Technik-Fachbücher erhalten $ie bei Ihrem Buchhändler. 


Markt&fechnik 
BUCHVERLAG 





Hans-Pinzel-Straße 2, 8013 Haar bei München 


eigene Datelverwaltung aufzubauen 
oder Grafik und Sound zu programmie- 
ren. 

Weiterhin erfahren Sie alles über GP’M 
Plus auf dem GPG 6128, dem universel- 
len Betriebssystem für die größte Soft- 
warebibliothek der Welt. Dadurch ste- 
hen Ihnen zusätzliche ungeahnte Mög- 
lichkeiten zur Verfügung. 

« Ein unentbehrliches Lehrbuch und 
Nachschlagewerk für jeden, der mit 
dem CPG 6128 arbeitet. 

Best.Nr. MT 849 

ISBN 3-89090-192-1 DM 46,- 
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Anwendungs-Listing 





ED ZZ ZZ ZZ 20 Su ZU SZ 2 2 2 2 E02 2 2 2 32 0202 12 12 2 222 2 u u 27 ee 2 2 ee een 





Nebenkosten 
einfach 
abgerechnet 


Auch Hausbesitzern kann 
der Schneider-Computer 
eine Hilfe bei unangeneh- 
men Arbeiten sein. Bei- 
spielsweise bei der jährlichen 
Nebenkostenabrechnung. 


JAHRESABRECHNUNG DER NEBENKOSTEN 


trete 
Hamburg 28, den B2.82.1984 
Manfred Hausmeyer 

Hauptstr. 12 

zE20 Hamburg 28 






HERRN .’FRAU 
Werner Frank 
kiener Str. i 
2800 Hamburg 12 





NEBENKOSTENABRECHNUNG FUER DAS JAHR 1985 
KOSTENAUFSTELLUNG 


er 


14.41 DM 
292.91 DM 


ABWASSER, BELEUCHTUNG, WASSER INSGESAMT F 
DAVON FUER IHRE WOHNUNG ANTEILIG 


EINE EVENTUELL KUERZERE MIETPERIODE WURDE 
BERUECKSICHTIGT. 


ZUZUEGLICH PAUSCHAL FUER 2 PERSONEN 248 DHM 
MUELLABFUHR 128 DM 
ABZUEGLICH VORAUSZAHLUNGEN 
ZUZUEGLICH SONSTIGES 





-408 DM 
121.12 DM 





DIE VON IHNEN SOMIT ZU LEISTENDE NACHZAHLLUNG 
BETRAEGT 174.85 DM 


== = ZZ 5% 


BITTE ZAHLEN SIE DIESEN BETRAG BIS ZUM 15.03.1984 
AUF UNSER UNTENSTEHENDES KONTO EIN. 

BIS ZU DIESEM TAG KOENNEN AUCH DIE BERECHNUNGS- 
UNTERLAGEN EINGESEHEN WERDEN. 


Mit diesem Basic-Listing können Sie die Nebenkosten- 
abrechnung für Ihre Mieter sehr einfach und schnell erstellen. 
Alle benötigten Daten werden vom Programm angefordert und 


BANK: Hansabank Hamburg 


automatisch auf die einzelnen Parteien umgelegt. Die Rech- KTO. NR. ı 1231234567 


111 131 11 
nung kann auf jedem Drucker ausgegeben werden. 


Da die Schneider-Computer vom Betriebssystem her keine 
Abfrage machen, ob ein Drucker angeschlossen ist, darf das 
Programm ohne Ausgabegerät nicht laufen. Es würde sich 
»aufhängen«. 


MIT FREUNDLICHEN GRUESSEN 


Manfred Hausmneyer 


So kann im nächsten Jahr 
Ihre Nebenkostenabrechnung auch aussehen 





a m 


(Denis Wetzel) 
































































MODE 2: INK 9,8:BORDER B: INK 1,18 [2C14] sa2B PRINT [6188] 
zB FOR I=1 TO 88:PRINT CHR${(154);:NEXT I s18 LOCATE 1,9: INPUT"Abrechnung fuer das 
[BSF6] Jahr : "sA$ [5D2C] 
s@ LOCATE 3,1:PRINT" Hausverwaltung{iF SP 328 IF as=""THEN 308 [FEF8] 
ACE}{CTRL X HAUFTMENDUE {CTR 330 LOCATE 1,12: INPUT"Name/Firma/Vermiet 
L X3197 SPACE} (C) 1985 SOFTWARE PRODUCT er : ";V3 [8818] 
8: "3 [S64E] >40 IF V£=""THEN 338 CB78C] 
40 FOR I=1 TO 88:FPRINT CHR#(154);:NEXT I 558 LOCATE 1,12: INPUT"Strasse, Hausnumme 
[BEFA] rt2 SPACE}: "sL$ [LFAF2] 
sB LOCATE 26,7: PRINT" {CTRL X 1 {CTRL % S3s6@0 IF L#$=""THEN 358 [8788] 
Informationen" [65897A] s/8 LOCATE 1,12: INPUT"Plz{1i8 SPACE}: ";:U 
&B LOCATE 25,F:PRINT"{CTRL X+ 2 {CTRL X} $ [B&c8] 
Maske allgemein" '  [D44E] 3588 IF U#F=""THEN 378 [5997A] 
78 LOCATE 265,11:PRINT"{CTRL X} 3 {CTRL X sS?@ LOCATE 1,12: INPUT"Ort{1B8 SPACE}: ";0 | 
+} Maske Mieter" {[F734] RT#F [BE58A] ! 
88 LOCATE 26&,13:PRINT"{CTRL X 4 {CTRL X 42808 IF ORT$=""THEN 390 [LACDR] 
> Nebenkostenabrechnung drucken" [A478] 418 LOCATE 1,12: INPUT"Bank{17 SPACE}: "; 
78 LOCATE 285,15:PRINT"{CTRL %} E {CTRAL X Y$ [2F12] 
> Programm-Ende" [3B52]1 420 IF Y$=""THEN 418 [C428E] 
1BB ee$=INKEY$: IF ee$=""THEN 100 EFF78] 458 LOCATE 1,12: INFPUT"Kontonummer {18 SPA 
118 ee=INSTR (1,"1254eE" ,ee$):IF ee=8 TH CE}: ".xX$ [4394] 
EN 188 [A812] 440 IF X$=""THEN 430 [D&4F74] 
128 ON ee 60T0 1530,140,570,9580,1678 [7D?@] 458 LOCATE 1,12: INPUT"Bankleihzahl{? SPA 
158 ON ERRÜR GOTO 148 [CBs12] CE}: ".D$ [58972] 
1408 CLS [752E] 449) IF D+=""THEN 458 [4074] 
150 REM [S5D54] 478 FRINT [DA?B] 
159 REM hausverwaltung 1.1 [34D5] 480 FRINT"NEBENKOSTEN FUER: " [15AA] 
170 REM I DE UER E 64 Dr. 478 FRINT CB874] 
GUENTER ME SON [öF&2] S@aQ LOCATE 1,15: INPUT"W AS SER: ":B [D896] 
iISB REM ——— m s1@ FRINT [CECBö] | 
Be it ia am in CöFSA]I s28 PRINT EFF88] | 
178 REM VERSION 1.1 fuer Schneider CFC 4 ss@ LOCATE 1,165: INPUT" ABWASSER: 
| 64/664/6128: [20B0] ":D [5526] | 
| 228 REM by SOFTWARE PRODUCTS Ltd.- SOFTW 5428 LOCATE 1,15:INPUT"BELEUCHTU 
AREFROBLEMLODESUNGEN FUER CPC 454/664 NG ır "sc L47A2] 
/&128 [7ER] ssQ G=B+D+C [&4BA] | 
218 REM c/o Denis Wetzel E3SCC] S&8 FRINT [(s3970] | 
228 REM Am Holzplatz 1 [CH5E] 578 FRINT"DIE GESAMTKOSTEN BETRAGEN" :G;3 : | 
238 REM 5730 Neustadt /Weinstrasse [FSAE] PRINT"DM." [4AQ6] 
2408 REM E4C54] Sss8d IF I=@ THEN FRINT CHR#$ (24) :PRINT"--> 
258 FOR i=1 TO 88:FPRINT CHR$(154);5:NEXT [öüscE] SIE HABEN KEINE ANGABEN GEMACHT <-——- | 
258 FRINT" Hausverwaltungf{i4 SPACE} {CTRL "=PRINT CHR$(24):FOR n=1 TO 3808: NEX 
+ MASKE-ALLGEMETIN {CT T:60T0 18 [849C] 
RL X}135 SPACE} (C) 1985 SOFTWARE PRODU 578 FRINT"Verteilerschluessel nach Punkt 
ECTS" L3597E] en," [CBCE] ! 
278 FOR i=i1 TO 80:PRINT CHR#(154);5:NEXT [38D2] &2B LOCATE 1,28: INPUT"Gesamtpunkte fuer 
288 PRINT LESBE] das Haus : ";zH CFFS6] e 
2970 HE es LINIE Ze BLLTE ALLE EIN x 
BEN MIT DER [ENTERI-TASTE ABSCHLIE | d 
SSEN <--" [77F4] Listing. »Nebenkostenabrechnung« 
* 





j 938 


778 


Fr 
[> 
8 


780 
778 


Su — 


« 


% 1028 
F 1030 
3 1040 | 
| 1050 
1060 
1078 


# 1098 


| 1198 ır 


ar 
er 
f=1: 









| LOCATE 


1040 
1218 


DB FRINT #8, 


IF H=8 OR H<® THEN 480 
PRINT 

INPUT"Heutiges Datum : 
FRINT 

INPUT"Eventuelle Nachzahlung des Mie 
ters bis zum : ":0f# 

GOTO 18 

ELS 

FOR i=1 TO 88:PRINT CHR#(154) 5; :NEXT 

PRINT" Hausverwaltung{7 SPACE}ZETRL 

> MASKE-M TETER {CTRL Xt 
& SPACE? (6) 1985 SDFTWARE FRODUCTS" 


"ıF$ 


' FOR i=i TO 88: FRINT CHR$ (154); :NEXT 


LOCATE 1,7: INPUT"Name 
":G6#: PRINT 

IF G$=""THEN 71® 

LOCATE 1,9: INPUT"Strasse, Hausnummer 
ı "55 

IF S$=""THEN 758 


des Mieters : 


LOEATE 1,11: INPUT"Plz, Ort : ";T$ 
IF T$=""THEN 508 
LOCATE 1,13: INPUT"Auf den Mieter ent 


fallende Punkte : "; 

IF J=@ THEN GOTO 770 

LOCATE 1,15:PRINT"Berechnungsgrundla 
ge: Mietzeit 12 Monate" 

LOCATE 1,17: INPUT"Kuerzere Mietzeit 

(in Monaten) : ";P 

IF FP=8B THEN P=12 

LOCATE 1,197: INPUT"Pauschalbetrag fue 
r2 Personen ı ":R 

LOCATE 1,21: INPUT"sonstiges{i3 SPACE} 


. "sE 
LOCATE 1,21: 1INPUT"Muellabfuhr : ";L 
LOCATE 1,21: INPUT"geleistete Vorausz 
ahlung : ":M 
M=-M 
1,25: INPUT"einbehäaltene Siche 
rheit : ":N 
N=—N 
K=G/H#J#P/12 
K=INT (K#+100+8.555) 7/1808 
B=K+L_L+E+R+M+N 
GOSUB 18 
LOCATE 28,23:PRINT"{CTRL %} DRUCKER 
BEREIT J/N {CTRL X" 
tt#F=INKEY$: IF tt#=""THEN 748 
IF UPPER$(tt$#)="J" THEN 9770 
IF UFFER#ttt£)="N" THEN 18 
PRINT CHR#(24):LOCATE 265,253:PRINT" A 
BRECHNUNG WIRD GEDRUCKT —- BITTE WART 


EN ":FRINT CHR#(24) 
PRINT #8, CHR#(B) 
PRINT #8, Hess 


EEE 
EEE EEE" PRINT #8,"{797 SP 
ACE}": PRINT #8, "JAHRESABRECHNUNG DE 
R NEBENKOSTEN" 

PRINT #8, "i79 SPACE}" 

FRINT #8, "HH 

Be zz ze Zee m zz ze ze Eee re ze 2 en 2 ne ZZ ze m 
a" 

FRINT #8, "{i37 SPACE}"ORT$", 


£:PRINT #8, vs 
PRINT #8, [L$: PRINT #8, U" "ORT$:PR 
8 


den "F 


"HERRN/FRÄAU/FIRMA" 

PRINT #8, G$ 

FRINT #8, 5# 

PRINT #8, T$ 

PRINT #8:PRINT #8:PRINT #8:PRINT #8 
,„ "NEBENKOSTENABRECHNUNG FUER DAS J 

ÄHR "As 

PRINT #8:PRINT #8, "KOSTENAU 
ESTELLUNGE" 

I en 
PRINT #8 

PRINT #8, "ABWASSER, BELEUCHTUNG, W 

ASSER INSGESAMT{1B SPACE}: (2 SPACE} 
nz" su 

PRINT #8 

PRINT #8, "DAVON FUER IHRE WOHNUNG 
ANTEILIG!17 SPACEI:{2 SPACE} "K"DM" 

PRINT #8 

PRINT #8, "EINE EVENTUELL KUERZERE 
MIETPERIÜDE WURDE{39 SPACE}BERUECKS 
ICHTIGT. 

FRINT #8 

R=® THEN 1210 

PRINT #8, "ZUZUEGLICH PAUSCHAL FUER 
2 PERSONEN{14 SPACE}: {2 SPACE}"R"D 

M":PRINT #8 

IF L=@ THEN 1238 

PRINT #8, "MUELLABFUHR{SB SPACE}: {2 
SPACE} "L"DM":PRINT #8 

IF M=8 THEN 1258 

"ABZUEGLICH VORAUSZAHLUNG 

EN{23 SPACE}: {2 SPACE} "M"DM":PRINT 


#8 
IF N=8 THEN 1278 


% Arsen er R | . er - COM 


MN 


N us ni .E ı- ib Zu 6 / ‚ 


[858A] 
[440A] 
LE7BE] 


[0024 
L7FECI 
[723E] 
[3DDCI 


L[27DC] 
C4FCE] 


[7BDE] 
[SF76&6] 


(A470] 
[CDF&5] 
[7D8A] 
[355AQ] 


[CB2C] 
[F?716] 


CABT7E] 


[81B4] 
[7188] 


E5444] 


[&öBF4] 
[75B4] 


[5152] 
[C284] 


[F2EC]I 
ECD8SC]I 
[ö1BE] 
[54065] 
[3BD8] 
[72768] 


£L735B4] 
[SA18] 
[öFAB]I 
[7B54] 


[F838] 
C422E] 


LFA4AI 
[32B2] 


[4BEB] 
[öA1iA] 


[75DC] 
[F&DA] 
[82F8] 
CBY4C] 
[43565] 
[L7&66A] 


EF&EA]I 
[(BBB4] 
[8170] 
EADDS]I 
[55532] 
EAPDCI 
EBöFC]I 
[LESE] 


LEFDE] 
E[B1iE4] 
[4B18] 


£ESD8BE]I 
[4082] 
[72A2] 
£1i20C) 


LE48E] 
[D416] 


[SCöA] 





1268 
1270 
1288 
1298 
1500 
1518 
1328 
133580 


1540 
1358 


1568 
1578 
1588 
15978 
1400 
1418 
1428 
1438 
1440 
1450 
1460 
1478 
1488 


1478 
1508 


1518 
1528 
1558 
1548 


1568 
1578 


1588 


1578 


1520 


1618 


1628 


FRINT #8, "GUTHABEN AUS EINBEHALTEN 
ER SICHERHEIT BETRAEGT{3 SPACE3: (3 
SPACE3"N"DM":FRINT #8 

IF E=@ THEN 1380 

PRINT #8, "ZUZUEGLICH SONSTIGES{2F 
SPACE}: 13 SPACE}"E"DM" 

FRINT #8:FRINT #8 

IF 0>@ THEN 1328 

IF Q<@ THEN 14538 

FRINT #8, "DIE WON IHNEN SOMIT ZU L 
EISTENDE NACHZAHLUNG" 

FRINT #8, "BETRAEGT{i41 SPACE}: {2 5P 


ACE}"@"DM" 

PRINT #8, "i53 SPACE}=======" 

PRINT #8:PRINT #8, "BITTE ZAHLEN SI 
E DIESEN BETRAG BIS ZUM " 08$ " 
FRINT #8, "AUF UNSER UNTENSTEHENDES 
KONTO EIN." 

FRINT #8, "BIS ZU DIESEM TAG KOENNE 
N AUCH DIE BERECHNUNGS-{33 SPACE}UN 
TERLAGEN EINGESEHEN WERDEN. " 


FRINT #8: FRINT #8 

PRINT #8, "BANK: "Y#+ 

PRINT #8, "KTO.-NR.ı "X#$ 

PRINT #8, "BLZ: "D# 

GOTO 149 

d=-0 

PRINT #8, "IHR GUTHABEN BETREAGT 50 

MIT{22 SPACE}: {2 SPACE}"R"DM" 

FRINT #8, "i53 SPACE}=======" 

FRINT #8, "DER BETRAG WIRD IHNEN IN 
DEN NAECHSTEN TAGEN AUF{32 SPACE}I 


HR KONTO UEBERWIESEN. " 

FRINT #8, "BIS ZUM " DO$ " KOENNEN D 
IE BERECHNUNGS-" 

ERANT #8: "UNTERLAGEN EINGESEHEN WE 


PRINT #8 

PRINT #8:FRINT #8, "MIT FREUNDLICHE 
N GRUESSEN" 

PRINT #8: PRINT #8, V$ 

G0T0 18 

MODE 2: INK @,8:BORDER @: INK 1,18 
FOR i=1 TO B@:PRINT CHR$ (154); :NEXT 


FRINT" Hausverwaltungft& SPACE}TCETRL 
X INFORMATIONEN {CTRAL 
X3t5 SPACE} (CI 1985 SOFTWARE PRODUC 


FOR i=1 TOD 88:FPRINT CHR#(154);:NEXT 


LOCATE 5,5: FRINT"{CTRL X a {CTRL X 
> ALLGEMEINES":LOCATE 5,7:PRINT"Das 
Frogramm Hausverwaltung ist in ers 
ter Linie fuer Vermieter geschriebe 
n. Sie koennen so bequem die Nebenk 
ostenabrechnungen fuer ihre Mieter 
erstellen. 
LOCATE 5,9:FRINT"Es bietet jedoch a 
uch fuer Mieter eine Kontrolle zum 


Veberpruefen ihrer Neben — kostenab 
rechnung." 
LOCATE 5,14:FPRINT"{iCTRL X} b {CTRL 


x} EINGABE VON WERTEN":LOCATE 5,15: 
PRINT"Sie muessen zuerst Menuepunkt 
2 waehlen, um allgemeinqueltige We 
rte (Werte, die fuer jeden Mieter G 
ueltigkeit haben) einzugeben. Jede 
Eingabe muss mit [ENTERI{Z2 SFACE}be 
staetigt werden." 
LOCATE 28,18:PRINT"Nach der Eingabe 
kommen Sie wieder zum Hauptmenue." 


LOCATE 5,18: PRINT"Danach waehlen Si 
e Menuepunkt 5 an, um nun Werte fue 
r einen Mieter einzugeben. i2 SPACE} 
Haben Sie alle Werte eingegeben, ko 
mmen Sie wieder zum Hauptmenue, Wo 
Sie mit" 
LOCATE 5,28: PRINT"Menuepunkt 4 eine 
n Ausdruck der Äbrechnung des gerad 
e eingegebenen Mieters er-i2 SPACE} 
halten. Danach erscheint wieder das 
Hauptmenue und Sie koennen die Dat 
en fuer{3 SPACE}den naechsten Miete 
r eingeben {Punkt 3) und Sie drucke 
n (Punkt 4). " 
LOCATE 1,25:PRINT"{CTRL X3 [ENTER]- 


Taste druecken {CTRL X" 

aas=INKEY#: IF aa#=""THEN 1540 

IF UPPER# (aa#$)="M"THEN iB 

GOTO 18 

LOCATE 25,23:PRINT"£{CTRL %} ENDE J/ 
N {ETRL %3" 


fe#=INKEYFf: IF fe$=""THEN 1688 

IF UPFER$ (fe$)="J"THEN 1720 

IF UPFER$ (fe$)="N"THEN 18 

END 

MODE 1:INK ®B,1:BORDER 1:INK 1,24: C 
ALL &BB@@:CALL &BB® 


Listing. »Nebenkostenabrechnung« (Schluß) 


ie m A a Sn u u ai 


[CEB61 
[C14FC] 
[1380] 
[76601 
[S18E] 
[2418] 
CB8@@] 


L421A] 
[8576] 


[5@B41 
CA21A] 
LCE718] 
LEF&CI 
[&DF@] 
C45D4] 
[B150] 
[831C3 
[2EE8] 
[54981 
[AS9A] 
CEs4E] 
[9440] 


[4810] 
[FAEC]I 
[C49A] 
EFBEE] 
[S5A44] 
[BBE4] 


[3834] 


EFDDE]I 
[458] 


[75B2] 


[F426] 


E1iödFC] 


[207E] 


[1548] 


EBS7E]I 


[82ACI 
[45538] 
[1088] 
[SB4E] 


[69F7A] 
[F8&C] 
[31E6]1 
[BBOC] 
LEE88] 


EDFC2] 











Der Fall 
»Famit AG« 


Sind Sie einem großen Wirt- 
schaftsverbrechen auf der 
Spur oder handelt es sich 
| ” | nur um persönliche Rache- 
gefühle wie bei Dallas. Diese und an- 
dere Fragen stellen sich in dem menü- 
gesteuerten Adventure »Famit AG«. 


Auf dem Gelände der »Famit AG« haben sich seltsame Dinge 
ereignet. Sie müssen Ihren freien Sonntag opfern, um den Ver- 
dächtigen vor der Flucht noch zu stellen. Sind die 2,3 Millionen 
Mark wirklich ein Lottogewinn? Wer ist der Schatz, dem Angela 
auf dem von Ihnen gefundenen Zettel ihre Liebe beschwört? 
Fragen über Fragen, die alle scheinbar zusammenhanglos im 
Raum stehen. Um den Fall zu klären, müssen Sie — wie Kom- 
missar Schimantzki — zu unorthodoxen Mitteln greifen. 

Eingefleischten Adventure-Freaks wird die Menüsteuerung 
des Programms zuerst ungewohnt sein. Aber seien Sie versi- 
chert, Sie haben so das Geschehen viel besser im Griff. Die 








Spielanleitung und die Aufgabe dieses Adventures wird wäh- 


rend des Ablaufs erklärt. Viel Spaß mit dem Fall »Famit AG«. 





(Jobst-Hinrich Jacke) 


1iB 2REM--—--—----—--- - - - --- 
—— [ZAB2] 
28 REM- 
= [5548] 
30 REM- Die Akte "Famit AG" 
= CBBEA] 
40 REM- 
= CDE44] 
SO REM- 1985 Copyright by 
an C8B5C] 
&8 REM- Jobst-Hinrich Jacke 
= L4E6C]I 
78 REM- Hinrich Wragestr.iö6a 
eu [O9FY7E] 
80 REM- 2427 Malente 
| - [88B&ö] 
| #8 REM- 
| . [524E] 
| 1a08 REM--------——---- -— 0.00.00. 
| ern [CADZ] 
11@ DEFINT a-z [2328] 
128 MODE Z: INK 8B,QB:INK 1,8:PAPER GB:PEN i 
:BORDER 8:CL5 CBS1E] 
130 GOSUB 28648 [1548] 
140 raum=8: vmax=16:rmax=94: omax=1235:bdma 
x»=14:bmmax=4: imax=4: zmax =34Q9: buer onu 
mmer+="4423519":safekomb$="23111985" 
:ok$="Okay !":foto=12:cmax=38B: zua=i1 
CBFBE]I 
158 DIM verb$(vmax) ,raumf (rmax) „objekt#{ 
omax) „objekt (omax) „bedingung (bdmax), 
bemer kung$ (bmmax) , richtung (rmax,b), r 
ichtung$ (6) „oy(16) ,iy(6), Code (cmax) [8D5C] 
1&0 bemerkung$(1)="Sie sehen nichts beso 
nderes." | [a825] 
178 bemerkung# (2)="So stark sind sie nic 
ne 8” [5497A] 
188 bemerkung$(5)="Wie stellen Sie sich 
das vor 7?" CDD28] 
| 1980 bemerkung$ (4)="Ihre Gedankengi{inge{?2 
SFPACE}sind leiderf}r diesen{i2 SPACE} 
| Computer zu kompli-ziert '!" CE1Bö] 
200 bemerkung$(5)="Es sind zuviele '!" [CB&18] 
218 bemerkung$(&4)="Das ist nicht notwend 
iQ. [C3DF4] 
228 FOR »=1 TO vmax [CE888] 
238 READ verb# (x) [CEC1A] 
248 NEXT [S8EA] 
258 FOR x=1 TO omax [5A78] 
268 READ ob jekt#(x),objekt (x) EFCAB]I 
278 NEXT [C4BFB] 
288 FOR »=1 TO rmax:READ raum# (x) CCDB4] 
298 FOR y=1 TO 4:READ richtung (x,y) [6514] 





Sau 
318 


328 
338 
>48 


358 


saß 


378 


380 


378 


418 
428 


438 


448 


450 


468 


470 


490 
498 


el] 


NEXT=:NEXT 

LOCEATE 22,22:PRINT"{CTRL %}> Bitte ir 
gendeine <Taste> dr}cken {CTRL X}3":C 
ALL &BBOö& 

MODE 2:PAPER B: INK B,@:BORDER B:PEN 
1:INK 1,„25:CL5 

LOCATE 389,3:PRINT"Die AKTE 'Famit AG 


PRINT:FPRINT STRING$ (88,218) :PRINT:FR 
INT"i4 SPACE}Sie sind Beamter der Kr 
iminalpolizeit2 SPACE}und werden im 
Laufe des Spiels mitiB SPACE}einem w 
ichtigem Fall betraut . Es ist aller 
dings Eile geboten „ denn der" 
PRINT"{4 SPACE}Verdichtige versucht 
zu fliehen „ Sie m}ssen{Z2 SPACE}also 
Ihrent{2 SPACE}Sonntag opfern{8 SFAC 
E}und sich auf den Weg machen „ ihn 
zu verhaften .{2 SPACE}Nat}rlich bra 
uchen Sieiß SPACE}daf}r Beweise „{2 
SPACE}die{i2 SPÄACE}Sie selber finden 
m}ssen „.t{Z2 SPACE}Au*erdem haben Sie 
nur" 
PRINT"{4 SPACE}von 18 — 15 Uhr Zeit 
.i2 SPACE}Wenn Siei2 SPACE}um 16 Uhr 
noch nichts erreicht haben „{B8 SPAC 
E}ist dem Verdichtigem die Flucht no 
ch gegl}ckt „{i2 SPACE}Sie werden{2 S 
FACE’wihrend der {8 SPACE}Ermittlunge 
n nicht{2 SPACE}auf andere Personen 
sto”en, da es „ wie oben gesagt," 
PRINT"{4 SPACE}Sonntag ist „ und som 
it liegti2 SPACE}das Gelfnde der 'Fa 
mit AG’{i2 SPACE}verlassen da,{B SPAC 
E}bis auf eine Ausnahme !" 
PRINT=:FRINT STRING$ (88,21®) :PRINT:PR 
INT TAB(23)s"{CTRL X} Bitte irgendei 
ne <Taste> dr}cken {CTRL X}" 
FOR »=1 TO 4:READ richtung$ (x) NEXT 
FOR »=1 TO cmax:READ code (x) :NEXT 
CALL %BBQ& 
TE S3B,3:FRINT"Die AKTE 'Fami 


PRINT:PRINT STRING$ (88,218) :PRINT"{4 
SPACE}Funktion der Bildschirmfenste 
r si2 SPACE}oben linkstid SPACE}: {4 5 
FACE}0Ort"=PRINT TAB(39):"halb oben 1 
inks :i4 SPACE}Ausg{inge":PRINT TAB (3 
7}: "unten links{5 SPACE}: {4 SPACE}KO 
mmentar":PRINT TAB(39)s; "mitte{ii SPA 
CE}:{4 SPACE}Verben": 
FRINT TAB(39): "oben rechts{5 SPACE}: 
i4 SPACE}Gegenst {inde/Ausg inge": PRINT 
TAB (39), "unten rechts{4 SPACE}: {4 5 
FACE} Inventur" 
FRINT=FRINT"i4 SPACE}Steuerung{i22 5P 
ACE}: {4 SPACE}":CHR#(240)"t{13 SPACE} 
:i4 SPACE}Cursor nach oben":FRINT TA 
B{39),"£5 SPACE}"SCHR$F(241)"{10 SPAC 


E}:i4 SFACE}Cursor nach unten": 


PRINT TAB{39) :"<COPY>{1@ SP 
ACE}: {4 SPACE}Ausl'’ sen der Funktion" 


FRINT"{7 SPACE}Um bei{?2 SPACE}einige 
n Verben (z.B. 'untersuche’)} vom{2 SP 
ACE}Fenster "'Gegenst {nde ’ {13 SPACE}zZu 
miZ2 SPACE}Fenster '’Inventur’ und umge 
kehrt umzuschalten „ m>’ssen Sie die{ 
14 SFACE}Funktionen {CTRL X>{4 SPACE 
>"s;CHR$ (248) ;"{4 SPACE}{CTRL X} bzw. 
ETRL X314 SPACE}"sSCHR$(241)2"{4 SP 
ACEF{CTRL %} ausl'sen." 
PRINT STRING$ (88,218) :PRINT:PRINT TA 
B(i23);"{CTRL %} Bitte irgendeine <Ta 
er dr3cken {CTRL X}":CALL &BBO& 
L 
WINDOW #1,2,49,2,4:WINDOW #2,51,79,2 
„17; WInDow #3, 2. 29, 6,7: WINDOW #4,34, 
77. 24: WINDOW #5, Si. 73 .,19,24: WINDOW 
u 32. 7,24:PEN #2,1: PAPER #2, [1] 
PLOT 4, 8: DRAW 4, 392: PLOT u 8: DRAW > 
392: DRAW 656, 392; DRAW 434, B: DRAW 537 
392: DRAW 637, 8:DRAW 4,B: PLOT 396,39 
2: DRAW 394,8: PLOT 395, 392: DRAW 395, 8 
:PLOT 4, 280: DRAW 395, 280: PLOT 4, 328: 
DR 396, 328:PLOT 395, 128: DRAW 636, 1 


FLOT 288,288: DRAW 2408,8:PLOT 259,288 
: DRAW 259,8 

FOR n=1 TO 15:PRINT #4," "=CHR#(144) 
ı" "zverb#£in):NEXT: soTh. 548 

FOR n=1 TO 7BBB: NEXT:PRINT:PRINTz:zug 
=zug+i 

ECLS:CLS#1:CL5#2: CLS#3: CLS#5 

LOCATE #1,1,2 

FRINT #1,"Sie sind "; 

DT #1,raum& (raum) ;=:PRINT #1, 

yi=- 

FOR n=1 TO omax 

IF objekt in)“>raum THEN 448 


Listing. Der Fall »Famit AG« 


ni APPY® gr 
dern 


[D2D5] 


[B&C4] 
[FEF72] 
[Ab72] 


[D7@2] 


[7818] 


[&5CA] 


LFEBE] 


L?7FSA] 
[19904] 
[F288] 
[A1B2] 


L77AA] 


[E11A] 


L85E8] 


[856A] 


[F42A] 


L71D8] 
[BD3C] 


[Ab26] 


[C3IE] 
[7404] 
[4BD2] 


[53976] 
[74C4] 
[FS542] 
LEBEC]I 
[7BB8] 
L7DAA] 
[35272] 
ELiFBö] 


en ee 


Te 


Zen er ei iu Z 


x 


an ern 


aa u I Zn nn —_. 


j 
1 














| 618 
628 


638 
640 











hd 
678 








658 
678 













758 
768 
778 









7808 


7708 
BaR 
818 
828 













858 


848 
850 










860 






878 
8898 








8970 
910 
920 
930 
iM | 958 










=) 
778 
788 


he 9978 


| 1028 
R- 1830 
Sa 1848 
1058 
1948 


2 1078 
18808 


120708 
1188 
1118 












4580 PRINT#2," 


4 1208 
IR 1818 








RN. #2," 


artrien 
vyi=-yi1+1 


NEXT 


"sCHR$£(144)5" {CTRL X3i4 5 


PACE}":CHR$ (241); "i4 SPACE}FTCTRL %3" 
y2=2 
PRINTHS, " "sCHR£(144):" {CTRL X3t{4 5 


PACE}";CHR$ (248) ;"{4 SPACE}{CTRL X>" 


FOR n=1 TO omax 
IF objekt in)<>-1 THEN 728 


Bu bg #5." "sCHR#(144);" "sobjekt#tin 

710 iytyZ2)=n: y2ey2+i 

728 NEXT 

738 PRINT #3,"S5ie k'nnen nach "r:gedruck 
t=8 

748 FOR x=1 TOD & 


IF richtung (raum,x)=B THEN 798 ELSE 

gedruckt=-i1 

IF POS(#3)=17 THEN PRINT #3.richtung 
#(x)::60T0 798 

IF POStC#3)+LENtrichtung# (x))<48 THEN 


PRINT #3,", "zsrichtung$(x);:60T0 79 
[14] 
PRINT #3,".":PRINT #3,richtung#(x);: 
G0TO 798 
NEXT 

IF gedruckt=8 THEN PRINT #3,"nirgend 
wo"; - 
PRINT #3," gehen ." 

IF raum=17 ÄND objekt (27)=17 AND bed 


ingung(12)=8 THEN PRINT"Ihr Cheff2 5 

FACE}3goibt{2 SPACE} Ihnent2 SPACE}den 

Auf-trag „ sich ntherf{Z SPACE}mit de 

m FallFamit AG{i2 SFACE}zuf?2 SPACE}be 

fassent2 ‚SPACE}+und ihndanach zu info 

rmieren. ":bedingung (12)=-1:objekt {11 

ı=-l:FOR t=1 TO 79888: NEXT 

IF zug=4 AND raum=8 THEN FPRINT"Das T 

elefon klingelt ." 

IF raum“ >52 THEN objekt (128)=8 

IF zug>zmax THEN MODE Z:FRINT:PRINT" 

Sie k'nnen die Suche einstellen.Es i 

st zu spft '":LOCATE 22,18: PRINT"Meh 

r Erfolg beim nichsten Mal '":END 

IF raum=42 OR raum=37 THEN PRINT"Vor 
und hinter{2 SPACE}Ihnen liegt je-w 

eils eine Fabrikhalle." 

IF raum=43 THEN PRINT"Vor Ihnen lieo 

t ein Gebfude.”" 

IF raum=47 THEN FPRINT"Die T}r f{illt 

zu.Sie h'ren, da”ein Schl}ssel im Sc 

hlo* gedrehtwird. ":GOTO 538 

PRINT:FRINT"Was m'’chten Sie tun 7" 

y=-lıyy=1 

LOCATE #4,2,vy:PRINT #4,CHR$ (144) :L0O 

CATE #4,2,y:PRINT #4,CHR# (143) 

FOR n=1 TO 288:NEXT:IF INKEY(2)=B TH 

EN yy=y:y=v+1 ELSE 758 

IF y>=15 THEN y=-1% 

GOTO 718 

— INKEY(B)}=QB THEN yy=-yıy=y-i ELSE 97 
IF y<=1 THEN y=1 

GOTO 718 

IF INKEY(?}=B THEN PRINT nn 
=y:LOCATE #4,2,y:PRINT#4,CHR$1144): 

OTD 778 ELSE 920 

FOR n=1 TO 3BB:NEXT:ON vv GOTD 10200, 
1128,112@,1129,16588,121@,1129,1120,1 
129,1128,1128,2778,1128,1418,1328,14 

808 


CLS#2:CL5#5:nn=8: FOR n=1 TO & 

IF richtung (raum,n)<>@ THEN PRINT#2 
." SCHR$(144);" "srichtung#(n}:enn= 
nn+1:ri (nn)=srichtung (raum,n) 

NEXT 

y-lıyy=1 

LOCATE #2,2,yy:PRINT #2,CHR#(144) =: 1 
OCATE #2,2,y:PRINT #2,CHR$ (143) 

FOR n=1 TO 2O@: NEXT: IF INKEY(2)=8 T 
HEN vvevey=y+1 ELSE 19808 

IF y>=nn THEN y=nn 

GOTO 1848 

IF INKEY{B)=B THEN yy=y:y=y-1 ELSE 
1118 

IF y<i=1 THEN y=-1 

GOTO 1948 

IF INKEY{?)=98 THEN PRINT CHR&$(T)s:r 
aum=ri (y):PRINT ok#:6G0TD0 538:ELSE 1 
358 


yzl:yy-l:oyiyi)=B 

LOCATE #2,2,yy:PRINT #2,CHR#(144) :L 
OCATE #2, 3, v:ıFRINT #2, CHR$ (143) 

FOR n=1 10 2D0: NEXT: IF INKEY(Z23=B T 
HEN yy=y:y=y+1 ELSE 1178 

IF Ra THEN y=yi 

GOTO 1138 

IF INKEY (9) =® THEN yy-yiy-y-1 ELSE 





"sCHR$(144):" "Hobjekts$(n 


[3556] 
[DS8C]I 
C4D4C] 
L74F2] 


L1EBA] 
[L7CAC) 


[4072] 
[F172] 
[5SE18] 
[415C] 
[72D4] 
CöFFB] 


[L7&6FA] 
[3882] 


[C3A4] 
LACBE] 


[7084] 


[SEOC] 
CAFFE] 


[CBS2E] 
EFA42] 


[5805] 


[S1iF6] 
E7392] 


L4AFB] 


L2EZE] 
LIFECI 


CED42] 
[2E34] 
CBs74] 


Ci1F4] 


[aA9@] 
[BDA4] 
[6368] 


[7386] 
[ö7CE] 
[1365] 


[B500] 


[73D8] 
[548A] 


[BBEA] 
£[D744] 
EFFCA]I 


L[BS3A] 


[A23C] 
[2ECE) 
[SFOC] 


[ABZB] 
[3124] 
[5288] 


[E826] 
[SBDE] 
[4453A] 
[E43C] 


[3186] 
[ASOC]I 








1188 
1178 
1208 


1218 
1228 
1258 
1248 
1258 
12548 
1278 


1288 
1278 


1300 


1518 
1328 


1358 


1348 
1358 
1368 
1378 
1588 
13978 
14008 
1418 


1428 


1438 
1440 
1458 
1460 


1478 
1458 


14970 
1500 


1518 


1520 


15380 
1548 


1558 


1568 


1578 


1598 
1598 
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1288 

IF y<=i THEN y=1 

GOTDO 1138 

IF INKEY(F)<>@ THEN 1148 ELSE PRINT 
CHR#(7}s :0=0oy(y):IF ivy=8 OR vy=-il1 
AND oyty)=B THEN 1138 ELSE IF oyly 
’=B THEN LOCATE #2,2,y:PRINT #2,CHR 
#(144):GOTO 1218 ELSE 130808 

y=zlıyy=1 

LOCATE #5, 2,yv: PRINT #5,CHR#(144) :L 

OCATE #5, 2 ,vıPRINT #5 ,„CHR# (143) 

FOR n=1 TO 2@@: NEXT:IF INKEY(2)=@ T 

HEN yy=y:ıy=y+1 ELSE 1268 

IF y>=y2-1 THEN y-y2-1 

GOTOD 1228 

IF INKEY(B)=B THEN yy-y:y=y-1 ELSE 
1298 

IF y<=1 THEN v=i 

GOTD 1228 

IF INKEY(F)<>B THEN 1238 ELSE PRINT 
CHRFtTIs :o=siytiy): IF vy=4 AND y=1 T 
HEN 122B ELSE IF v=1 THEN LOCATE #5 
„2,Yy:FRINT #5,„CHR#(144):60T0 1128 E 
LSE 1308 

ON vv GOSUB 790,159808,15990,153909,1588 
„17108,17490,1830,1910,20880,2720,2778 
" 

GOTO 538 

FRINT"Bitte REC & FLAY dr}cken":PRI 
NT"Unter welchem Namen speichern": 

NPUT eingabef# 

IF LENteingabef) >i& THEN PRINT"Bitt 

e etwas k}’rzer '":GOTO 1328 ELSE ei 
ngoabe#="'!"+eingabe#:0OPENOUT eingabe 


PRINT#9 ,raum: PRINT#9 ,zug: PRINT#9, fo 
t 


oO 

FOR x=1 TO omax 

FRINT##F ,ob jekt (x) 

NEXT 

FOR «=1 TO rmax: FÜR y=1 TO 54:PRINT# 

9, „richtung (x ,y}:NEXT:NEXT 

FOR »=1 TO bdmax:PRINT#F7 ,bedingung ( 

»)=2NEXT 

CLOSEDUT: PRINT ok#$:GOTD 538 

FRINT"Bitte Cassette zur>ckspulen u 

ndPfLAY dr}3cken":FPRINT"Welches Spiel 
laden ":INPUT eingabe# 

IF LENleingabe$#) >1& THEN PRINT"Das 

kann nicht sein !'":GOTD 1418 ELSE e 

ingabe#="'!"+eingabe#:üOFENIN eingabe 

£ 


INPUT#7 ,raum: INPUT#9, zug: INPUT#9, fo 
to 

FOR «=1 TO omax: INPUT#9,ob jekt {x):N 
EXT 

FOR «=1 TO rmaxı:ı FOR y=1 TO 4: INPUT# 
9,richtung(x,„y):NEXT:NEXT 

FOR »=1 TO bdmax: INPUT#9, bedingung ( 
»>:NEXT 

CLOSEIN: FRINT ig GOTO 538 


MODE 2:L0OCATE 5:PRINT"Meh Erfol 
qbeim n RE "si IH: END he he 


NEXT 
IF 0=7 AND zug=4 THEN PRINT"Ihr{i2 5 
PACE}Chef ist{2 SPACE}am Telefon . 
Siesollen sofort zu ihm 
Jekt (27)=17:60T0 538 
IF 0=57 AND bedingung (2)}=B THEN FRI 
NT"Eine rote Lampe leuchtet auf .„": 
Pragehle ie Nein =-1:60T0 538 | 
IF 0=57 AND bedingung (2)=-1 THEN FR 
INT"Die Lampe geht aus .„":bedingung 
(2)=B:60T0 538 
IF o=&1 AND bedingung (5) AND beding 
ungi2) THEN 1548 ELSE 1558 
FRINT"Der Computer arbeitet. ":CALL 
&BBO&4: PRINT"Auf dem Bildschirm ersc 
heint:":PRINT"Ausgaben 178412 SPACE 
+: 15.245.755 DM":PRINT"Einnahmen 1 
9864 : 19.639.407 DM": PRINT"gesamt {7 
SPACE}: +2.134.B12 DM":FOR n=1 TO 
4988:NEXT:bedinqung (B}3=-1:G60T0D 538 
IF o=641 AND bedingung (5)=8 AND bedi 
nqung (2}3=-1 THEN FPRINT"Es passiert 
nichts .":60T0 538 
IF o=5& AND ob jekt (0)=55 THEN PRINT 
"Das Band beginnt zu laufen :":CALL 
&BBB&4: PRINT"Hallo Max / kommst Du 
morgen zuuns ? Benachrichtigef2 5PA 
CE}unsf2 SPACE}dochbittef2 SPACE}un 
d bring{2 SPACE}das{2 SPACE}Geschen 
kmit'!' Bei uns ist alles beim Al-tem 
.":FOR n=1 TO 4800:NEXT:GOTO 538 
IF 0=7 OR o=88 OR o=118 OR o=-115 OR 
o=55 THEN PRINT bemer kung# (5) :6OT0O 


338 

FRINT bemerkung$#(4):60TD 538 ’ 
IF o=1 AND objekt(1)=18 AND objekt ( 
13)=-1 AND bedinguna (4)5=-1 THEN rau 





L&F2@1 


[6824] 
[7612] 


CDADA] 
CBFCA]I 


[F85Z] 
[755C] 
[8582] 
[878C] 
L4B32] 


[4324] 
[(AC12] 


ED5CB] 


[5B06] 
ES7ACI 


[D480] 


[ZF84] 


LEDBC] 
[52DC] 


[858E1 | 


[1854] 
[A??B] 
[Ds1A] 
[i18C5] 


L725E] 


L797E] 
[27CE] 
[28822 
[75972] 


LE21C] 
[7712] 


[7456] 
iS5B5A] 


kommen. "sob 


LECäC] 


[&1D8] 


[7EF&ö] 
[895A] 


[ABDE] 


LAEDE] 


[BBE2] 


[D4D2] 
[855E] 








1580 
1810 


1528 
1530 


1548 
15450 


1668 


1678 
1688 


15978 
1780 
1718 
1728 
17538 
1740 
1758 
1758 


1770 


1788 


| 1790 


1808 


| 1810 





1828 
1838 
1848 


| 18508 
| 1848 


1870 
1888 


1878 









1908 
| 1918 


I 1928 


m=21:0b jekt (13)=@: PRINT ok#:60T0 53 
11) 
IF o=41 OR o=12 THEN FRINT bemerkun 


0o#(3):60T0 538 

IF o=45 AND raum=34 AND objekt (122) 

=34 THEN FRINT"Sief2 SPACE}haben da 

si2 SFPACE}Schlo*f2 SPACE}der T}rabg 
eschraubt und k'nnen die T}rso 'ffn 

en .„. Vor Ihnen liegt einGarten .„":r 
ichtung (34, 1)=35: richtung (35,2)=34: 

GOTO 538 

FRINT bemer kung# (4) :6G0TD 538 

IF fotoi=8 THEN FRINT"Der Film ist 
voll !':":60T0 538 

IF objekt (Z1)<>-1 THEN PRINT bemerk 
ung#(3):607T0 538 

IF o=82 AND ob ijekt (21)=-1 THEN bedi 
ngung {&6)=-1:foto=foto-1:FPRINT ok$:6G 

0TO 5380 

IF 0=93 AND ob jekt (21)=-1 THEN bedi 

ngung (7)=-1:foto=foto-1:PRINT ok#:6 

oTO 538 

foto=sfoto-1:FRINT ok$:G6GOTO 538 

IF (raum=-3& OR raum=s6i OR raums44 0 

R raum=53 OR raum=ss5 OR raum=55 DR 

raum=547) AND((zug>288 AND zuo“22B8)0 

Rizug’>25@ AND zug<27B)OR (zug>3Q08 AN 

D zua“328)) THEN PRINT"Sie h'ren „ 

da* jemand{i2 SPACE}im Hausist. ":60T 

0 538 

IF raum=47 THEN FRINT"Sie h'ren ein 
hfmisches Lachen. ":60T0 538 

FRINT"Sie h'ren nichts besonderes." 
:GOTO 538 

IF 0=77 AND objekt (77)=-1 AND raum- 

53 THEN ob jekt (77)=53:bedingung (5) = 

-1:FRINT ok$:60T0 538 

IF objekttio)=-1 THEN PRINT ok#:obje 

kt {o)=eraum:GOTO 538 

PRINT bemerkung# (4) :60T0 538 

IF 0o=5 THEN PRINT"Auf dem Zettel st 
eht :";bueronummer#:GOTO 5358 
IF o=18 OR 0=74 OR o=83 THEN PRINT 
bemerkung#{1):60T0 538 

IF 0o=33 THEN FRINT"Famit AG Elektro 
maschinen":PRINT"{4 SPACEI465334":GD 

TO 538 

IF 0o=35 THEN PRINT"Die deutsche Wir 

tschaft (5): Il-legale Geschifte in 
Elektronik-firma ?":PRINT"Dallas wi 

rd noch besser ' Jetztauch mit Sina 
tra ?":PRINT"Gl}ck f}r 83-Jfihrige : 
2.3 Mil-lion DM Lottogewinn !":FOR 
n=1 TO 3BB8:NEXT:GOTO 538 

IF 0=25 THEN FRINT"Die{i2 SFACE}Fami 
t AG „ Industriestra*e8-12 „ hatf2 

SPACE}einigef2 SFACE}merkwirdigebes 
chifte abgeschlo”en.Die bis-herigen 
Ermittlungen haben nochzu keinem E 
rgebnis gef}hrt.":FOR n=1 TO 4B00:N 


IF o=548 THEN PRINT"Lieber Schatz '" 
:PRINT"Ich{2 SPACE}hoffei2 SPACE}Du 
riskierst{2 SPACE>}nichtzuviel . Ho 
ffentlicht2 SFPACE’}kommst Dubald nac 
h „":PRINT"Ich liebe Dich !'":PRINT" 
{2 SPACE}Deine Angela":GOTO 538 
IF o=54 THEN PRINT"Das Geschfft }be 
r 542.308DM ab-geschlossen am 23.8. 
85 ist durchgef}’hrt worden.Die stri 
kte Ge-heimhaltung ist gewfihrleiste 
t.":6G0T0 5308 
IF 0=75 THEN PRINT"Es sind{i2 SPACE} 
die Frachtpapiere{2 SPACE}fF}r15 Kis 
ten R};hroerite{2 SFACE>nach Bel-ogie 
nti2 SPACE3undfZ SPACE}eine kleinere 
i2 SPACE}Kistenach Mayaquana. ":G6OTO 


3580 
FRINT bemerkung# (4) :60T0 538 
inv=B 
FOR »=1 TO omax:IF objekt ix})=-1 THE 
N inv=einv+l 
NEXT 
IF inv>=4 THEN FRINT"Ich kann nicht 
mehr tragen .":G6GOTO 538 
IF 0=77 AND objekt (o)“>-1 THEN obje 
kt (77)=-1:PRINT ok$:60T0 538 
IF (o=18 OR o=-i1l OR o=s13 OR osißB OR 
o=21 OR 0=25 OR 0o=34 OR 0=35 OR os 
>56 OR o=43 OR o=44 OR 0=45 OR o0=44 
OR o=52 OR o0=>51 OR 0555 OR o0=>54 OR 
o=5B OR o=74 OR o=7& OR o=Bi) AND o 
bijiektio})<>-1 AND objiekt (o)<>@ THEN 
obijekt (o)3=-1:PRINT 0k*:60TD 538 
IF (0o=5 OR o0=84 OR 0=-95 OR o=-1B3 OR 
o=187 OR o=11?7) AND obiekt (o)<>-1 
AND objiekt (o)<>B THEN ob jekt (o)=-1: 
FRINT ok$:GOTO 530 
FRINT bemerkung#(2):GOTO 538 
IF o=1 AND objekt (13)3=-1 THEN bedin 
gung (4)=-1:PRINT ok$:6G0T0 538 
IF 0o=3 OR o=& OR o=1& OR 0-17 THEN 
PRINT"Die T}r ist schon offen .":60 


EXT:GOTO 5538 


Ha KAT \ > = j - 
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[8258] 
CABSC] 


[59481] 
[BES4] 


[8B&äc] 
L15A8] 


[2056] 


[BI1SE] 
[BA12] 


[7238] 
[2032] 
[L75Aö] 


[DösF&6] 


[7B45] 
[D958] 


[D746] 
[?297C] 


EDADC] 


[BDS4] 


EBE4A] 


[SFEö] 


L7C58] 


[F178] 
[4058] 
[CB24C] 


[58C0] 
[SFSA]I 


[Lran4] 
[8D7&] 


[F348] 


[EBSs4] 
1752] 


[1556] 


1930 
1748 


1758 


1968 


1778 
19788 


19778 


2008 


2BiB 


2828 


2838 


2840 


20508 


2B68 


2078 
2888 


2078 
2188 


2118 
2128 


21358 
2148 
2158 


2168 


2178 


21858 
2178 


2280 


22180 
2228 


Spiele-Listing 


Lau ar 





TO 538 
IF 0=7 OR o=22 THEN PRINT"Die T}ren 
sind schon offen. ":60T0 538 
IF 0o=58 AND richtung (45,3)=8 THEN P 
RINT"Sie haben die T}r ge'ffnet “ri 
richtung (45,3)=33:60T0 S3Sß:ELSE IF 
o=58 AND richtung (45,3)=33 THEN PRI 
ee T}r ist schon offen .„":60OTO 
252 
IF 0=597 THEN FRINT"Die T}r{2 SPACE} 
ist verschlossen „ Siehaben keinent 
2 SPACE}passenden Schl}s-sel . Sie 
1f{*t{i2 SPACE}sich allerdingsvon inn 
en 'ffnen .":G0T0 538 
IF 0=7& ANB ob ijekt (187)=-1 AND bedi 
nqgung ({?}=B THEN FRINT"Sie haben den 
Koffer ge'ffnet „":bedingung (P)=-1 
:GOTO 53B:ELSE IF 0o=76 AND BEIaRE 
j 7)=-1 TH 
Nr’ber EN Pa gar AR offen .":6G0 
TO 538 


IF o=24 OR 0=182 THEN FRINT"Die Sch 
ublade ist schon offen .":GOT0O 538 
IF 0=185 AND bedingung (3)=B AND obj 
ekt (1835)=-1 THEN bedingung {3)=-i:PR 
INT ok$:60T0 538 

IF 0o=1806& AND bedingung (3)7=-1 THEN P 

RINT"Die Schublade ist schon offen 
.":G0OT0 538 

IF 0=35 AND raum=43 AND richtung (43 
‚1)3=B THEN richtung (453,.1)=74: PRINT 

ok#:G0OTO 538 

IF 0-35 AND raum=43 AND richtung (43 
‚1)=74 THEN FRINT"Die T}r ist schon 
offen .":G6G0OT0O 538 

IF:-o=11?7 THEN FRINT"Sief2 SPACE}K'n 
nentiZ2 SFACE}die Schubladef2 SPACE}z 

urZeit nicht 'ffnen „":60T0 538 

IF o=82 THEN INPUT"Geben Sie die Za 

hlenkombination ein "seingabekomb$: 
IF eingabekomb#=safekomb# THEN FPRIN 
T"Es{Z2 SPACE}war dief2 SPACE}richti 
ge Kombinat-ion. Der Safe ist jetzt 
offen. ":bedinqung (13)=-1:60T0 538 
ELSE PRINT"Die Kombination ist fals 
ch .":60T0 538 

IF o=118 AND richtung (58,3) =8 THEN 

PRINT"Sie haben das Fenster ge'ffne 
t. "richtung (58,3)=57: richtung (57,4 
I=408:60T0 538 

IF o=118 AND richtung (69,3)=57 THEN 
PRINT"Das Fenster ist ge’ffnet .": 
GOTO 538 

IF o=11& AND ob jekt (35)=-1 AND rich 
tung (453,1)3=8 THEN PRINT"Sie haben d 
ie T}r ge’ffnet „"rrichtung(43,1}=7 
4:G60T0 538: ELSE IF o=1iä AND richtu 
ng(43,1)=74 THEN PRINT"Die T}r ist 
schon offen .":GOTD 538 

PRINT bemer kung# (3) :60T0 5538 

IF o=1 THEN FRINT"Es ist meiner.":6 
OTD 538 

IF o=2 OR 0=49 THEN PRINT"Sie f}hrt 
nach oben. ":60T0 538 

IF o=4 AND objekt (5)=8 THEN PRINT"I 


ch sehe einen Zettel. ":ob jekt (5) =4: 
GOTO 538 

IF 0=5 THEN FRINT"Darauf steht eine 
Nummer . ":GOTO 53B 


IF o=8 AND ob jekt (1iB)=9@9 AND objekt ( 
11)=8 THEN FRINT"Auf demf2 SPACE}Sc 

hreibtisch liegt einDienstausweisi2 
SPACE}und eine Dienst-pistole.":ob 
jekt (18) =B: ob jekt (11)=8:60OTD 538 

IF o=18 THEN PRINT"Es ist ihr Diens 

tausweis. ":6G0OTO 538 

IF o=11 THEN FRINT"Es ist ihre Dien 
stpistole.":GOTO 538 

IF o=12 AND objekt (13)=@ THEN PRINT 
"Auf dem Schreibtisch{2 SPACE}liegt 
einSchl}ssel .„":objekt (13)=97:6GOTD 
58 


IF o=13 THEN PRINT"Sie{2 SPACE}kenn 
eni2 SPACE}diefi2 SPACE}Funktionft2 5 
PACE}desSchl}ssels nicht.":60T0 5538 


IF o=14 THEN PRINT"Es ist "; (zug\öß 
+18);"."s (zug MOD 8); "Uhr":6G0T0O 53 
8 


IF 0=15 OR o=58 THEN PRINT"Sie f}hr 

t nach unten. ":GOTO 538 

IF 0o=17 AND objekt (18)=B THEN PRINT 
"Auf dem Schreibtisch liegen Ak-ten 
.":objekt (18)=11:60T0 538 

IF o=28 AND objekt (21)=8 THEN PRINT 
"Auf dem Schreibtischi2 SPACE}’1liegt 
einFotoapparat. ":ob jekt (21) =13:60T 

0 538 

IF o=21 THEN FRINT"Es sind noch";fo 

to: "Bilder drauf.":60TD 538 

IF 0o=23 AND objiekt (24)=@ THEN PRINT 
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[7512] 


[65542] 


[3358] 


[C187C] 
LE?42) 


[CAFCI 


[5832] 


[5554] 


[5497A] 


Lili] 


[5D28] 


[4920] 


[1052] 


[BF?A4] 
[7852] 


[7BAE]I 
[LCESF6] 


[DECB] 
[FBFA] 


LEAGE] 
[8597C) 
[DF&8] 


LE5AS] 


[aAB8] 


[33AB] 
[Bs5C] 


[53448] 


[aC54] 
[533580] 


Es. 











22538 


2240 
et, 


2260 


2278 


2288 


22978 


2308 


2318 


2320 
2350 


2340 


2358 


2360 


2378 


2388 


23970 


2408 


2418 


2428 


2438 


2440 


2458 


24&B 


2470 


2490 


2498 


"Gie sehen eine Schublade. ":objekt ( 

24)=15:60T0 530 

IF o=24 AND objekt (25)=@9 THEN PRINT 
"Sie sehen eine Akte. ":objekt (25)=1 

&:G0T0 538 

IF 0o=25 THEN PRINT"Sie geh'rt zum F 

all 'Famit AG’.":60T0 538 

IF 0o=27 THEN PRINT"Sie{2 SPACE}spie 
leni2 SPACE}mit ihrer Entlas-sung." 
:GOTO 538 

IF o=31 THEN FRINT"Die Telefonzelle 
i2 SPACE}ist nicht be-schidigt '!!!" 
: ob jekt {32)=25:6G0TD0 538 

IF 0=34 AND (ob ijekt (35)=Q OR objekt 
(35)=28) THEN FRINT"Daran hängt ein 
Schl}ssel. ":robjekt (35)=-28:60T0 538 


IF 0=34 AND ob jekt (35)<>28 THEN PRI 
NT"Daran hing ein Schl}ssel.":6GOT0O 
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IF o=35 THEN FRINT"Es ist die Ausga 
be vom Samstao,.dem 23. November 198 
3 .":60T0 5308 

IF o=41 AND objekt (42)=8B THEN PRINT 
"Unter einem LKW liegt Werkzeug.":o 
bjekt (42)=37:60T0 5538 

IF o=42 THEN ob jekt (42) =B: ob jekt (43 
ı=37:0b jekt (44) =57:0b jekt (45) =37: 0b 
jekt (45)=37:PRINT bemerkung# (1): 60 
To 530 

IF 0=49 THEN FRINT"Sie f}hrt nach 0 
ben. ":G0OTO 538 

IF o=51 THEN FRINT"Es sind alte Akt 
en und die Per-sonalliste. ":objekt ( 
S1)=B: ob jekt (52) =4B8: ob jekt (53) =48:6 
0TD 538 

IF 0=5& AND ob jekt (57)=8 THEN PRINT 
"Ich sehe einen Drehknopf.":objekt [ 
>7)=590:60T0 5380 

IF 0=57 AND bedingung (2)=8B THEN FRI 


NT"Der Drehknopf steht auf Null.":6 
oToO 538 
IF 0=57 AND bedingung (2)=-1 THEN PR 


INT"Der Drehknopf steht auf Eins.": 
GOTO 538 
IF o=61 AND objekt (52)=@ THEN PRINT 
"Neben dem{2 SPACE}Computer stehen 
Dis-kettenlaufwerke. ":ob jekt (52) =53 
:60T0 538 
IF o=53 AND objekt (544)=B THEN PRINT 
"Auf dem Schreibtisch{i2 SPACE}liegt 
einGeschiftsbrief.":objekt (64) =54: 
S0TO 538 
IF 0o=55 AND objekt (44)=@ THEN PRINT 
"Auf demti2 SPACE}Schreibtisch steht 
einÄnrufbeantworter. "tobjekt (6465) =5 
S5:60T0 5358 
IF o=57 AND objiekt (48)=8 THEN FRINT 
"Auf demi2 SPACE}Schreibtisch liegt 
einBrief.":objekt (58) =-54:560T0 538 
IF 0=73 AND ob jekt (74)=9 THEN FRINT 
"Im Schrank stehen B}cher. ":objekt { 
74)=51:60T0 538 
IF 0=75 AND objekt (76)=B THEN PRINT 
"Unter dem{iZ2 SFACE}Bett liegt ein H 
art-schalenkoffer.":objekt (76)=&2:6 
0TO 538 
IF 0=75 AND bedingung {iß)=B AND obj 
ekt (7&)<>QB AND ((zug>288 AND zug“22 
B)OR(zug>258 AND zug<27B)0OR (zug>308 
AND zug<32®8)) THEN FRINT"Neben dem 
Bett steht ein Mann „der{2 SPACE}>o 
ffensichtlich{2 SPACE}durch ihreGeg 
enwart sehr erschrocken ist.":objek 
t(128)=42:60T0 538 
IF 0o=7&5 AND bedingung (F}=-1 AND obj 
ekt (77)=8 THEN PRINT" Im OLE ner 
nden säch,Bisket ten. ":objekt 


IF 0o=7& AND bedingung (9)=B THEN PRI 

NT"Der Koffer ist verschlossen. ":6O 

TO 5508 Be 

IF 0o=77 AND ob jekt (77)<>@ THEN PRIN 

T"Auf den Disketten steht :":PRINT" 
AND raum®= 


"Buchhaltung’ .":60T0 538 

IF o=81 AND objekt ({B1i})=--1 

64 THEN FRINT"Da wo{fZ2 SPACE}der Spi 
egel hing „ sehensie einen Safe.":o 
bjekt (82) =54:60T0D 53B = 
IF 0o=82 AND bedingung (13)=@8 THEN PR 
Int Der Safe ist verschlossen .":60 
TO 5 

IF en AND bedingung {i3)=-1 AND (o 
bjekt (835)=@ DR objekt (B5)=&64) THEN 
PRINT"Im Safe liegen Unterlagen.":o 
bjekt (83) =44:60T0 538 

IF 0=83 AND objekt (835)<>B THEN FPRIN 
T"Es sind Vertr{ige{f2 SPACE}}ber ill 
egaleGeschifte.":60TD 538 

IF 0o=89 OR 0=98 OR 0o=91 THEN PRINT" 
Es sind 5 Kisten. In ihnen bef-inde 
n sich Elektrogerite. ":60T0 538 

IF o=?2 THEN PRINT"Darin liegt viel 


LEA?F2] 


[FöBE] 
[5348] 


[SF#F8] 


[7300] 


[4528] 


[BBBEB] 


[8C18] 


[LACFC] 


[SDSE]I 


[4B78] 


ESESC]I 


[FBCA]I 


[2B7&6] 


[Z8BC] 


[3578] 


CEFEC)I 


L7’DUB] 


L3B56] 


cc2C2] 


[8538] 


[B964] 


[22E8] 


[FEAB] 


[SD2E) 


[SASCI 


[7D?7A] 


L78D8] 


[CB4E] 


[Ad&2] 





2549 
25580 


2568 


2578 
2588 


2578 


2408 


2618 
25620 


2538 


2648 


25580 


2668 


2678 


2588 


269780 


2708 


2718 
2728 


2738 


2748 


2758 


2768 
27708 


2788 


Geld. ":ob jekt (93) =72:GOTO 538 
IF 0=-?73 THEN FRINT"Es{t2 SPACE}’sindt 
2 SPACE>ungefthr {2 SPACE}1BI2 SPACE 
+MillionMark.Das die einer einfach 
ste-hen 1{*t ?!":60TD 538 
IF 0=94 THEN PRINT"Sie sehen Fracht 
papiere. "robjekt (95)=-73:60T0 538 
IF 0o=97 THEN PRINT"Der Tote scheint 
der Geschffts-f}hrer der{i2 SPACE}F 
irma sein - Er isterw}rgt worden „ 
vermutlich miteinem Handtuch.keine 
sch'ne Ärtzu sterben ' Er£Z SFACE}i 
st{2 SPACE}aber noch"::60T0 25648 EL 
SE 2578 
PRINT"warm „also ist er erst vor ku 
r-zer Zeit get'tet worden. DbwohlSi 
ei2 SPACE}nicht{2 SPACE}zur{fi2 SPACE 
+Mordkommissiongeh'ren „ k'nnenf2 5 
FACE}Sie versuchenauch den M’rder z 
u finden, dennder {2 SPACE}ist unter 
{2 SPACE}Umst {nden{2 SPACE}hiernoch 
irgendwo. ":CALL &BBB5:60T0 538 
IF 0=49 THEN PRINT"{2 SFPACE}’WIITg ! 
11:560T0 538 
IF o=181 THEN PRINT"Sie sehen eine 
Schublade. ":ob jekt (182)=BB:6G0TO 538 


IF o=1082 AND objekt (183)=B THEN PRI 
NT"Sie{2 SPACE}sehen{2 SFPACE3einent 
2? SPACE}Sicherheits-schl}ssel.":obj 
ekt (105) =-88:60T0 538 

IF o=1894 AND objekt (119})=B THEN PRI 
NT"Im Schreibtisch ist eine Schub-l 
ade. ":objekt (ilF})=-81:60T0 538 
IF o=11? THEN FRINT"Die Schublade ı 
st verschlossen. ":G6G0T0O 530 

IF o=185 THEN PRINT"Sie sehen eine 

Schublade. "rob iekt (184) =82:6G0TD0 538 


IF o=186& AND objekt (107)=9 AND bedi 
ngung {3)=-1 THEN PRINT"Sief2 SPACE} 
sehen einen Spezialschl}s-sel.":obj} 
ekt (197)=-82:60T0 538 
IF o=1B& AND bedingung (3)7=B THEN FR 
INT"Die Schublade ist verschlossen. 
":60T0 538 
IF o=118@8 OR o=113 THEN PRINT"Alle M 
aschinen{2 SPACE}sind abgeschal-tet 
:":60T0 538 
IF o=114 AND objekt (115)=@ THEN PRI 
NT"Sie sehen ein Loch im Zaun.":obj 
ekt (115) =93:rrichtung (93, 1)=44: richt 
ung (44,2)=93:60T0 538 
IF o=128 THEN PRINT"Der Mann{Z2 SPAC 
E}hat Sie k.o. geschla-gen.Sie sind 
erst nach 28 Minu-ten wieder zu Be 
wu*tsein gekom-men. Der Kinnhaken k 
am vom Chefder Firma,dem ehrenwerte 
n HerrnVogler.":FOR n=1 TD 3008: NEX 
T:zug=zug+280:60T0 538 
IF o=121 THEN PRINT"Im Holzzaun ist 
eine versteckteT}r eingebaut.":obj 
ekt (122)=34:60T0 538 
IF o=121 AND bedingung{11)=-i1 THEN 
FPRINT"Die T}r{2 SPACE}ist offen . ’ 
or{2 SPACE}Ihnenliegt ein Garten." 
richtung (34,1)=35:60T0 538: ELSE IF. 
o=121 THEN FRINT"Die{2 SPACE}verste 
ckte{2 SPACE}T}Ir{2 SPACE}istti2 SPAC 
E}ver-schlossen. ":ıGOTD 538 
IF o=123 THEN PRINT"Die{i2 SPACE}YT}r 
{2 SPACE}ist leiderf{2 SPACE}von au” 
enverschlossen worden. ":G0T0 538 
PRINT bemerkung${1):60T0 538 
IF o=128 AND ob jekt (1B8)=-1 AND obje 
kt (&4)=-1 AND bedingung (&)=-1 AND b 
edingung (7}=-1 AND bedingung (B)=-i1 
AND ob jekt (77)=-1 THEN RESTORE 52508 
:FOR m=1 TO cmax:READ n:PRINT CHR#&( 
n)s:NEXT:bedingung (1B)=-1:FOR n=1 T 
DO 15B8B88:NEXT:CALL &BBB&4:GOTO 538 
IF 0o=27 AND objekt (1@)=-1 THEN PRIN 
T"Sie sind entlassen.":FOR n=1i TO 5 
BBB:NEXT:GOTO 1488 
IF 0=97 AND objekt (1@)<>-1 THEN PRI 
NT"Wief2 SPACE}sind SiefZ2 SPACE}blo 
”- zur Polizeigekommen!'Die Leiche(!) 
ist tot'":60T0 538 
IF objekt {18)<>-1 THEN FRINT"Weil{i2 
SPACE}sief{2 SPACE+}ihren{2 SPACE}Di 
enstausweisnicht {2 SPACE}bei sich t 
ragen „ k'nnensie niemanden verhaft 
en. ":GOTO 538 
PRINT bemerkung#(4):6G0T0 53980 
IF o<>32 THEN PRINT"Sie k'nnenf{2 SP 
ACE}ietzt{2 SPACE}nicht{2 SPACE}tel 
e-fonieren. ":GOTO S38:ELSE IF 0o=32 
AND obiekt (117)<>-1 THEN PRINT"Sie 
haben kein Geld.":60T0 5538 


INFUT"Welche Telefonmummer "nummer 
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[835E6] 


[1B&4] 
[8D3A] 


[Cs8A] 


[8AS2] 
E7DDE] 


[CIEE] 


[744E] 


[DSC2] 
[C8CC8] 


[Eö4F8] 


[AP54] 
LEDS34] 


EDBDö]J 


[BFDCI 


[4844] 


[4328] 


[9535A] 


[DBAA] 
[CDS58] 


[44BE] 


[CABEE]I 


C4EEA] 


L1E2C] 
[FD&ö8] 


[B18EI 








2790 


2800 


2818 


2628 


2838 


2848 
2850 


£: IF nummer $=bueronummer# THEN 2778 
ELSE PRINT"Beim nichsten Ton ist e 
s"siß+(lzug\döBß):":"s(zug MOD 48): "Uh 

r „.:sound 1,478,1808,7:print" Piiii 

eeppp!!!";G0T0 430 

IF bedingung(ißd)=-i THEN MODE 2: PRI 

NT=:FRINT"{7 SPACE}Herzlichen Gl}ckw 

unsch !'!'!"3PRINT=:PRINT" Sie haben i 

hre Aufgabe erf}llt und ihren Chef 

benachrichtigt. ":PRINT:END 

IF bedingung (18)=8 THEN PRINT"Ihr C 

hef{i2 SPACE}sagt Ihnen durchs Te-le 

fon,er wolle Resultate sehen.Wenn n 

icht bald etwas geschehe,werde er d 

af}r sorgen „ da“ Ih-nen etwas gesc 

hehe. ":FOR n=1 TO 30888: NEXT:GOTO 53 


ru] 

IF o=27 THEN PRINT"Sie sind von zwe 
i ihrem Chef zuHilfe kommenden{2 5P 
ACE}Polizisten er-schossen worden." 
:FOR n=1 TO 4808: NEXT:GOTO 1488 

IF o=48 AND objekt (45)=-1 THEN PRIN 
T"Sie haben das Fenster zerschla-ge 
n,„ und Sie k'nnen jetzt durchdas Fe 
nster klettern. "srichtung (354,4)=61: 
richtung (61 ,3)=35:60T0 538 

IF 0=58 OR 0=5%7 OR 0o=118 THEN FRINT 
"Sie haben{Z2 SPACE}die Alarmanlage 

aus<-gel 'st.Damit k'nnen Sie die S5u- 
che einstellen.":FOR n=1 TOD SR8d:NE 
XT:GOTO 1488 

IF obiekt (45) =-1 THEN PRINT"Gewalt 

wird Ihnen nicht helfen.":60T0 538 

IF objekt (45)<>-1 THEN FRINT bemerk 
UngEsz? EUER 530 

YmMBOL AFTER 32 


2848 5Y 


2878 


26898 
2878 


2900 
29718 
2928 
2938 
2948 
2950 
2958 


2978 


2988 


2998 


S>@18 


35028 


>038 


3050 





SYMBOL 


SYMBOL 
SYMBOL 


SYMBOL 
SvMBOL 
SYMBOL 
SYMBOL 
2 


SYMBOL 
195,255 
READ pi,p2,p3,p4: IF pi=-7977 THEN 38 
So 
PLOT pi,p2:DRAW p3,p4:G0OT0 2958 
DATA 179,270,1898,278,215,.2790,225,27 
08,175,270,195,348, 205,548, 2208, 278,1 
76, 270, 196, 340, 205.340, 221 ‚270,195, 
342, 205, 340, 184, 295, 214, 295,240, 278 
‚250, 270,240, 340, 250,340, 290,278 
DATA 290,.270,280,348,290, 340, 245,27 
0,245,340, 246, 270.246, 340, 245, 3o5. 2 
85 ‚270,245, 305, 285, 340,310, 340, 365, 
340, 3180, 348,310,335, 369, 340, 365, 335 
‚337 ,340,337,270 
DATA 338,340, 338, 270,332,.270,342,27 
0,311,348,311,335, 366,340, 366,335, 3 
85.270,448,270,448,270,440,289,441, 
270,441 ,.280,3908,2708,370,348,371,5340 
391,270,5385,3408,440,340 
DATA 449,340,4408,330,441,340,441,33 
Q0.3790,305,420,305,428,2997,4208,310,4 
21,310,421,29797,18080,158,1180,158,105, 
158, 185,218,1985,158,105,219,100,218 
„140,218,140,210,140,2085,141,21®8 
DATA 141 ,285,1085,185,125,185,125,18 
0,125,1897,125,188,125,189,18B,168,1 
798,168,.1708,158,289,150,1655,1658,175, 
210,185,2180,195,1690,166,1508,176,218 
‚186,218,195,150,175,218,185,218 
DATA 1790,178,1978,178,228,150,230,1& 
Q,250, 160, 270, 150, 225, 160, 225, 210,2 
24, 16B, 225 ‚210,265,160,265, 210, 2665. 
140, 266, 210,245, 158,255, 210, 245, 148 
‚225, 218, 225, 210, 245, 160,268, 210, 24 
ö, 160 
DATA 299,140, 308,140, 279,218,5300,21 
8.295,1&0, 295 ‚210,296, 160,296,210, 3 
28 ‚210,360,210, 3290,210,328,285, 321, 
210, 321,285, 360,210, Shd, 205, 361 218 
‚361, 205, 340, 218, 348,160, 341, 160 
DATA "341 ‚210,335, 160.345,160, 400, 1& 
a,410, 160, 458,150,440,160, 405, 160, E 
15,218, 425, 218, 435, 160, 406, 1650, 416, 
210, 426, 210, 435,160,408, 178, 431, 178 
.416,210,426,218,497,210,490,210,-9 
99, ” b 
FOR a=?@ TO 189: DEG: PLOT 498+20*C05 
(a) „,1980+208*+5IN (a) :NEXT:DRAWR B,-1B: 
DRAWR 1,.8:DRAWR B,18:FOR a=si88 TO 3 
60: DEG: PLOT 490+20*L05 (a), 188+20+5S1 
Nta) NEXT: DRAW 510,185: PLOT 511,188 
:DRAW 511,185: DRAW at, 1233 TIBS 1,26 
: RETURN 


123,198,0,128,12, 


96,1902,0,60, 
92.102,60, 


91,182,40,102,192,125,1902,18 


124,204,118 


182,102,102,68 
102,102,102,102,68 


125,102,0,1802,102,102,1802,62 
93,56,1902,182,182,.102,102,88 
i8 
144 ,255,195,195,175,195,175, 


124,28,35,97,1088,97,977,99, 


[FiEC] 


[5788] 


Eö31C] 


[Cö58A] 


[5508] 


[8F88] 
[ABSCI 


LSFBA] 
E15BA] 


[5768] 
EDAAdb] 


[FAd6] 
[&7BA] 
[924A] 
[C452] 
[4E45] 
[7FAB] 


[DEZ] 
EDES3A] 


[35AA] 


[42A8] 


C4BCE] 


[CFCB2] 


[8496] 


[C956] 


EBFEZ] 


[2882] 


CDBSE]. 





4828 


| DATA 











DATA gehe nach,bediene,benutze,foto 
grafiere,h're,leg,lies,nimm, 'ffne,u 
ntersuche, verhafte,telefoniere,zers 
chlage,lade,speicher „ende 

DATA einen Pkw,i1B 

DATA eine Treppe, 2 

DATA eine T}r,3 

DATA einen Schreibtisch,4 

DATA einen Zettel,® 

eine T}r,ä 

T’ren,? 

einen Schreibtisch,8B 

ein Telefon,B 

einen Dienstausweis.® 

eine Pistole, 

einen Schreibtisch,? 

einen Schl}ssel,® 

eine Uhr „ö 

eine Treppe,ißd 

eine T}r,i® 

einen Schreibtisch,il 
Akten,„d 

eine T}r,i2 
einen Schreibtisch, 
einen Fotoapparat, 
T}ren„15 

einen Schreibtisch, 
eine Schublade,® 
eine Akte,B 
einen Schreibtisch,i1? 
ihren Chef, 

Autos,„i? 

Geschirr „28 

eine Stra*enlampe,„23 
eine Telefonzelle,25 
ein Telefon,d 

ein Firmenschild,27 
eine Schl}sselleiste,28 
einen T}rschl}ssel,B 
eine Zeitung,„28B 

einen Zaun,2? 

einen Zaun„sSi 

Blumen „35 

ein Fenster „Sö 
Lastwagen „37? 
Werkzeug,® 
Schraubenschl}ssel ,Q 
Zangen,® 

einen Hammer „Bd 
Schraubenzieher „d 
Maschinen, 4 
Maschinen, 4i 

eine Treppe,45 

einen Schreibtisch,47?7 
Akten,48 

die Fersonalliste,d 
alte ÄAkten,DB 

einen Schreibtisch,47 
einen Stuhl „4? 

eine Schalttafel,S5®B 
einen Drehknopf, 

eine Glast}r „44 

eine Glast}r „33 

eine Treppe,52 

einen Computer „53 
Diskettenlaufwerke,ß 
einen Schreibtisch,54 
einen Gesch{ftsbrief, 1] 
einen Schreibtisch, 55 
einen Anrufbeantworter „Bd 
einen Schreibtisch, ,S5ö 
einen Brief,® 

eine Toilette,57 

ein Geb}sch „S8 

Sessel „öl 

einen Tisch,„öl 

einen Schrank ,„öi 
B}icher „d 

ein Bett,ä2 

einen Koffer ,® 

8 Zoll-Disketten,B 
eine Dusche,&3 

ein Waschbecken ,ö3 
die Garderobe,s4 
einen Spiegel ‚ö4 
einen 5afe,d® 
Unterlagen,B 

die Haust}r „45 
K’chenger {te,55 

einen Tisch,&67 
St}hle,67 


einen Gabelstapler ,58 
Kisten, 657 


Kisten, 7/B 

Kisten,?7i 

eine Kiste, 72 

viel Geld,® 

einen Schreibtisch, 73 
Frachtpapiere,O 
Waschbecken „77 


13 


16 


DATA 
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[2S5BC] 
[CE734] 
[3A681 
[1812] 
CCD1®] 
[3344] 
CAFOA] 
[B334] 
[2128] 
[D8648] 
[DD2E] 
[2144] 
LIF2AI 
LAGEB] 
[41E2] 
[CDBCI 
[6964] 
C3F74] 
[OSE4] 
[B36E] 
[7D7E] 
[5964] 
[D79E] 
[318A] 
[7998] 
[AQB6] 
[7280] 
[8756] 
CF18C] 
[82D4] 
[36E4] 
[69C8] 
[3454] 
[34E4] 
[9878] 
LEFFCI 
[7CC®] 
[8618] 
[8584] 
[D23A] 
[CIBDE] 
[3EC8] 


(D030} 
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Spiele-Listing 


I DATA in der Pf 


ı eine Leiche, 77 
Kocht'pfe,78 
Tische, 77 
St}hle,77 
einen Schreibtisch,8® 
eine Schublade,& 

einen Schl}ssel,® 
einen Schreibtisch,Bi 

einen Schreibtisch,82 
eine Schublade,® 

einen Spezialschl}ssel ,@ 
Maschinen „83 

Maschinen ,84 

eine Schalttafel „85 
Maschinen ,Bö 

Maschinen ,B? _ 

eine Schalttafel „88 
einen Zaun ,?73 

ein Loch im Zaun,® 
eine T}r,43 

etwas Kleingeld,® 

ein Fenster „5 

eine Schublade, 

einen Mann,d 

einen Holzzaun,S34 

eine versteckte T}r,& 
eine T}r,47 : 

vor dem Polizeigebiude,B,2,18, 
17,8,8 
DATA im 
DATA in 
DATA in 
DATA in 
DATA in 
DATA in 
DATA in 
DATA in 
DATA in 
DATA in 
DATA in 
DATA in 
DATA in 
DATA in 
DATA in 
DATA im 
0.,0,.0,8 
DATA auf der Stra”e,18,18,18,1,8,8 
DATA auf der 5Stra*e,19,17,1,17,8,8 
DATA in der Kantine,8,8,7,8,2,8 
DATA vor der Fabrik,3,8,22,23,80,B 
DATA auf der Stra*e,22,22,87,21,8,8 


DATA auf Stra*e,235,24,21,25,8,8 
DATA auf Stra”e,23,24,24,24,0,8 
DATA auf Stra*e,26,25,25,25,8,8 
DATA auf Stra”e, 26, 25,23,25,80,0 


DATA am Eingang,27,8,0,28,80,8 
"rtnerloge,8,8,27,8,8 


Weg,„31,27,30,0,0,28 
Parkplatz,0,0,8,27,8 


Eingang ,1,3,8,.5,18,® 
einem Flur ,„2,8,8,#, 
einem B}r0,5,.8,3,8, 
einem Flur ,B,4, 2,6, 
einem . 
einem 
einem B}ro,Bß,7,&, 
einem 
einem 
einem 
einem 
einem 
einem 


B’ro,1B,8 


B}ro,12,8,11i 
Flur „B,8,12,1 
einem Flur ,15,17,14,B,E 
einem B}ro,B,15,8,8,28,8 
B}ro des Polizeirates,15,d, 


ü 
& 
E 
u er 


der 
der 
der 


der 


‚a 
DATA auf 
DATA auf 


‚BO 

DATA auf 
DATA auf einem 
DATA vor einem 
‚58,32,8,8,8 
DATA auf einem Weg,®,32,37,80,8,8 
DATA auf einer Terrasse ,B,8,35,8,8, 


einem 
einem 
einem Weg,32,27,8,8,8,8 
Weg,34,31,38,.33,80,8 
Verwaltungsgeb {ude,® 


["] 

DATA in einer Fahrzeughalle,8,8,8,3 
ATA auf einem Weg,98,8,39,32,0,2 

auf einem Weg ,B6,48,42,38,8,8 

in einer Fabrikhalle,37,8,8,8, 


in einer Fabrikhalle,42,80,8,BD, 


einem Weg,83,41,43,37,2,8 
einem Weg,d,44,08,42,0,8 
einem Weg,43,8,45,8,80,8 
einem Lagerhaus ,P,8,658,44, 


Eingang ,48,47,8,51,52,80 
einem B}ro,90,8,82,8,8,8 
Archiv,2,464,0,8,8,8 

einem B}ro,8,51,8,B, 


auf 
auf 
auf 
vor 


DATA im 
DATA in 
DATA im 
DATA in 
DATA im 
DATA in 
DATA in 
DATA in 
DATA in 
DATA in 
im 
DATA in 
0,0,8 | 
DATA auf einem Pfad,33,8,8,59, 
DATA auf einem Ffad,698,8,508,8, 
DATA hinter dem Geb{ude ,8,59,28,80,2, 


einem Fl 
einem 
einem 
einem B}ro,„52,8,8, 
einem B}ro,56,20,32 
Chefb}ro,8,55,8,8, 
einem 
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[BESCI 
CF&A2] 
CE43E] 
[3674] 
[2686] 
[D@FCI 
[L15E®8] 
[CB97CI 
CE788] 
CDE92] 
CABC6]I 
[CBAB] 
LEFA4] 
CD@D4] 
[L29ACI 
C6CB@] 
[BCE®B] 
CA9BAI 
[B426] 
[C872] 
LO9A4] 
C71D2] 
C&ö19A] 
[3076] 
CFB88] 
[FBD®]J 
[B488] 


L859C) 
L1C66] 
[541E] 
C1F32] 
[4B2E] 
[7230] 
LESACI 
[8938] 
[793A] 
LF7ZEE] 
[BO4E8] 
[6746] 
CAGECI 
[C43E8] 
[4860] 
[8094] 


[8A265] 
[4462] 
[BE&SA] 
[49EC] 
L1EAA]I 


[7S5B8] 
[S1AE]I 
[C5B2] 
[3ECB] 


L2FCB] 
E28DA] 


[589A] 
[7748] 


[78A4] 
[8BD2] 
[i11AC] 


CDSDC] 
E6ED&] 
[758C] 


[C4EC2] 


[S6EA] 
EFDE2)] 
[54C8] 


L7C28] 


[CAB4] 
[81BC] 
[A4D4] 
[8DDA] 


[2518] 
[42CA] 
C4D38] 
[28C2] 
L23AB] 
[8F2C) 
[CF1EB] 
[AIE4] 
[2F98] 
[7&9A] 
cC4F12] 
CF&72] 


EL1AS5B] 
LEE?C] 
L4A9C]I 
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5178 
s188 
5178 
s208 
521B 
5228 
5230 
3248 
3250 


3268 
3278 


5280 


3278 


53308 


3518 


Listing. Der Fall »Famit AG« (Schluß) 


urn ® 


Wohnzimmer „B,B,36,64,8,8 
Schlafzimmer „B,54,8,553,8,8 
Bad,B,8,62,0,80,8 

einem Flur „62,65,61,656,8,8 
einem Flur ,„64,08,0,67,0,8 
der K}che,B,67.,64,8,08,8 
E*zimmer „654,8B,655,8,8,8 

der Rampe, 78,697,71,45,8,8 
einer Lagerhalle,58,8,8,8,8 


einer Lagerhalle,B,58,8,8,8 


einer Lagerhalle, 73,72,8,68B 
einer Lagerhalle, 71,8,8,8,8 
einem B}ro,®,71,8,8,8,8 
Ya: 2 Be 
einem Flur „79,74, 75,80,0,8 
einem Flur „B,77,8,75,8,8 
einem Waschr aum, 75,8,8,8,8, 
einer K}che,8,28,8,77,8,8 
der Kantine,QA,75,78,8,8,8 
einem B}ro,82,0,75,2,8,8 
einem B}ro,2,8,74,80,0, 
einem B}ro,98,88,08,0,0,2 
einer Fabrikhalle,84,42,8,8 
einer Fabrikhalle,84,85,8,8 
Schaltraum,B,8,85,B8,8 
Fabrikhalle,87,37,8,.8 
Fabrikhalle,B7,85,4,8 
Schaltraum,B,8,85,8,8 
auf der Stra”*e,72,78,71,22,2,8 
Stra”e,87,708,780,70,8,8 
Stra”e „1 „si „1 ‚87,0,8 
Stra”e,73,87,92,72,80,8 
Stra”e,73,72,74,753,8,B 


Stra“e,94.94,94,93,80,8 


einem 
einer 
einer 
DATA in einem 
auf der 
auf der 


DATA auf der 
DATA 


DATA 


auf der 


auf der 
DATA vorn,hinten,links,rechts,oben, 
unten 
DATA 83,105,101.,32,.104,77,08, 101,11 
0,32,32,180,181,118,32,77,97,118,11 
0.532,118,181,114,1084.97,1802,116,1B1 
„115,32,44,97,117,115,32,32,108,114 
‚185,118,183,1@1,1198,100,101,109,32 
‚32,86,181,114,180,97,797,104,116,32 
‚ı080,117,114,977 
DATA 104,32,185, 188,188, 1901,103,.77, 
108 
DATA 101,32,71,181,115,99,1084,125,1 
02,1165,181,32,49,48,32,77,105,188,1 
28,185,111,11@8,181,118,32,77,97,114 
„107,32,117,118,114,1081,77,184,.116, 
189,123,125,185,183,32,.121,114,119, 
111,114,798,1901,110,32,122,117,32,18 
4,97,798,181,118,454,32,68,1901,114,32 
7 


7 | 
DATA 97,110,110,32,98,101,103,1@5,1 
1@,110,116,32,122,117,32,115,112,11 
4,101,99,184,101,110,32,58,32,34,73 
.99,184,32,103,1801,115,116,1@1,184, 
i@01.46,32,65,118,183,101,1@2,97,11@ 
‚103,101,110.32,184,97,116,32,97,10 
8.108,101,115,32,109,185.116,32,83, 
116 


DATA 101,117,1@01,114,1@4,105,11@,11 
6,101,114,122.105,.101,104,117,110,1 
03,.44.32,115,112,123,116,1@1,114.32 
.107,97,109,101,110,32.100,97,11@,1 
18.32, 105.108,108,101,1@3,97,188,10 
1.32,71,101,115,99,184,123,1@2,116, 
181,32,104,105,1180,122,117,46 

DATA 123,102,116,101,32,104,105,.11@ 
„122,117.46.32,68,101.114,32,71,101 
'115,99,104,12%.1@2,116,115,1802,125 
’184.114,121,114,32,189,181,114,107 
'116.1@1,32,101,116,119,97,115,44,3 
3,195,99.104,32,119,111,1@08,1988,116 
.181,32,109,105,99,104,32,97,98,115 

181 

DATA 116,122,101,110,44,32,97,98.18 
1,114,32.1@81,115,.32,119,97,114,32,1 
22,117,32,115,112,123,116,46,32,73, 
99.104.32.189,117,126,116,1@1,32,1@ 
5,104,110,32,116,96,116,101,118,46, 
34 


(S5B8] 


CF1D®] 
C3F3C) 
[SBOCI 
[42EC] 
[78101 
CAB2A]J 
[9532] 
[37F8] 
C1F6@] 
[786212 
CAB26] 
[7436] 
CDABCI 
C4D44A] 
LAAF2 
[4D98] 
[SEB4] 
[C968] 
[67CC 
[C716] 
CDC9BI 
[C88C9 
[25F®] 
CDF82 
[4788] 
CADQEI 
[1394] 
[62803 
LZACCI 
[24E2] 
CB3DB1 
LFFE2] 
LF3DE]I 
LESE] 


[D188] 


[5682] 
[FBFB] 


[75BA] 


[F2C2] 


[8004] 


ECB4E] 


CE7F2] 
























Autofahren 
ohne 
Tempo-Limit 


Auf Ihrem Computer können 
Sie sich die Wünsche noch 
erfüllen, die im wirklichen 
Leben nicht mehr realisier- 
bar sind: Fahren ohne Tempo-Limit mit 
dem heißen Flitzer in »Mini-Racer«. 





»Mini-Racer« ist ein kleines Autorennspiel, das mit wenig 
Programmieraufwand eine Menge Spaß bietet. Interessant ist 
dieses Programm wohl deshalb, weil es nicht sehr lang — und 
deshalb leicht überschaubar — ist. 

Sie sind der Fahrer eines hochgezüchteten Formel-1-Renn- 
wagens und müssen einen langen gefährlichen Parcours mög- 
lichst heil überstehen. Leicht wird Ihnen die Aufgabe nicht ge- 
macht, denn immer wieder liegen Hindernisse auf der Straße. 
Oder gefährliche Ölspuren und scharfe Kurven machen Ihnen 
das Leben schwer. 

Steuern können Sie Ihren heißen Flitzer mit den beiden Cur- 
sortasten »rechts« und »links«. 


PERERESTERERERER TER TER TER EEE: [B2E2] 
[?74B4] 
[ABC4] 


[&8B8] 


MINI-RACER 





MICHAEL BAUER 

SCHWANTHALERSTR. 180 

8 MUENCHEN 2 

TEL. 289/50226442 

INK 1,1@:CLS:BORDER Q: INK 8,@: INK 2, 

24: INK 3,26: INK 4,21:PRINT CHR$(23)" 
1":DEFINT a-z:DEFREAL t:we=128 
ENV 1,15,-1,2B:ENV 2,15, 1,20: ENT 1, 
28,-2,1,1,38,1,20,-2,1,50,1,1:ENT 2, 
25)4,1,200,- 
SYMBOL 240,899 „AFF „%99 „30,24 ,LA5,% 
E7,%99:SYMBOL 241,8,%10,%2A,%4D,&55, 
&A2,&91,8:SYMBOL 242,0,&7F,&41,&41,% 
7F,8,8,8:5YMBOL 243,%38,%20,85A,&AA, 
&6C,%10,&10,%10:SYMBOL 244,8,2,&1D,% 
FB,&3E, IC 
MODE GB: ver=-150:x-3B8B: x 1=x:xpl=258: xp 
r=350:PLOT xp1,8,1:DRAWR 8,399: PLOT 
xpr ‚Ö:DRAWR 0,399: FOR y=® TO 368 STE 
P 2&:PLOT 308,y,3:DRAWR @,14:NEXT:PL 
OT 250,204,2:DRAWR 96,0:MOVE x,200: T 
AG:PRINT CHR$ (2408) ;:MOVE 358,208: PRI 
NT CHR$(242); 
FOR v=0 TO 2002: NEXT:SOUND 1,60,10,1 
S:MOVE x,200:PRINT CHR$(24@);:t1=TIM 
E+98008 


ı PLOT 0,408,2:MOVE x „208: TAG: PRINT CH 
R# (240); 

IF (INKEY(1)=B AND x1<687) THEN xi=x 
1+4 

5 (INKEY(B)=B AND x1>1) THEN x1=x1- 


FÜR v=8 TO ver:NEXT 

SOUND 129, 380+ver*5,28,13:SDUND 138, 
3>40+ver*5,20,13 

TAG: MOVE x „208: PRINT CHR#(248); 
TAGOFF:LOCATE 1,1:PRINT CHR$ (11): TAG 


[DE7E] 
[B484] 
[77B8] 
[24980] 
Li2F2] 


[F7BFA] 


[SF1E] 


[2205] 


[DB7E] 


[C584] 
LE1BA] 
EB4BC] 
[BSBE] 


ECB9A] 
L7C36] 


[8754] 
EBSBC) 


[&ABB]I 
[2BC4] 


[487C] 





Das ganze Spiel geht auf Zeit. Das heißt, Sie durchfahren die 
Rennstrecke. Danach wird die Zeit gestoppt, unabhängig da- 
von wieviele Crashs Sie bauen. Nach einem Zusammenstoß je- 
doch verlangsamt sich Ihr Renner und erreicht erst nach eini- 
gen Sekunden wieder die Höchstgeschwindigkeit. Am Schluß 
des ganzen Spektakels werden Ihnen die Punkte sowie die An- 
zahl der »Unfälle« angezeigt. 

Zum Programm selber: In den Zeilen 100 bis 140 werden die 
Hüllkurven, Zeichen, Farben sowie das Grundbild definiert. 
Von 180 bis 300 finden Sie die Hauptroutine zum Erzeugen 
des Parcours und der Hindernisse, sowie die zum Steuern des 
Wagens. Die Zeilen 340 bis 370 beenden das Programm mit 
einer Schlußmelodie, der Punktebewertung und der Rückkehr 
zum Menü. 

Viel Spaß und Hot Wheels! 


(Michael Bauer) 





s=INT(RND*+15) :IF INT(RND*2)=1 THEN P 
LOT xp1,383,1:IF xp1>9& THEN »pl=xpl 
-5 ELSE xpl=xpl :ELSE PLOT »p1,383,1 
:IF »pl<458 THEN »pl=»pl+s 
DRAW xpl1 ,399: PLOT “pr „383: xpr=xpl+we 
:DRAW «pr „3979: IF xpr<i5B88 AND »p1>58 
THEN IF INT(RND*3@)=1 THEN PLOT 2,48 
B,RND*2+2: MOVE xpl-23@+ (INT ( (RND*2) + 
1)*186) „397: : PRINT CHR#$ (2Z41+RND#2); 
IF INT (RND+38) =2 THEN FLOT 8,498,1:M 
OVE »pl+1&4*INT (RND+4) „399: PRINT CHR$ 
(244); 
x=x1l:p=p+ti:ver=ver-2Z: IF ver<i1 THEN v 
er=1 
IF (TEST(x,282)0R TEST (»+164,202) OR 
TEST(x+28,282))=1 THEN SOUND 132,508 
8,228,15,1,,31:BORDER 24: INK 9,26:CA 
LL &BD19F: INK B8,8:BORDER B:ver=-1508:x1 
=xpl+48:x=x1l:ecr=cr+#i 
IF TIME{t1 THEN 188 


[5485] 


[EDSA]I 
[1718] 


IF p>hp THEN hp=p:SOUND 1,78,70,15,2 
‚1:50UND 2,72,78,15,2,1 ELSE SOUND" 1 
‚2z08,225,15, „2: SOUND 2,282 ,225, 15, .2 
[3812] 
MODE 1:FEN 3:LOCATE 5,18:PRINT"SCORE 
="sp;"i3 SPACE}HIGH SCORE =";hp:LOCc 
ATE 5,12: PRINT"CRASH'’S =";cr:LOCATE 
15,17:PRINT"nochmal j/n" [CF1CA]I 
i$s=INKEY#: IF i#="j"THEN p=B:cr=B: 60T 
0 1538 [i4AE]I 
IF i$<>"n" THEN 358 [8r54] 


Listing. Schaffen Sie es, ohne Unfall 
ins Ziel zu kommen? 



















Dr. Logo — mehr als nur 
eine Schildkröte 





WennBasic der Golfunter den 
W Programmiersprachen ist — 
weitverbreitet, handlich, ein- 

fach zu bedienen —, so ist Logo eher 
mit einem Exoten zu vergleichen: 
Anspruchsvoll in der Bedienung, 
aber komfortabel und sehr lei- 
stungsstark. Also lieber Logo als Ba- 
sic? Die Antwort auf diese Frage 
hängt von der gewünschten Anwen- 
dung ab. Was nützt schließlich ein 
Sportwagen, wenn man Möbel trans- 
portieren will? Schauen wir uns zu- 
nächst einmal Logo etwas näher an. 








Logo — was ist das? 





Logo ist wie Basic, eine problem- 
orientierte Sprache, das heißt die 
Struktur ist an der Aufgabenstellung 
orientiert und nicht am Computer 
(Gegensatz; maschinenorientierte 
Sprache, zum Beispiel Assembler). 

Logo wurde 1967 am Massachu- 
setts Institute für Technology (MIT) 
entwickelt. Wie Basic ist auch Logo 
eine Dialogsprache. Die einzelnen 
Programmteile, die in Logo Proze- 
duren heißen, werden am Bild- 
schirm entwickelt und können unab- 
hängig vom übrigen Programm be- 
arbeitet und getestet werden. Eine 
jedesmal neue Gesamtüberset- 
zung, wie zum Beispiel in Pascal, ent- 
fällt. Es ist daher sogar möglich, Lo- 
go-Prozeduren während des Pro- 
grammablaufs zu ändern, ohne grö- 
ßRere Wartezeiten zu verursachen. 

Logo ist grafikfähig. Es besitzt die 
sogenannte Turtle-Grafik (ist aber 
nicht etwa mit ihr identisch), eine mit 
Kommandos steuerbare Schildkrö- 
te, die Linien ziehen, Schleifen ma- 
len und Kästchen zeichnen kann. 
Dieses »Tier«, das bei der Logo-Ver- 
sion des CPC zu einem einfachen 
Dreieck degeneriert ist, hat sich lei- 
der zum Symbol der ganzen Spra- 
che aufgeschwungen und so dazu 
geführt, daß Logo zu einer Art »Ba- 
by«-Sprache abaualifiziert wurde. So 
verwendet man die Vorteile von Lo- 
go meist nur bei der Anwendung im 


Für viele Hobby-Programmiierer ist 
Logo, speziell das Dr. Logo des 
Schneider, Neuland. Was kann 
diese Sprache? 


Schulunterricht, um kleinere Kinder 
mit der neuen Technik vertraut zu 
machen. Aber Logo kann viel mehr. 

Mit Pascal hat Logo das modulare 
Prinzip gemeinsam. Jedes Pro- 
gramm besteht aus einer Summe 
von Prozeduren (Unterprogram- 
men), die sich untereinander aufru- 
fen. Jede Prozedur ist ein unabhän- 
giges Modul, das von außen mit Da- 
ten versorgt wird. Durch sogenann- 
te lokale Variable (sind nur in einer 
Prozedur gültig) ist es möglich, Va- 
riablen gleichen Namens in mehre- 
ren Modulen unterschiedlich zu ver- 
wenden, ohne daß die Inhalte über- 
schrieben werden. Durch dieses 
Baukastenprinzip kann man eine in- 
tensive Verflechtung von verschie- 
denen Programmteilen erreichen 
und somit eine starke Strukturierung 
erzwingen. Dies hat mehrere Vortei- 
le; Zum einen kann Logo auf eine 
sich ständig vergrößernde Zahl von 
Prozeduren (fast jede Programmie- 
rung schafft janeue Prozeduren) zu- 
rückgreifen, die dann sofort auch 
für andere Programme zur Verfü- 
gung stehen. Daneben braucht man 
sich nicht mit den Namen der Varla- 
blen, wie bei Basic, herumzuschla- 
gen. Beikomplexen Programmen ist 
Basic hiermit klar im Nachteil: Alle 
Variablen-Namen müssen vorher 
bekannt sein, sonst gibt es schnell 
ein großes Durcheinander. 

Logo ist eine lernende Sprache. 
Es gibt eine bestimmte Anzahl von 
vordefinierten Befehlen, den soge- 
nannten Primitives, aus denen man 
seine (ersten) Prozeduren zusam- 
mensetzt. Istaber eine Prozedur erst 
einmal definiert, kann sie einfach 
durch Nennung ihres Namens wie 
ein Logo-Befehl benutzt werden. 
Durch die Definition ist die Prozedur 
zu einem Bestandteil des Befehlssat- 
zes geworden, der sich so beliebig 
erweitern läßt. 

Doch das ist noch nicht alles. Die 
eigentliche Stärke von Logo beruht, 
wenn man einmal vom Prozedurkon- 
zept (Baukastenprinzip) absieht, auf 
zwei Hauptpfeilern: der listenorien- 

















tierten Datenstruktur und der Re- 
kursion. Das sind zwei Eigenschaf- 
ten, die Logo als ernsthafte Pro- 
grammiersprache höchst interes- 
sant machen. Wir wollen an dieser 
Stelle zunächst die theoretischen 
Betrachtungen unterbrechen und 
anschauen, wie ein einfaches Bei- 
spiel in Logo aussieht. 

Jedes Logo-Programm wird als 
Prozedur formuliert. Jeder Prozedur 
muß man einen Namen geben, un- 
ter dem diese dem Interpreter be- 
kannt gemacht wird. Der Name darf 
kein Primitiv sein, keine Leerstelle 
und auch keine Rechenzeichen ent- 
halten. Er darf aber mit einer Ziffer 
beginnen. Die Definition einer Pro- 
zedur wird immer mit dem Komman- 
do »to name (eventuell mit Varia- 
blen)« eröffnet. Hinter dem Namen 
der Prozedur können eine oder 
mehrere Variablen angegeben wer- 
den. Werden Variablen mit überge- 
ben, so ist die Prozedur eine Funk 
tion der angegebenen Variable n. 
Die Definition jeder Prozedur wird 
mit »END« beendet. 

Ein Beispiel: Wir schreiben eine 
einfache Prozedur, die ein Quadrat 
mit der vorgegebenen Kantenlänge 
k zeichnet. Sie müssen als erstes Lo- 
go vonder Systemdiskette laden. So- 
bald das Fragezeichen erscheint, ist 
Logo eingearbeitet und wartet auf 
Ihre Befehle Nun geben Sie die 
nachfolgenden Zeilen, jeweils mit 
ENTER, beziehungsweise beim 
CPC 6128 RETURN, abgeschlossen 
ein. Dabei müssen Sie unbedingt 
darauf achten, daß die Leerstellen 
genauso auf dem Schirm erschei- 
nen, wie auch in dem Listing 1. 

Das Schlüsselwort: »to« zeigt an, 
daß nun eine Prozedur definiert 
wird. Es folgt deren Name und eine 
Variable (:k). 





Logo-Programme | 
sind einfach 





Bis hierhin sind nun auch schon ei- 
ne Reihe von Punkten zu beachten. 
Der Doppelpunkt wird bei Logo als 
Kennzeichen für eine Variable, ganz 
gleich ob »Zahl«, »Wort«, »Satz« oder 
»Liste« verwandt. Er dient als Unter- 
scheidungsmerkmal zwischen Va- 
riablen und Prozeduren, bezie- 
hungsweise einfachen Befehlen 
(Primitives). Dabei ist ein »Wort« eine 
Aneinanderreihung von ASCII-Zei- 
chen. »Satz« steht in Logo für eine 
Reihe von Worten. Eine »Liste« bein- 
haltet eine Reihe von »Worten« oder 
»Zahlen«, kann also sowohl Zahlen 
wie Zeichen beinhalten. Ihre Aufga- 
be ist zunächst einmal die Daten- 
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a zu 


speicherung, einem Array oder ei- 
nem Data-Feld in Basıc vergleich- 
bar. Ihre Anwendung reicht jedoch 
weit über diese einfachen Basıc- 
Strukturen hinaus. Es ist möglich, Li- 
sten im Prinzip wie Strings in Basic zu 
behandeln, allerdings mit dem Un- 
terschied, daß eine Logo-Liste eine 
Aneinanderreihung selbständiger 
Elemente darstellt. Wir kommen auf 
diese Fähigkeiten später noch ein- 
mal zurück. Es existiert in Logo übri- 
gens keine Unterscheidung zwi- 
schen den Variablenarten, die sich 
anhand eines Kürzels schon im Na- 
men ablesen ließe (wie beispiels- 
weise %,$ und so weiter in Basic). :t 
kann also sowohl eine Liste wie auch 
eine Zahl repräsentieren. 


Delimiter: 
Was ist das? 


Als zweiten Punkt wollen wir et- 
was zu den Trennmarkierungen, 
den sogenannten Delimitern, sagen. 
Vom Schneider-Computer ist man ja 
bereits an Klarheit und Vorsicht bei 
der Verwendung von Leerzeichen 
gewöhnt. Noch stärkere Bedeutung 
erhalten Leerstellen allerdings in 
Logo. Sie fungieren hier nämlich als 
Trennzeichen (etwa so wie ın Basic 
der Doppelpunkt), grenzen also Be- 
fehle beziehungsweise Prozeduren 
voneinander und von Variablen ab. 
Da es keine Unterteilung eines Lo- 
go-Programms durch Zeilennum- 
mern gibt, stellen die Leerzeichen 
die einzigen Mittel dar, ein Pro- 
gramm zu unterteilen. Sie müssen al- 
so immer exakt so eingegeben wer- 
den, wie in den einzelnen Program- 
men beschrieben. 90 Prozent aller 
Fehler bei der Eingabe sind auf fal- 
sche Leerzeichen zurückzuführen. 

Äls ersten Befehl in der zweiten 
Reihe finden Sie das Wort »Repeat«. 
Es gehört zu den Primitives, also zum 
Grundbefehlssatz des Dr. Logo. Die 
nachstehende Zahl gibt an, wie oft 
die folgende Anweisung wiederholt 
werden soll. Was soll nun aber ei- 
gentlich getan werden? Die Antwort 
darauf liefert der Ausdruck in der 
eckigen Klammer. Diese Klammern 
spielen ebenfalls eine große Rolle in 
der Logo-Syntax. Sie grenzen den 
Inhalt von Listen ab, | 

Die Umklammerung definiert, 
was zusammengehört. In unserem 
Beispiel sind dies die zwei Befehle 
»fd« und »rt«, jeweils mit zugehöriger 
Parameterangabe. Beide Komman- 
dos sind Primitives und gehören zu 
den Zeichenfunktionen, die die 


Schildkröte bewegen. »fd« weist die- 
se Schildkröte an, vorwärts zu ge- 






hen. Vorwärts, das heißt bei Logo im- 
mer in Richtung der Pfeilspitze. 
Wenn manalsoim Ausgangszustand 
in eine andere Richtung als nach 
oben spazieren will, so muß der 
Turtle erst »der Kopf verdreht wer- 
den«. Dazu gibt es zwei Befehle. »lt« 
dreht die Schildkröte um die ange- 
gebenen Winkelgrade nach links, 
»rt« bewegt sie in der Gegenrich- 
tung. Was passiert nun also? 

Mit »fd« geht die Turtle zunächst 
nach oben und zwar um die in :k ge- 
speicherte Anzahl von Schritten. Es 
gilt dabei derselbe Rahmen we in 
Basic, also 639 Schritte in der Hori- 
zontalen und 399 in der Vertikalen. 
Danach kommt ein »rt 90«. Die Nase 
der Turtle dreht sich um 90 Grad 
nach rechts. Normalerweise würde 
nun zur nächsten Anweisung weiter- 
gegangen. Durch die Umklamme- 
rung und das Repeat-Kommando 
wiederholt sich dieser Vorgang 
aber viermal. Die Schildkröte geht 
also wieder :k-Schritte vorwärts. Da 
die Spitze nun aber nach rechts 
weist, wird der Strich nach rechts 
gezogen. Noch ein Dreh und ein 
gleichlanger Strich nach unten folgt. 
Nach dem letzten »rt« und :k-Schrit- 
ten ist die Schildkröte wieder am 
Ausgangspunkt angelangt. 

»End« beschließt die Definition 
der Prozedur. Dieses Schlüsselwort 
muß immer gebraucht werden, um 
dem Interpreter das Ende der Pro- 
zedur mitzuteilen. Damit istder neue 
Befehl definiert. Für Logo gibt es 
keinen wesentlichen Unterschied 
mehr zwischen unserem Befehl 
»Quadrat« und einem seiner Primiti- 
ves. Der Befehl »Quadrat« kann jetzt 
ohne Schwierigkeiten in anderen 
Prozeduren aufgerufen werden. Da- 
zu geben Sie einfach das Befehls- 
wort »quadrat 60« ein, und ein Qua- 
drat mit der Kantenlänge 60 wird auf 
den Schirm gezeichnet. Bevor Sie 
weiterlesen, sollten Sie unbedingt 
diese erste Prozedur ausprobieren, 
um sich mit Logo vertraut zu ma- 
chen. Dazu können Sie ruhig auch 
einmal im Programmtext editieren. 
Versuchen Sie beispielsweise ein- 
mal, ein gleichseitiges Dreieck zu 
erhalten. Dazu muß die Zahl nach 
dem »repeat« auf3herabgesetzt und 
die Spitze der Turtle jedesmal um 12 
(statt 90) Grad gedreht werden. Wie 
dabei editiert wird, gibt Ihnen Ta- 
belle 1 wieder, 

Wie Sie sehen, ist es wirklich sehr 
einfach mit Logo schnell brauchba- 
re Grafiken auf den Bildschirm zu 
zaubern. Allerdings bleibt zusagen, 
daß das Schneider-Logo relatıv 
langsam im Vergleich mit anderen 
Versionen ist. Auch wenn man die 

















Turtle abschaltet, ist Dr. Logo noch 
langsamer als Basic. Dennoch eig- 
net-sich die Sprache recht gut dazu, 
schnell und nachvollziehbar einfa- 
che Grafiken zu erstellen. Unter die- 
sem Gesichtspunkt ist Logo den ent- 
sprechenden Basic-Befehlen deut- 
lich überlegen. Zum einen sind die 
Definitionen kürzer und ohne viel 
Rechnen zu programmieren. Zum 
anderen wurden einige »Macken« 
der Schneider-Befehle verbessert. 
so gibt es bei Logo verschiedene 
Bildschirmmodi (insgesamt 3), die 
festlegen, was passiert, wenn die 
Turtle den Bildschirm verlassen 
würde. Bei »Window« reagiert sie 
wie gewohnt. Was außerhalb des 
Bildschirms legt, wird nicht ge- 
zeichnet. Bei»Fence« gibt esın solch 
einem Fall eine Fehlermeldung. 
Zeichnet die Schildkröte im »Wrap«- 
Modus, so wird der Bildschirm zu ei- 
nem Kugelschirm. Läuft die Turtle 
an einer Seite aus dem Bild, so 
taucht sie gleichzeitig auf der ande- 
ren Seite wieder auf. 

Diese schönen Eigenschaften bei 
der Grafikprogrammierung sind je- 
doch alleine kein Grund, auf Logo 
umzusteigen. Interessanter wird es 
aber, wenn wir die Grafik ganz aus 
dem Spiel lassen und Logo als ernst- 
hafte Programmiıersprache untersu- 
chen. Und hier lohnt es sich aufzu- 
horchen. Logo arbeitet mit Zahlen 
bis 14 Stellen Genauigkeit. Dabei 
sind dreistellige Exponenten er- 
laubt. Während selbst gute Ta- 
schenrechner bei der Fakultätsbe- 
rechnung von Zahlen über 69 meist 
einen Fehler melden, wird von Dr. 
Logo auch die Fakultät von 100 noch 
korrekt berechnet. 


Prozeduren rufen 
sich selbst auf 


Und damit kommen wır zu einer 
weiteren Eigenheit von Logo — der 
rekursiven Programmierung. Wor- 
um, handelt es sich dabei? Eine re- 
kursive Prozedur benötigt zu ihrer 
Definition sich selbst, gibt Daten an 
sich selbst weiter und erhält diese 
wieder von sich selbst zurück, Dies 
klingt auf den ersten Blick etwas 
kompliziert und vielleicht fragen Sie 
sich jetzt, wofür das eigentlich qut 
ist. Nun, zum Beispiel um den Effek- 
tivzins eines Ratenkredites zu be- 
rechnen und festzustellen, wieviel 
man denn noch wirklich dafür be- 
zahlt. Der Zusammenhang ist hier- 
bei wie folat: Bei einem Ratenkredit 
zahlt man eine gleichbleibende mo- 
natliche Rate. Diese setzt sich aus ei- 
ner gleichbleibenden Tilgung und 
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einem gleichbleibenden Zinsanteil 
zusammen, wobei die Zinsen, und 
dies ist das Schwierige, zu dem an- 
fänglichen Auszahlungsbetrag hin- 
zugezählt werden. Will man nun 
exakt berechnen, was der Kredit ge- 
nau kostet, so kommt man nur durch 
Probieren zu einem Ergebnis (so 
geht es in Basic). Weitere Wege füh- 
ren über eine Näherungsformel (so 
machen es teilweise die Banken) 
oder man verwendet Logo und pro- 
grammiert das Ganze rekursiv. 

Neben mathematischen Formeln, 
die zu ihrer Lösung rekursives Pro- 
grammieren benötigen, gibt es je- 
doch auch noch eine ganze Reihe 
anderer Änwendungen, wo die Re- 
kursion buchstäblich Berge ver- 
setzt. In unserem nun folgenden 
zweiten Beispiel werden zwar nur 
Befehlsberge versetzt, aber Logo 
wird durchschaubar. 

Sie kennen sicher das Spiel »Tür- 
me von Hanoi«, Wenn nicht, hiereine 
kurze Einführung: Bei den Türmen 
von Hanoi handelt es sich um ein 
Strategiespiel. Vorgegeben sind 
drei Plätze. Auf einem Platz ist dabei 
ein Turm aus Scheiben aufgebaut, 
wobei die größten Scheiben zuun- 
terst liegen. Die Spiel-Aufgabe be- 
steht nun darin, den gesamten Turm 
auf einen der beiden anderen Plät- 
ze zu verlagern. Es sind allerdings 
zwei Nebenbedingungen zu beach- 
ten: 

— Es darf immer nur eine Scheibe 
bewegt werden (dies entspricht ei- 
nem Zug). 

— Es darfnureine kleinere aufeiner 
arößeren Scheibe liegen, nie umge- 
kehrt. 

Dieses Spiel ist im Listing 2 als 
Logo-Simulation ausgeführt. Das ei- 
gentliche Programm besteht aus eı- 
ner Anzahl selbständiger Prozedu- 
ren, die durch eine Oberprozedur 
zusammengebaut werden. Sie müs- 
sen also zuerst alle Prozeduren ein- 
zeln eingeben. Das Programm wird 
dann durch die »Main«-Prozedur 
»TvH« aufgerufen. Es besteht inklusi- 
ve dieser aus 13 Prozeduren. Diese 
müssen dabei wie im Listing 2 ein- 
gegeben werden. Besonders auf 
die Leerzeichen ist zu achten. Wie 
die Prozeduren zusammenhängen, 
zeigt Tabelle 3. Nun zunächst ein 
paar Informationen zu den einzel- 
nen Prozeduren; 

Die Hauptprozedur ist TVH. Sie er- 
laubt in einem Menü die Auswahl 
zwischen zweiSpielalternativen: Un- 
ter Punkt 1 simuliert der Computer 
die optimale Lösung (bei x Steinen 
braucht man mindestens 2*-] Züge). 
Bei Auswahl von Punkt 2 kann sich 
der Spieler selbst versuchen. 








Interessant ist das Starten der Si- 
mulation. Hier wird eine weitere Be- 
sonderheit des Dr. Logo benutzt, die 
Listenverarbeitung. Wie die Pro- 
grammiersprache Lisp ist Logo eine 
listenorientierte Sprache Logo 
macht damit keinen Unterschied 
zwischen »Zahl« oder »Zeichen« als 
Inhalt einer Variablen — ganz im Ge- 
gensatz zu Basic. Entsprechend un- 
terscheidet es nicht zwischen 
Strings, Real- und Integervariablen. 
Eine Variable in Logo kann alles 
sein. Ungewohnt ist das Fehlen von 
indizierten Variablen (= Feldern). 
Daten-Felder werden statt dessen in 
Listen gespeichert. Dieses Konzept 
löst sich von der Speicherplatz- 
orientierten Ablage von Daten und 
vermeidet überdies lästige Dimen- 
sionsanweisungen. Eine Liste ist ei- 
ne Ansammlung von Daten (Zahlen, 
Worte, Sätze oder Listen), deren An- 
ordnung einzig durch die Reihenfol- 
ge vorgegeben ist. Wie bei der 
Stringverarbeitung in Basic ist es 
nun möglich, zu solch einer Liste 
Glieder vorne oder hinten zu addie- 
ren, Listen in Teil-Listen zu zerlegen 
und sie sogar als Programm zu inter- 
pretieren. Das Dr. Logo bietet dazu 
eine Vielzahl von Befehlen. 


Programme ändern 
sich selbst 


Mit RUN wird beispielsweise der 
Inhalt einer Liste als Befehlsliste in- 
terpretiertt und ausgeführt. Mit 
ITEM wird die gewünschte Liste 
ausgewählt. Logo ist also ın der La- 
ge, ohne komplizierte Maschinen- 
POKEs und ähnliche Tricks, höchst 
komfortabel Programme selbst um- 
zubauen. Die Prozedur, bei der zwi- 
schen verschiedenen Programmva- 
rianten zu unterscheiden ist, führt ei- 
ne Liste aus, die dann jeweils ent- 
sprechend den aktuellen Bedürfnis- 
sen des Benutzers geändert werden 
kann. Schauen wir unsnun die ande- 
ren Prozeduren an. 

simul — präsentiert die Eingabe- 
maske für die Computer-Simulation 

turm — diese Zeilen enthalten die 
ganze Logik des Spiels. Ein entspre- 
chendes Basic-Programm würde 
zwischen 20 und 30 Zeilen umfassen. 
Hier spielt Logo seine ganze Stärke 
aus: die Rekursion, Wenn die Varia- 
ble :m größer als | ist, soruft die Pro- 
zedur sich selbst, allerdings mit ver- 
mindertem :m auf. 

ausgabe — Ausgabe-Maske der Si- 
rnulation. Hier gibt Logo das Ergeb- 
nis seiner Berechnungen aus. 

selbst — Eingabe-Maske für den 


Selbstversuch. 





turmliste — Um diese Prozedur zu 
verstehen, muß etwas zum grund- 
sätzlichen Ablauf des Programms 
gesagt werden. Beim Selbstversuch 
werden drei Listen angelegt; eine 
enthält am Anfang alle Elemente, 
die beiden anderen sind vorerst 
leer. Mit Hilfe von »turmliste« wer- 


den nun in die erste Liste die Ele- 


mente durch die Rekursion hinter- 
einander eingeschrieben. In 
»selbst« wird dann diese Liste mit 
zwei»Leer-Listen«zu einer Gesamtli- 
ste zusammengebaut, die dann die 
Elemente aller drei Plätze enthält, 
Jede Scheibe ist dabei durch eine 
Zahl repräsentiert, wobei kleinere 
Zahlen auch kleinere Scheiben be- 
deuten. Das Programm arbeitet ma- 
ximal mit einem Stapel von neun 
Scheiben. »turmliste« stellt ein atypi- 
sches Beispiel für die rekursive Pro- 
grammierung dar, ist aber auch re- 
lativ einfach zu erklären, Beim Auf- 
ruf der Prozedur muß eine Variable 
übergeben werden. Diese wird ın it 
eingelesen. Wenn :t Null ist erfolgt 
der Rücksprung, ansonsten wird die 
Liste tl um das Element !t erweitert. 
t wird dabei an die erste Stelle der 
Liste gesetzt. 

Alle anderen Elemente der Liste 
werden weiter nach hinten gescho- 
ben. Als nächstes — und dies istnun 
die eigentliche Rekursion — wird 
»turmliste« mit dem um | verminder- 
ten :t wieder aufgerufen. Wir erhal- 
ten eine Liste, die nacheinander die 
Zahlen von 1 bis :t enthält, wobei die 
l an erster Stelle steht, da jedes 
neue Element vorn angefügt wird. 

ziehen — Eingabemaske der Züge 

zugtest — Hier wird der Zug auf 
seine Durchführbarkeit getestet: 
1. Ist die Zugliste leer? 
2. Ist der oberste Stein identisch mit 
dem, der gezogen werden soll? 
3. Ist der gezogene Stein auch klei- 
ner als der oberste auf dem Zielsta- 
pel? Wenn diese Bedingungen nicht 
erfüllt sind, wird »err« aufgerufen. 
err — stellt eine fehlerhafte Einga- 


be fest und gibt wieder an »ziehen« 


ab. 

listzug und cut — Hier wird der 
Zug ausgeführt. Das erste Element 
der Ausgangsliste wird vor daserste 
Element der Zielliste gesetzt. 

ende — Test, ob zwei oder drei Un- 
terlisten leer sind. Wenn ja, ist das 
Spiel zu Ende. 

fertig — bringt den Siegertext. 

space — Da in Logo das Leerzei- 
chen als Befehlsdelimiter dient, 
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kann es nicht einfach ausgedruckt 


werden. Eine Liste etwa [ ], die ein 
Leerzeichen und sonst nichts ent- 


hält, gilt als leer. Deshalb muß der 
Umweg über den ASCII-Code des 
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Leerzeichens (32) gemacht werden. 

Noch ein paar Bemerkungen zur 
Variablendefinition. Inden Prozedu- 
ren »zugtest« und »listzug« werden 
teilweise dieselben Variablenna- 
men benutzt. Hier kann man gut se- 
hen, wie einfach die Variablenbe- 
nutzung unter Logo ist. Es handelt 
sich nämlich bei beiden trotz gleı- 


chen Namens um unterschiedliche 


Werte Die doppelten Variablen 
sind als »local« definiert. Sie gelten 
also nur innerhalb derselben Proze- 
dur. Namenskollisionen sind da- 
- durch ausgeschlossen. 

Aufgerufen wird das Spiel mit 
»IvH«und Enter. Der Rest erfolgt mit 
Benutzerführung. Es wırd die Spiel- 
variante abgefragt und danach die 
gewünschte Anzahl von Steinen. Bei 
der maximalen Zahl- (neun) der 
Scheiben auf dem Stapel sind dabei 
511 Züge nötıg. 

Der Streit um die »richtige« Pro- 
‚grammiersprache ist so alt wie der 
Computer selbst. Eingefleischte Ba- 

 sic-Freaks werden beim Wort Logo 
nur mit den Schultern zucken, As- 
sembler-Helden sowieso nur lä- 
cheln und souverän auf die überle- 
gene Rechengeschwindigkeit hin- 
weisen. Genauso werden überzeug- 
te Logo-Fans bei einem Vergleich 
mit Basic reagieren, sind sie doch 
überzeugt, daß Logo immer das 
bessere und elegantere Konzept 
bieten wird. 

Was läßt sich daraus folgern? Wa- 
- rum sollman Logo überhaupt einset- 
zen? Die Verwendung von Logo ist 
dann gegenüber Basic sinnvoll, 
wenn 
— es sich um Programme handelt, 
die mit Listen arbeiten sollen oder 
eine listenorientierte Verarbeitung 
von Vorteil ist 
— man die Rekursion iin ihrer ganzen 
Mächtigkeit ausschöpfen kann 
— die Prozedurendefinition von Vor- 
teil ist. Das ist dann der Fall, wenn er- 
ne Reihe ähnlicher Probleme die 
Unterprogramme aus einem Pool 
verwenden sollen. Bei vernünftiger 
Programmierung kann man die Pro- 
'zeduren ohne weitere Anpassung 
sofort in neue Programme überneh- 
men. | 

Logo wirft Probleme auf, wenn 
— es sich um zeitaufwendige oder 
— kritische Anwendungen handelt. 
— der vorhandene Speicherplatz für 
eine Rekursion nicht ausreicht. 

Eine einfache Antwort gibt es also 
nicht. Wenn Sie sich aber an das ei- 
ne oder andere Programmierpro- 
blem aus der Vergangenheit erın- 
ner, werden Ihnen sicher einige 
Aufgaben einfallen, die in Logo ein- 
. facher zu lösen gewesen wären. 
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So schreibt und ändert man Logo-Programme 


Neuschreiben: Wenn das Frage- 
zeichen am linken Bildschirm- 
rand steht, dann kann man Befeh- 
le direkt eingeben. Durch »to« 
und den nachgestellten Prozedu- 
rennamen wird die Definition ei- 
ner Prozedur begonnen. 

Ändern: Beim »% wird mit ved 
"Prozedurenname" «eine bereits 
definierte Prozedur zur Ände- 
rung aufgerufen. Da zur Editie- 
rung wenig im Handbuch steht, 
hier die wichtigsten Tasten: 

Mit den Cursortasten kann man 
im Programmtext jede Stelle auf- 
suchen und beliebig ändern. 
Man muß generell eine geänder- 
te Zeile bei Einfügungen neu 
schreiben (Ausnahme siehe En- 
ter). Gelöscht werden kann dage- 
gen ohne Probleme. Reichen die 
einfachen schrittweisen Bewe- 
gungen mit dem Cursor nicht aus, 
so kann man mit gleichzeitigem 
Drücken von Ctrl an den Proze- 
durenanfang, beziehungsweise 
das -ende oder in der aktuellen 


Zeile an Änfang (Otrl+ Clr links) 
oder Ende (Ctrl+Cls rechts) 
springen. 

Clrund Del wirken wie in Basic. 
Mit CtrlIK kann der Rest einer 
Programmzeile (ab dem Cursor 
nach rechts) gelöscht werden. 

Enter teilt eine Zeile auf. Der 
nach dem Cursor stehende Rest 
der Zeile wird in die nächste Zei- 
le übernommen, so daß man 
dann auf dem Rest der aktuellen 
Zeile neue Befehle einfügen 
kann. 

Copy beendet die Editierung 
und gibt die geänderte Prozedur 
an den Interpreter-Speicher wei- 
ter. Hat man größere Änderun- 
gen vorgenommen und stellt vor 
dem Druck auf Copy fest, daß die 
alte Prozedur vielleicht doch die 
bessere war, so kann man mit Esc 
den Edit-Modus ohne Übernah- 
me der geänderten Prozedur 
verlassen. In diesem Fall wird die 
geänderte Version allerdings ge- 
löscht. 


Logo in Stichworten 


Ausgabe- 
möglichkeiten: 


pr = Basic-Befehl PRINT 


type = dasselbe ohne Wagenrücklauf (wie PRINT +";") 


show = Ausdruck 
Eingabe- 
möglichkeiten: 


einer Liste 


rl = Read List, Eingabe von Zahlen und Zeichen 


(ist mit Enter abzuschließen = INPUT in Basic) 
rc = Read Character |, 
Zeichen ohne Enter einlesen £ INKEY in Basic 


mit make " vom Variablennamen ohne Doppelpunkt gefolgt, 
oder bei einem Prozeduraufruf an die nachgestellten Variablen. | 


Im Beispiel »quadrat« wurde so k auf den Eingabewert gesetzt. 


Verzweigungen: 


Format if <Bedingung > [thenTeil in eckigen Klammern] 


[else-Teil in eckigen Klammern] 


Listen- 
verarbeitung: 


Befehle, die Listen unterteilen, Daten in Listen einlesen, 


Elemente aus einer Liste lösen und so weiter. 
Arithmetik: +, -, #* / Dr. Logo kennt weder Wurzel noch Potenzen als 
Primitives. Diese müssen also vom Benutzer bei Bedarf erst 


noch geschrieben 


werden. 


Turtle-Grafik und Sound bieten im Sound- beziehungsweise Grafikbereich dieselben 
Möglichkeiten wie Basic. Daneben existieren noch Kommandos zum Zugriff auf die 
Peripherie und den Speicher (Äquivalente zu PEEK und POKE). 


Schachtelung 





TvH simul turm ausgabe 
selbst turmliste 
ziehen zugtest eır 
listzug cut 
ende fertig 
space | 


So wirken die Programme aufeinander 
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to auadrat :k 
repeat 4 [fd :k rt 78] 
end 


Listing 1. Mit dieser Prozedur malen Sie ein Quadrat 





to TvH 

ts ct space 5 

pr [#** Tuerme von Hanoi ##] 
repesat 4[pr "] 

pr L[Lt1) - Computer-Simulation] 
pr Li2) — Selbstversuch] 

repeat 3[pr "] 

type [Waehlen Sie bitte] space 2 
make "wahl rc if or (rwahl<ö) (zwahl>2) ETvH] 
make "i 0 

run item wahl L[simul] [selbst]] 
end 


to simul 

et 

space 5 pr [## Tuerme von Hanoi ##] 
space 3 pr [#* Computer —- Simulation #*%] 
pr ID pr u 

type [Wieviele Steine? (max. 7] 

space Z make "st first rl pr " 

if :st > 7? [simul] 


turm ıst 123 


pr " pr [Druecken Sie eine Taste.] 
make "st rc TVvH 


end 

to turm sm vi 32 23 

if m > 1 [turm :m - 1 31 235 12] 
ausgabe :m :l :2 

i# m > 1 Tturm ım = 1 ı3 I2 ı1] 


end 


to ausgabe :s ta :b 

make "i si +1 

type [Stein] space I type :s space :2 
type [von Turm] space 1 type :a space 2 
type [nach Turm] space i type :b space 2 
type [(]l type :i pr [2] 

end 


to selbst 

ct 

space 5 pr [** Tuerme von Hanoi ##] 
space 54 pr [** Selbstversuch *#] 
pr vi pr iD 

type [Wieviele Steine 7 {max. M] 
space 2 make "st first rl pr " 

if :st > ? [selbst] 

make: "til [L] 

turmliste :st 

make "t [LICII make "t Fput :ti st 
ziehen :i 

end 


to turmliste :t 

if :t = O0 [stop] 
make "ti fput :t :ti 
turmliste :ıt - 1 

end 


to ziehen :i 

make "i si + 1 

type [Stein] space 1 type L[L?] 
make "st rc type char 8 

type :st space 2 


Listing 2. Die »Türme von Hanoi« bestehen aus 13 Prozeduren 








type [von Turm] space 1 type [L?] 
make "vt re type char 8 

type :vt space 2 

type [nach Turm] space 1 type L”] 
make "nt rc type char B 

type :nt space 2 type "( type :i pr ") 
zugtest :st :vt nt si 

listzug :vt ınt 

ende 

ziehen :i 

end 


to zugtest := :v ın si 
(local "wt "nt "st) 

make "vwt item ıv :t 

make "nt item :n :ıt 

if emptyp :vt [err si] 

make "st first ıvwt 

if not (:ıs = ıst) [Lerr ıi] 
if emptyp :nt [stop] 

if "st > first ınt Lerr- si? 
end 


to err +i 

pr " space 4 pr [#* Fehlerhafte Eingabe! ##) 
pr 117 

ziehen :i - i 

end 


to listzug :vw Fn 
(local "vwt "nt "st) 
make "wt item :ıv ;+t 
make "nt item ın :t 
make "st first :vwt 
make "vt bf :vt 

make "nt put :ıst nt 
cut sy ıvt cut sn ent 


end 
to fertig 
pr [2] pr [I 


pr (Gratuliere!] 

pr [Sie haben es geschafft,.] 

pr " pr [Druecken Sie eine Taste,.] 
make "st rc TvH 


to space :sp 
repeat :sp [type char 32] 
end 


to ende 


if not (item 1 :t = [£L]) [stop] 


if or titem 2 :t = LI) (ITEM 3 :t = [CD [CFertig]]| 


end 


to cut sc ct 

if ıc = 1 Cmake "t put :ct (bf :t) stop] 
if sc = 3 [make "ct bl list :ct []l make "t 
se (bl :t) :ct stop] 

make "ti first :t 

make "t fput :ıct bf bf st 
make "t fput :ti :t 

end 








Nach den etwas ungewohnten Lo- 
‚go-Prozeduren finden Sie nun zum 
- Vergleich einen Vorschlag, der das 
Turmproblem in Basıc löst. Am An- 
fang steht ein kurzer Initialisierungs- 
teil, der drei Windows definiert 
und die Grenzen des Spiels festlegt. 
Der Ausgangsturm kann aus drei bis 
sieben Scheiben bestehen, wobei 
die kleinsten Scheiben zuoberst lie- 
_ gen. Die vom Computer durchge- 
führte Demonstration der optimalen 
Zugfolge kann ohne Verzögerung 
oder in Zeitlupe verfolgt werden. 
Im letzten Fall (z$="2”) schiebt 
der Schneider nach jedem Zug eine 
Zeitschleife (Zeile 470) ein. Nach 
den Anfangsabfragen folgt jedoch 
erst eine Routine, die ÄAnfangsbedin- 
gungen für die Grafik festlegt. Das 
Basic-Programm stellt nach jedem 
Zug den Zustand aller drei Türme 
- mit Hilfe von Scheiben, die aus dem 
Stern (»*«) aufgebaut sind, dar. Der 
Inhalt aller drei Türme ist dabei in 
Form der Sternchenstrings in dem 


Array a$ gespeichert. Den Aufbau 
der Scheiben auf den verschiede- 
nen Ebenen leistet eine einzige Zei- 
le (Zeile 260). Um bei einer Verschie- 
bung Scheiben löschen zu können, 
wird dann noch der String bl$ benö- 
tigt. In Zeile 280 wırd nun das Array, 
genauer der erste Turm, mit den ın 
br$ gespeicherten Zeilenstrings be- 
legt, wonach dıe Türme durch den 
Aufruf der Unterroutine »Türme set- 
zen« ausgegeben werden. Nun be- 
ginnt die eigentliche Simulation. Mit 
Hilfe einer Rekursion, die in Basic 
nur schwierig und aufwendig zu rea- 
lisieren ist, werden die Züge be- 
stimmt. Die eigentliche Zugbestim- 
mung finden Sıe dabei ab Zeile 850. 

Dazu ist gegebenenfalls ein mehr- 
facher Aufruf dieses Programmteils 
durch sich selbst nötig. Dieser Re- 
kursionsaufruf steht in Zeile 900. 
Nachdem der optimale Zug ausge- 
sucht wurde, muß er nun noch aus- 
geführt werden. Dazu dient die Rou- 
tine ab Zeile 520. Hier werden die 


[5788] 


540 NEXT i 


Logo-Grundlagen 


Verschiebungen in a$ gemacht und 
danach das komplette Array durch 
Aufruf von Zeile 340 dargestellt. Die- 
ser Programmablauf wiederholt 
sich so lange, bis der Zielturm fertig 
aufgebaut ist. In diesem Fall muß ın 
der obersten Schicht des Turmes 
wieder die kleinste Scheibe einge- 
tragen sein. Der Test, der das prüft, 
ist in Zeile 730. Falls der Turm kom- 
plett umgesetzt wurde, geht es hier 
in die Endabfrage ab Zeile 1050. 
Als Vergleich zum Logo-Pro- 
gramm sollten Sie einmal die Proze- 
dur Turmliste mit dem Rekursions- 
teil ab Zeile 850 vergleichen. Hier 
zeigen sich die Stärken von Logo als 
Programmiersprache: Eine sehr 
viel kürzere Befehlsfolge und eine 
klare Struktur. Aber auch das restli- 
che Basic-Programm ist im Gegen- 
satz zu Logo weniger klar und 
durchsichtig programmiert. Bei Lo- 
go dagegen sorgt das Denken in 
Prozeduren für Übersicht. 
(Carsten Straush) 





10 rue [4402] 
20 '’#*+ Tuerme von Hanoi ## [CEOA] 550 cc=0:RETURN [äcCÖöE] 
30 '#*# fuer Schneider ##+ LSF72] 560 FOR j=1 TO 7 [3258] 
40 '#* unter Basic 1.0 ##* tEF24] 570 IF a$tj,b)=bl# THEN 590 CABEA] 
SO [4590] 580 NEXT j LAOÖCI 
&0 INK 0,0:INK 1,5:INK 2,25: INK 3,11 [D2C4] 590 FOR k=1 TO 7 [4370] 
70 PEN i [6076] 600 IF asti,a)=br$(ik) THEN 420 [7652] 
80 CLS i [FBD4] 610 NEXT k [1502] 
| 20 PRINT:PRINT"{3 SPACE}Tuerme von Hanoi &20 FOR 1=1 TO 7 [3166] 
| BASIC-Simulation" [5872] 630 IF astj-1,b)=br$(1) THEN 440 [A722] 
100 WINDOW#3,1,40,5,25 [5782] 540 NEXT 1 [4DOA] 
I 110 LOCATE 10,7 LE7YC] 50 1=1 LE1?2A] 
| 120 ee ee 19" [D274] 640 IF k<l THEN FRINT CHR#$ (7) :RETURN [897A] 
I 130 LOCATE 10, [L95A4] 670 a$(j,b)=sasli,a) [A128] 
| 140 BRiR PT Zertiuneet) SFACE} ZI)" L[3C76] &80 afli,a)=blf [3872] 
| 150 z$=INKEY$:IF z#$<>"1" AND z$<>"2" THE fuhr 1 0 Be ZZ 202 2 2 2 ZZ 2 2 ZZ 2 2 2 2 2 2 2 2 2 2 2 2 27 [2AAB] 
N 150 L7EA2] ‚00 '’## ausgeben und fertig 7 ## [FOEE] 
150 PRINT:PRINT=:FRINT"Anzahl der Scheibe _ TIO TREE ER E LiFFA] 
n auf dem Ausgangsturm {3-7)" EA29&] 720 GOSUB 340 EF&EO] 
170 y#$=INKEY#: IF y$="" THEN 170 ELSE IF 730 IF a$(7,2)=br#(7) THEN 1050 C7DBE] 
ASC(y#)<51 DR ASCctiy#)>55 THEN 170 EL 740 RETURN [LAC3A]I 
SE mz=WAL(y#) [C44EC] 750 dn=mz [ECö4] 
180 CLS5#3 [D3E2] ’&0 tiltl1})=l:t2l1)=3:t3tl)e2 L[37EC] 
190 PEN 2 [L54DE] 770 ne=1 ESCFE] 
200 WINDOW#1 ,19,25,8,8B LEFYE] 780 ddt1)=dn £[C730] 
210 IF z#="2" THEN LOCATE 15,5:PRINT"Zei 790 rz=0 [8132] 
tlupe" EBD3E] 800 GOSUB 850 [B1EA] 
270 [AA3A] 810 END [BC20] 
>30 '##+ Turmscheiben definieren ## LF4CC] 820 ss [1352] 
240 Sr And Ar ee [SASE] 8350 '## Rekursionsteil ## [855A] 
?S50o DIM a#t7? CAO42] Bao [2155] 
250 FOR i=1 Y 7:br$(8-i)=SPACEF(7-i)+ST 850 ne=ne+l [LO2F8] 
RING$I2#ti-1)+1,"*") NEXT EADSC]I B60 dd(ne)=dd (ne-1)-1 L16s1iEI | 
270 b1F=SPACE#$ (13) [825A] 870 tii(ne)=t1(ne-i1) L58D8] 
280 FOR i=B-mz TO 7:asli,i)=br$sti):zasli, 880 t2ine) =t3ine-i) [4BEO0] 
Z)=bl#:a#tli,3)=bl$:NEXT [C730] 890 t3(ne)=t?2tine-1) [48E2] 
290 GOSUB 340 C4BE4] 900 IF ddtine)=1 THEN rz=rz+i:a=til ine) :b= 
300 GOTO 750 [CDS0] tZtne): GOSUB 980 ELSE GOSUB 850 [S14E] 
310 EFCF2] 910 rz=erz+1l:a=t1 itne-1):b>=t2(ne-1) :6GOSUB 
320 '’## Tuerme setzen ##+ C[D?DE]1 7B0 [C74C] 
330 Sets [CAF6] 920 titne)=t3tne-1) [CDD4] 
340 i=1 LC401C] 330 t2tne)=t?(ne-1) [8B6D4] 
s50 CLS#1:PRINT#1,rz [AF42] 940 t3(ne)=ti1ine-1) [71D8] 
360 FOR »=20 TO 14 STEP-1 E8DB2] 950 IF ddine)=i1 THEN rz=rz+1:a=t1 (ne) :b= 
370 LOCATE 1,x:PRINT afsti,i); [1B4A] t2(ne) :6G05SUB 780 ELSE GOSUB 850 [A718] 
380 i=i+1:NEXT [C93E] 960 ne=ne-i [1400] 
390 i=1 | | [4326] 970 RETURN [2040] 
400 FOR x=20 TD 14 STEF-1 L1BAB] 780 LCEöDO] 
410 LOCATE 14,*:PRINT a#li,2); [FBAA] 990 GOSUR 520 [LF?DF2] 
420 i=i+ti :NEXT [2F74] 1000 RETURN [79782] 
| 430 i=1 LODIC] 1010 FOR i=7 TD 1 STEF -—1 [FBö8] 
| 440 FOR x=20 TD 14 STEP-1 LE7BO] 1020 IF a$tli,a)<>bl$ THEN RETURN CAC32] 
| 450 LOCATE 27,x:PRINT a$li,3); C[D3BC]I 1030 NEXT i [A358] 
450 i=i+t1 :NEXT [L437C] 1040 cc=0: RETURN [7764] 
470 IF z$="2" THEN FOR t=i TO 1000:NEXT 1050 LOCATE 10,25:PRINT"weiter mit Taste 
t | [F188] ndruck" LCi1iBE] 
480 RETURN L[1D38] 1050 z£&=INKEY$: IF z#="" THEN 1050 [4E48] 
| 40 [8154] 1070 RUN [CO1BA] 
| 500 '## Turmarray aendern ## [7810] 
| = EoR is 7 70 1 step I Bunaet Listing. »Türme von Hanoi« ist in Basic | 
530 [BDS2] bedeutend umständlicher als in Pose | 


IF a$tli,a)<>bl# THEN 560 
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dieses Buch gibt. Eine BASIC-Einfüh- 
rung ları den Beispielen Dateiverwal- 
tung und Textverarbeitung!) ist selbst- 
verständlich. Darüber hinaus konzen- 
trieren sich die Autoren auf die beson- 
deren Eigenschaften des 464ers, seine 
mächtigen Befehle, die andere BASICs 
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COMPUTER-ZEITSCHRIFTEN 
VON PROFIS FÜR PROFIS 












COMPUTER PERSÖNLICH 
Te © 


Das aktuelle Fachmagazin 

für Personal-Computer. 

* Wenn Sie jetzt den Schritt vom 
Heim-Computer zur professionel- 
len Anwendung eines Personal 
Computers planen 

* Wenn Sie beruflich oder privat 
bereits einen Personal Computer 
benutzen 

%* Wenn Sie or, Informatio- 
nen über das aktuelle Produkt- 
angebot benötigen 


* Wenn Sie selbst programmieren 
#* Wenn Sie professionelle Hard- 
und Softwaretests suchen 


%* Wenn Sie Ihr eigenes System 
a effizient einsetzen wol- 


dann ist »Computer persönlich«, das 
aktuelle Fachmagazin für Personal 
Computer, genau Ihre Zeitschrift. 


Die konsequente Ausrichtung auf 
professionelle Anwendungen bietet 
Ihnen alle wichtigen Informationen. 
Von Profis für Profis! 

»Computer persönlich« gibt es alle 
14 Tage neu bei Ihrem Zeitschriften- 
händler oder im Computer-Fach- 
geschäft. 





| PC MAGAZIN 


| Einzige Wochenzeitung für Personal 


Computer im IBM-Standard. 
Sie beschäftigen sich beruflich oder 


| privat mit dem Einsatz und der 


Anwendung von Personal 
Computern? 

Sie sind an aktuellen, professionel- 
len Informationen über IBM-PCs, 


| kompatible Systeme und deren pro- 


fessionellen Einsatz interessiert? 


| Dann ist das PC Magazin genau auf 
| Ihre persönlichen Bedürfnisse 
| zugeschnitten. 


Es wird von anerkannten und er- 


| fahrenen Fachjournalisten für pro- 


fessionelle Anwender und Fachleute 
geschrieben. 


Es berichtet jede Woche ausschließ- 
lich über Computer im IBM-Standard 
und kompatible Systeme, über 
Hard- und Softwareneuheiten. 

Es bringt ausführliche Testberichte 
und gibt Ihnen wichtige Informatio- 
nen über Netzwerke sowie die 
PC/Host-Verbindung. 

Nur diese Spezialisierung ermöglicht 
eine gezielte Berichterstattung und 
bietet genügend Raum, um auf An- 
Benin; sa spezifisch eingehen 
zu können. 


Von Profis für Profis! 
Und das jeden Mittwoch neu bei 


Ihrem Zeitschriftenhändler oder im 
Computer-Fachgeschäft. 


me a  _ — — ——— 


GUTSCHEIN 


für ein kostenloses Probeexemplar 


Senden Sie mir die neueste Ausgabe der von mir angekreuzten Zeitschrift kostenlos als Probeexemplar 


7] COMPUTER PERSÖNLICH 

Wenn mir Computer persönlich zusagt und 
ich es regelmäßig weiterbeziehen möchte, 
brauche ich nichts zu tun: Ich erhalte 
Computer persönlich dann regelmäßig alle 
14 Tage per Post frei Haus geliefert und 
bezahle pro Jahr nur DM 98.—. Zustellung 
und Postgebühren übernimmt der Verlag 


Worname'Mame 


Straße PLFÖr 
Datum 1. Unterschhnift 


Gutschein ausfüllen, ausschneiden, auf Postkarte kleben und einsenden an: 
larkt & Technik Verlag Aktiengesellschaft, Vertrieb, Postfach 1304, 8013 Haar 


[] PC-MAGAZIN 


Wenn mir das PC-Magazin zusagt und ich es 
regelmäßig weiterbeziehen möchte, brauche 
ich nichts zu tun: Ich erhalte mein PC-Magazin 
dann regelmäßig jede Woche per Post frei 
Haus geliefert und bezahle pro Jahr nur 

DM 155_—. Zustellung und Postgebühren 
übernimmt der Verlag. 


Mir ist bekannt, daß ich diese Bestellung innerhalb 
von 8 Tagen bei der Bestelladresse widerrufen 
kann und bestätige dies durch meine zweite 
Unterschrift. Zur Wahrung der Frist genügt die 
rechtzeitige Absendung des Widerrufs 


Datum 3. Unterschrift 
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J. Hückstädt 
CP/M 2.2 Anwenderhandbuch 


CPC 464/664/6128 
Dezember 1985, ca. 250 Seiten 


Wenn Sie glücklicher Besitzer eines Schneider- 
Computers sind und mehr wissen wollen über 
das leistungsstarke Betriebssystem CP/M 2.2, 
dann ist dieses, Buch genau das richtige für Sie! 
Es behandelt CP/M 2.2 nicht nur in seiner allge- 
meinen Form, wie sie für sämtliche GP/’M- 
Computer gültig ist, sondern bezieht auch die 
Hardware der GPC-Computer mit ein. 

Best.-Nr. MT 859 

ISBN 3-89090-204-9 

DM 46,-/sFr. 42,30/05 358,80 


„J. Hockstädt 

CP/M Plus Anwenderhandbuch 

CPC 6128 

Dezember 1985, ca. 250 Seiten 

Ein unentbehrliches Nachschlagewerk für die 
praktische Arbeit mit GP!'M-Plus und seinen 
Hilfsprogrammen. Mit zahlreichen Beispielen. 


Best.-Nr. MT 627 


Bucher 


| Marktögechnik | Markt&zfechnik 
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T. Mossakowski/J, Janneck 


ROM-Listing CPC 464/664/6128 
Dezember 1985, ca. 450 Seiten 


Dieses Buch enthält in konzentrierter Form 
umfassende Informationen über den Aulbau 
Ihres Computers, Es kann sich daher schnell zu 
einem unentbehrlichen Arbeitsbuch für die Pro- 
grammierung entwickeln. Um es optimal nutzen 
zu Können, sollte man mit dem Schneider: 
BASIG vertraut sein und erste Erfahrungen in 
der Maschiiensprache des Z80 besitzen. 

Zu jeder Routine im Listing sind die Übergabe- 
Parameter aufgeführt. Verschiedene Tabellen 
erleichtern das Auffinden einer bestimmten 
Routine. 

Best.-Nr. MT 711 

ISBN 3-89090-134-4 

DM 64,-/sFr. 58,90/05 499,20 


Th, Erpel 


CPC BASIC-Kurs 

November 1985, 376 Seiten 

Ein Buch für den Einstieg in die Bedienung und 
Programmierung der Schneider-Computer, 
Best.-Nr, MT 828 


ISBN 3-89090-2 
DM 46,-/sFr. 42,30/0$ 358,80 


Narkiusrne 


Schneider CPC 
Grafik 


Eike Pumpe kl ha Kara, 


G. Straush 

Schneider CPC Grafik- 
Programmierung 
Dezember 1985, ca. 300 5. 


Dieses Buch wendet sich an 
die Schneider CPC-Besitzer, 
die alles über die Grafikfähig- 
keiten ihres Computers wis- 
sen wollen. Es bietet einen 
umfassenden Überblick über 
die verschiedenen Anwen- 
dungsbereiche der Grafikpro- 
grammierung: zwei- und drei- 
dimensionale Diagrammdar- 
stellungen, Definition und 
Bewegung won Sprites, Ent- 
wurf von Titelgrafiken, Einsatz 
der Grafik bei der Unterstüt- 
zung anderer Programme 

® Besonders interessant: ein 
Sprite-Generator, ein Malpro- 
gramm für hochauflösende 
Grafik, ein Programm zur 
Erstellung von Titelgrafiken 
sowie ein universelles Dar- 
stellungsprogramm. 

Best.-Nr. MT 782 

ISBN 3-89090-182-4 

DM 46,-/sFr. 42,30/05 358,80 







.J. Hückstädt 
Der Schneider CPC 6128 
September 1985, 273 Seiten 


Dieses Buch istfürjeden GCPG 
6128-Besitzer eine wertvolle 
Hilfe, die vielfachen Möglich- 
keiten dieses bisher einmali- 
gen Computers kennenzuler- 
nen und anzuwenden. Der 
Computerneuling wird Schritt 
für Schritt in den Umgang mit 
dem Computer und die 
BASIC-Programmierung ein- 
geführt, bis er alle notwendi- 
gen Kenntnisse besitzt, die 
mancher Profi bereits mit- 
bringt. Aber an dieser Stelle 
wird das Programmieren mit 
dem CPC 6128 erst interes- 
sarnt, nämlich dann, wenn es 
darum geht, eine eigene 
Datelverwaltung aufzubauen 
oder Grafik und Sound zu pro- 
grammieren. Weiterhin erfah- 
ren Sie alles über GP/M Pius 
auf dem GPG 6128, 

Best.-Nr. MT 849 

ISBN 3-89090-192-1 

DM 46,-!sFr. 42,30/65 358,80 


Markt & Technik-Fachbücher 
erhalten Sie bei Ihrem Buchhändler! 


Ara ik 


Ausreise Fin, bus 


GC, Straush 
DR. LOGO auf dem 


Schneider CPC 
Januar 1986, ca. 250 Seiten 


Speziell auf die Schneider 
Computer anwendbar finden 
Sie in diesem Buch eine struk- 
turierte Anleitung für die prak- 
tische Arbeit mit der Program- 
miersprache LOGO. Mit zahl- 
reichen Beispielen zur Grafik- 
und » Soundprogrammierung 
Das letzte Kapitel enthält 
nützliche Utilities (z.B. SORT- 
Routinen), Informationen 
über die Aufteilung des Spei- 
chers (Speicheranalyse und 
Tastendefinition) Erklärun- 
gen zu.den Editorkommandos 
über deutsche LOGO- 
Befehle sowie Lösungsvor- 
schläge zu den Aufgaben. 
Best.-Nr. MT 865 

ISBN 3-89090-210-3 

DM 46,-/sFr. 42.30/05 358,80 


ISBN 3-89090-167-0 
DM 46,-/sFr. 42,30/0$ 358,80 





H. Tischer 
Programmentwicklung 
unter CP/M 2.2 auf dem 


CPC 464/664 
Dezember 1985, ca.250 5. 


Dieses Buch wermittelt alle 
Informationen, die zum selb- 
ständigen Entwickeln von 
CFP/M 2.2-Programmen nötig 
sind. Besprochen wird 
sowohl die grundlegende 
Funktionsweise des CP/M 
Betriebssystems als auch alle 
dem Anwender schon zur Ver- 
fügung stehenden System- 


routinen, die diesem wiel | 


Arbeit ersparen, Zwei Kapitel 
beschäftigen — sich aus- 
schließlich mit den zusätzli- 
chen Möglichkeiten, die nur 
die Computer CPCG 464/664 
bieten. 

Kenntnisse der 8080- oder 
Z80-Assemblersprache sind 
erforderlich. 

Best.-Nr. MT 864 

I5BN 3-89090-209-X 

DM 52,-/sFr. 47,80/65 405,60 


 Markt&Technik 
BUCHVERLAG 


Hans-Pinsel-Straße 2, 8013 Haar bei München 
schweiz: Markt & Technik Vertriebs AG, 
Kollerstrasse 3, CH-6300 Zug, © 042/415656 
Österreich: Rudolf Lechner & Sohn, 
Heizwerkstraße 10, A-1232 Wien, & 02 22/67 7526 


C: Straush 


CPC 464 - Programmie- 
ren in Maschinensprache 
Juli 1985, 276 Selten 
Dieses Buch weiht in die 
Arbeitsweise des BASIC- 
Interpreters ein underklärt die 
Funktionsweise der Bauteile 
des Geräts und deren Zusam- 
menwirken. So ergeben sich 
auch für reine BASIG-Pro- 
grammierer bereits viele An- 
derungs- und Eingriffsmäg- 
lichkeiten in die Maschine. 
Best.-Hr. MT 829 

ISBN 3-89090-166-2 


DM 46,-/sFr. 42,30/08 358,80 


C. Straush/H. Pick 
CPC 464 für Ein- und 


Umsteiger 
Februar 1985, 260 Seiten 


Starthilfe für den Anfänger; 
Örientierungshilte für den 
Umsteiger. 

Best.-Nr. MT 801 

I5BN 3-89090-090-9 

DM 46,-/sFr. 42,.30/6$ 358,80 


G. Jürgensmeier 


WordStar 3.0 mit 
MailMerge für den 
Schneider GPC 
September 1985, 435 Seiten 


Das unentbehrliche Zusatz- 
Handbuch für die Arbeit mit 
dem Schneider GPG. 

Besi.-Hr. MT 779 

ISBN 3-89090-180-8 

DM 49,-/sFr. 45,10/6$ 382,20 





Dr. P. Albrecht 

dBASE II für den 
schneider CPC 
September 1985, 280 Seiten 


Best.-Nr. MT 837 
ISBN 3-39090-188-3 
DM 49.-!sFr. 45,10/65 382,20 


Dr. P Albrecht 


MULTIPLAN für den 


Schneider CPC 
September 1985, 226 Seiten 
Best.-Nr. MT 835 

ISBN 3-89090-186-7 

DM 49,-/sFr. 45,10/05 382,20 


Bestellkarten bitte an Ihren Buchhändler 
oder an einen unserer Depot-Händler. 
Adressenverzeichnis am Ende des Heftes. 


